diff options
| author | Jeffrey Friedl <jfriedl@regex.info> | 2002-03-27 18:12:03 -0800 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-03-28 13:28:44 +0000 |
| commit | ff385a1bad6ee8beb325a9f711f9e2773dba9aea (patch) | |
| tree | b466f28122934e7114d3acb94312ce01636290ca /t | |
| parent | 4ac733c9bd1b714b72e7aa46038b74060cad7c98 (diff) | |
| download | perl-ff385a1bad6ee8beb325a9f711f9e2773dba9aea.tar.gz | |
Re: [ID 20020324.003] fairly major problem with qr/.../x (with test PATCH)
Message-Id: <200203281012.g2SAC3K93291@ventrue.corp.yahoo.com>
p4raw-id: //depot/perl@15580
Diffstat (limited to 't')
| -rwxr-xr-x | t/op/pat.t | 16 |
1 files changed, 14 insertions, 2 deletions
diff --git a/t/op/pat.t b/t/op/pat.t index 001a5b0ac5..2c897cf337 100755 --- a/t/op/pat.t +++ b/t/op/pat.t @@ -2774,8 +2774,6 @@ print "# some Unicode properties\n"; { - my $test = 893; - print "# Unicode hash keys and \\w\n"; # This is not really a regex test but regexes bring # out the issue nicely. @@ -2804,3 +2802,17 @@ print "# some Unicode properties\n"; } } +{ + print "# qr/.../x\n"; + + my $R = qr/ A B C # D E/x; + + print eval {"ABCDE" =~ $R} ? "ok $test\n" : "not ok $test\n"; + $test++; + + print eval {"ABCDE" =~ m/$R/} ? "ok $test\n" : "not ok $test\n"; + $test++; + + print eval {"ABCDE" =~ m/($R)/} ? "ok $test\n" : "not ok $test\n"; + $test++; +} |