From: Nicholas Clark Date: Tue, 21 Oct 2008 06:49:53 +0000 (+0000) Subject: Test::Simple 0.81_02 has: X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c76230386fc5e6fba9fdbeab473abbf4f4adcbe3;p=p5sagit%2Fp5-mst-13.2.git Test::Simple 0.81_02 has: Features Changed - Now preserves the tests' exit code if it exits abnormally, rather than setting it to 255. $! is non-zero with PERLIO=stdio in some cases, so die would have set the exit code to $! (typically 9). Now that would show through, so ensure $! *is* zero to make sure that the exit code is 255. p4raw-id: //depot/perl@34545 --- diff --git a/t/lib/Test/Simple/sample_tests/death.plx b/t/lib/Test/Simple/sample_tests/death.plx index a7c0988..24f8cb2 100644 --- a/t/lib/Test/Simple/sample_tests/death.plx +++ b/t/lib/Test/Simple/sample_tests/death.plx @@ -13,4 +13,5 @@ tie *STDERR, 'Dev::Null'; ok(1); ok(1); ok(1); +$! = 0; die "This is a test"; diff --git a/t/lib/Test/Simple/sample_tests/death_with_handler.plx b/t/lib/Test/Simple/sample_tests/death_with_handler.plx index 4d871ac..ddb1c06 100644 --- a/t/lib/Test/Simple/sample_tests/death_with_handler.plx +++ b/t/lib/Test/Simple/sample_tests/death_with_handler.plx @@ -16,4 +16,6 @@ tie *STDERR, 'Dev::Null'; ok(1); ok(1); + +$! = 0; die "This is a test"; diff --git a/t/lib/Test/Simple/sample_tests/last_minute_death.plx b/t/lib/Test/Simple/sample_tests/last_minute_death.plx index 318905d..2aef954 100644 --- a/t/lib/Test/Simple/sample_tests/last_minute_death.plx +++ b/t/lib/Test/Simple/sample_tests/last_minute_death.plx @@ -16,4 +16,5 @@ ok(1); ok(1); ok(1); +$! = 0; die "This is a test";