Add a TODO test for bug #47195

p4raw-id: //depot/perl@32229

1 files changed, 11 insertions, 1 deletions

diff --git a/t/op/taint.t b/t/op/taint.t
index b49dfdadce..d33b66c1cd 100755
--- a/t/op/taint.t
+++ b/t/op/taint.t
@@ -17,7 +17,7 @@ use Config;
 use File::Spec::Functions;
 
 BEGIN { require './test.pl'; }
-plan tests => 261;
+plan tests => 267;
 
 $| = 1;
 
@@ -1230,6 +1230,16 @@ SKIP:
     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};