Fail if tests fail. Lubomir Rintel <lkundrak@v3.sk> diff -up jsl-0.3.0/tests/run_tests.pl.tests jsl-0.3.0/tests/run_tests.pl --- jsl-0.3.0/tests/run_tests.pl.tests 2009-04-14 23:05:50.287206494 +0200 +++ jsl-0.3.0/tests/run_tests.pl 2009-04-14 23:06:13.605209095 +0200 @@ -69,3 +69,4 @@ print "Searching $FindBin::Bin...\n"; find( sub{TestFile}, '.'); print "Passed $num_passed of $num_tests tests\n"; +die "FAIL" unless $num_passed == $num_tests;