From: Nicholas Clark <nick@ccl4.org>
Date: Tue, 6 Nov 2007 19:37:40 +0000 (+0000)
Subject: Add a TODO test for bug #47195
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d370611815346ab16486a214120c74920e95c043;p=p5sagit%2Fp5-mst-13.2.git

Add a TODO test for bug #47195

p4raw-id: //depot/perl@32229
---

diff --git a/t/op/taint.t b/t/op/taint.t
index b49dfda..d33b66c 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};