diff options
| author | Yitzchak Scott-Thoennes <sthoenna@efn.org> | 2002-09-04 14:09:01 -0700 |
|---|---|---|
| committer | hv <hv@crypt.org> | 2002-09-08 14:55:31 +0000 |
| commit | 446eaa427e017001f2d47e21b0ad20ce965cd808 (patch) | |
| tree | 166db7147f95e45ee8ab9812c7dc842373b673ec /t/op/pat.t | |
| parent | eb25aaf601be63900e7fddecbca6277c850b9e70 (diff) | |
| download | perl-446eaa427e017001f2d47e21b0ad20ce965cd808.tar.gz | |
sv_2pv_flags and ROK and UTF8 flags
Date: Wed, 04 Sep 2002 21:09:01 -0700
Message-ID: <djtd9gzkgyLd092yn@efn.org>
Date: Fri, 06 Sep 2002 09:23:03 -0700
Message-ID: <nZNe9gzkgKdH092yn@efn.org>
p4raw-id: //depot/perl@17864
Diffstat (limited to 't/op/pat.t')
| -rwxr-xr-x | t/op/pat.t | 21 |
1 files changed, 20 insertions, 1 deletions
diff --git a/t/op/pat.t b/t/op/pat.t index 8496f95a1e..ed02ae3126 100755 --- a/t/op/pat.t +++ b/t/op/pat.t @@ -6,7 +6,7 @@ $| = 1; -print "1..924\n"; +print "1..928\n"; BEGIN { chdir 't' if -d 't'; @@ -2911,3 +2911,22 @@ print(('goodfood' =~ $a ? '' : 'not '), print(($a eq '(?-xism:foo)' ? '' : 'not '), "ok $test\t# reblessed qr// stringizes\n"); ++$test; + +$x = "\x{3fe}"; +$a = qr/$x/; +print(($x =~ $a ? '' : 'not '), "ok $test - utf8 interpolation in qr//\n"); +++$test; + +print(("a$a" =~ $x ? '' : 'not '), + "ok $test - stringifed qr// preserves utf8 # TODO\n"); +++$test; + +print(("a$x" =~ qr/a$a/ ? '' : 'not '), + "ok $test - interpolated qr// preserves utf8 # TODO\n"); +++$test; + +print(("a$x" =~ qr/a(??{$a})/ ? '' : 'not '), + "ok $test - postponed interpolation of qr// preserves utf8 # TODO\n"); +++$test; + +# last test 928 |