mirror of
https://git.proxmox.com/git/qemu-server
synced 2025-04-29 03:40:11 +00: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};
|