[qemu-server.git] / test / run_snapshot_tests.pl

#!/usr/bin/perl

use strict;
use warnings;

use TAP::Harness;

my $harness = TAP::Harness->new( { "verbosity" => -2 });
$harness->runtests( "snapshot-test.pm");
system( "rm -rf snapshot-working/");
Commit	Line	Data
a157d0fd FG	1	#!/usr/bin/perl
	2
	3	use strict;
	4	use warnings;
	5
	6	use TAP::Harness;
	7
	8	my $harness = TAP::Harness->new( { "verbosity" => -2 });
	9	$harness->runtests( "snapshot-test.pm");
	10	system( "rm -rf snapshot-working/");