This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Add a TODO test for bug #47195
authorNicholas Clark <nick@ccl4.org>
Tue, 6 Nov 2007 19:37:40 +0000 (19:37 +0000)
committerNicholas Clark <nick@ccl4.org>
Tue, 6 Nov 2007 19:37:40 +0000 (19:37 +0000)
p4raw-id: //depot/perl@32229

t/op/taint.t

index b49dfda..d33b66c 100755 (executable)
@@ -17,7 +17,7 @@ use Config;
 use File::Spec::Functions;
 
 BEGIN { require './test.pl'; }
 use File::Spec::Functions;
 
 BEGIN { require './test.pl'; }
-plan tests => 261;
+plan tests => 267;
 
 $| = 1;
 
 
 $| = 1;
 
@@ -1230,6 +1230,16 @@ SKIP:
     like ($@, qr/^Insecure dependency in eval/);
 }
 
     like ($@, qr/^Insecure dependency in eval/);
 }
 
+foreach my $ord (78, 163, 256) {
+    # 47195
+    my $line = 'A1' . $TAINT . chr $ord;
+    chop $line;
+    is($line, 'A1');
+    $line =~ /(A\S*)/;
+    local $::TODO = "Bug for UTF-8 not fixed yet" if $ord > 255;
+    ok(!tainted($1), "\\S match with chr $ord");
+}
+
 # This may bomb out with the alarm signal so keep it last
 SKIP: {
     skip "No alarm()"  unless $Config{d_alarm};
 # This may bomb out with the alarm signal so keep it last
 SKIP: {
     skip "No alarm()"  unless $Config{d_alarm};