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 (file)
--- 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 (file)
--- 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 (file)
--- 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";