diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-12-23 13:50:25 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-12-23 13:50:25 +0000 |
| commit | 112bedeb9730c2d3f20c786393533d63405c8b39 (patch) | |
| tree | 8baf5bc03c9003434babe4dbbb2c8b4697473308 /t | |
| parent | ec53fe4f9e818e0863fdf95395e02d6b1741bcfd (diff) | |
| download | perl-112bedeb9730c2d3f20c786393533d63405c8b39.tar.gz | |
Move the \C and \X to pat.t.
p4raw-id: //depot/perl@13864
Diffstat (limited to 't')
| -rwxr-xr-x | t/op/pat.t | 9 | ||||
| -rw-r--r-- | t/op/re_tests | 3 |
2 files changed, 8 insertions, 4 deletions
diff --git a/t/op/pat.t b/t/op/pat.t index dc42181487..30fc1a949c 100755 --- a/t/op/pat.t +++ b/t/op/pat.t @@ -6,7 +6,7 @@ $| = 1; -print "1..792\n"; +print "1..794\n"; BEGIN { chdir 't' if -d 't'; @@ -2411,3 +2411,10 @@ print "# some Unicode properties\n"; $1 eq "\N{LATIN CAPITAL LETTER E}\N{COMBINING GRAVE ACCENT}" ? "ok 792\n" : "not ok 792 # $1\n"; } + +{ + print "#\\C and \\X\n"; + + print "!abc!" =~ /a\Cc/ ? "ok 793\n" : "not ok 793\n"; + print "!abc!" =~ /a\Xc/ ? "ok 794\n" : "not ok 794\n"; +} diff --git a/t/op/re_tests b/t/op/re_tests index c3e177d6aa..3d939a6635 100644 --- a/t/op/re_tests +++ b/t/op/re_tests @@ -797,6 +797,3 @@ ab(?i)cd abCd y - - (A|B)*?(?(1)(CD)|(CD)) CD y $2-$3 -CD # [ID 20010803.016] (A|B)*?(?(1)(CD)|(CD)) ABCD y $2-$3 CD- '^(o)(?!.*\1)'i Oo n - - -a.c !abc! y $& abc -a\Cc !abc! y $& abc -a\Xc !abc! y $& abc |