This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
[rt #111654] TODO test for tainted die propagation
authorTony Cook <tony@develop-help.com>
Sun, 11 Mar 2012 03:27:29 +0000 (14:27 +1100)
committerTony Cook <tony@develop-help.com>
Sun, 11 Mar 2012 22:54:36 +0000 (09:54 +1100)
t/op/taint.t

index 1b75439..095c991 100644 (file)
@@ -17,7 +17,7 @@ BEGIN {
 use strict;
 use Config;
 
-plan tests => 793;
+plan tests => 794;
 
 $| = 1;
 
@@ -2197,6 +2197,15 @@ pass("no death when TARG of ref is tainted");
     is_tainted "\F$utf8", "under locale, \\Futf8 taints the result";
 }
 
+{ # 111654
+  local $::TODO = "RT #111654";
+  eval {
+    eval { die "Test\n".substr($ENV{PATH}, 0, 0); };
+    die;
+  };
+  like($@, qr/^Test\n\t\.\.\.propagated at /, "error should be propagated");
+}
+
 # This may bomb out with the alarm signal so keep it last
 SKIP: {
     skip "No alarm()"  unless $Config{d_alarm};