test/run_snapshot_tests.pl

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