]>
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 }); | |
1c4afc63 | 9 | my $res = $harness->runtests( "snapshot-test.pm"); |
a157d0fd | 10 | system( "rm -rf snapshot-working/"); |
1c4afc63 | 11 | exit -1 if $res->{failed}; |