diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 1997-11-15 19:29:39 -0500 |
|---|---|---|
| committer | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1997-11-19 11:04:15 +0000 |
| commit | c277df42229d99fecbc76f5da53793a409ac66e1 (patch) | |
| tree | de3cf73b51d3455f54655dc5b9fdaa68e3da9a7a /t/op/split.t | |
| parent | 5d5aaa5e70a8a8ab4803cdb506e2096b6e190e80 (diff) | |
| download | perl-c277df42229d99fecbc76f5da53793a409ac66e1.tar.gz | |
Jumbo regexp patch applied (with minor fix-up tweaks):
Subject: Version 7 of Jumbo RE patch available
p4raw-id: //depot/perl@267
Diffstat (limited to 't/op/split.t')
| -rwxr-xr-x | t/op/split.t | 23 |
1 files changed, 22 insertions, 1 deletions
diff --git a/t/op/split.t b/t/op/split.t index 07246522ee..7f0accea5e 100755 --- a/t/op/split.t +++ b/t/op/split.t @@ -2,7 +2,7 @@ # $RCSfile: split.t,v $$Revision: 4.1 $$Date: 92/08/07 18:28:26 $ -print "1..20\n"; +print "1..25\n"; $FS = ':'; @@ -90,3 +90,24 @@ print $_ eq "Z" ? "ok 19\n" : "#$_\nnot ok 19\n"; $_ = join('|', split(/.?/, '',-1), 'Z'); print $_ eq "Z" ? "ok 20\n" : "#$_\nnot ok 20\n"; + +# Are /^/m patterns scanned? +$_ = join '|', split(/^a/m, "a b a\na d a", 20); +print $_ eq "| b a\n| d a" ? "ok 21\n" : "not ok 21\n# `$_'\n"; + +# Are /$/m patterns scanned? +$_ = join '|', split(/a$/m, "a b a\na d a", 20); +print $_ eq "a b |\na d |" ? "ok 22\n" : "not ok 22\n# `$_'\n"; + +# Are /^/m patterns scanned? +$_ = join '|', split(/^aa/m, "aa b aa\naa d aa", 20); +print $_ eq "| b aa\n| d aa" ? "ok 23\n" : "not ok 23\n# `$_'\n"; + +# Are /$/m patterns scanned? +$_ = join '|', split(/aa$/m, "aa b aa\naa d aa", 20); +print $_ eq "aa b |\naa d |" ? "ok 24\n" : "not ok 24\n# `$_'\n"; + +# Greedyness: +$_ = "a : b :c: d"; +@ary = split(/\s*:\s*/); +if (($res = join(".",@ary)) eq "a.b.c.d") {print "ok 25\n";} else {print "not ok 25\n# res=`$res' != `a.b.c.d'\n";} |