From: Nicholas Clark <nick@ccl4.org>
Date: Tue, 21 Oct 2008 06:49:53 +0000 (+0000)
Subject: Test::Simple 0.81_02 has:
X-Git-Tag: accepted/trunk/20130322.191538~12689
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=c76230386fc5e6fba9fdbeab473abbf4f4adcbe3;p=platform%2Fupstream%2Fperl.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";