mirror of
git://git.proxmox.com/git/qemu-server.git
synced 2025-02-15 05:57:39 +03:00
12 lines
235 B
Perl
Executable File
12 lines
235 B
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use TAP::Harness;
|
|
|
|
my $harness = TAP::Harness->new( { "verbosity" => -2 });
|
|
my $res = $harness->runtests( "snapshot-test.pm");
|
|
system( "rm -rf snapshot-working/");
|
|
exit -1 if $res->{failed};
|