diff --git a/test/run_snapshot_tests.pl b/test/run_snapshot_tests.pl
index 6def87f5..38c74f91 100755
--- a/test/run_snapshot_tests.pl
+++ b/test/run_snapshot_tests.pl
@@ -6,5 +6,6 @@ use warnings;
 use TAP::Harness;
 
 my $harness = TAP::Harness->new( { "verbosity" => -2 });
-$harness->runtests( "snapshot-test.pm");
+my $res = $harness->runtests( "snapshot-test.pm");
 system( "rm -rf snapshot-working/");
+exit -1 if $res->{failed};