Change 34545 by [EMAIL PROTECTED] on 2008/10/21 06:49:53
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.
Affected files ...
... //depot/perl/t/lib/Test/Simple/sample_tests/death.plx#5 edit
... //depot/perl/t/lib/Test/Simple/sample_tests/death_with_handler.plx#3 edit
... //depot/perl/t/lib/Test/Simple/sample_tests/last_minute_death.plx#5 edit
Differences ...
==== //depot/perl/t/lib/Test/Simple/sample_tests/death.plx#5 (text) ====
Index: perl/t/lib/Test/Simple/sample_tests/death.plx
--- perl/t/lib/Test/Simple/sample_tests/death.plx#4~34484~ 2008-10-15
06:20:02.000000000 -0700
+++ perl/t/lib/Test/Simple/sample_tests/death.plx 2008-10-20
23:49:53.000000000 -0700
@@ -13,4 +13,5 @@
ok(1);
ok(1);
ok(1);
+$! = 0;
die "This is a test";
==== //depot/perl/t/lib/Test/Simple/sample_tests/death_with_handler.plx#3
(text) ====
Index: perl/t/lib/Test/Simple/sample_tests/death_with_handler.plx
--- perl/t/lib/Test/Simple/sample_tests/death_with_handler.plx#2~34484~
2008-10-15 06:20:02.000000000 -0700
+++ perl/t/lib/Test/Simple/sample_tests/death_with_handler.plx 2008-10-20
23:49:53.000000000 -0700
@@ -16,4 +16,6 @@
ok(1);
ok(1);
+
+$! = 0;
die "This is a test";
==== //depot/perl/t/lib/Test/Simple/sample_tests/last_minute_death.plx#5 (text)
====
Index: perl/t/lib/Test/Simple/sample_tests/last_minute_death.plx
--- perl/t/lib/Test/Simple/sample_tests/last_minute_death.plx#4~34484~
2008-10-15 06:20:02.000000000 -0700
+++ perl/t/lib/Test/Simple/sample_tests/last_minute_death.plx 2008-10-20
23:49:53.000000000 -0700
@@ -16,4 +16,5 @@
ok(1);
ok(1);
+$! = 0;
die "This is a test";
End of Patch.
