diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 1998-06-26 22:55:26 -0400 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-06-28 21:09:48 +0000 |
| commit | b85d18e97b6ae9e0cc168f99b999fd3fd33104bd (patch) | |
| tree | fba77924a69fae7095030b314eb5e20f98b74006 /t | |
| parent | b174585de5ccc9973ba572393b2b34e1a6a5b749 (diff) | |
| download | perl-b85d18e97b6ae9e0cc168f99b999fd3fd33104bd.tar.gz | |
applied patch, tweaked doc, and regen regnodes.h
Message-Id: <199806270655.CAA29144@monk.mps.ohio-state.edu>
Subject: [PATCH 5.004_68] \z in RE
p4raw-id: //depot/perl@1250
Diffstat (limited to 't')
| -rw-r--r-- | t/op/re_tests | 5 | ||||
| -rwxr-xr-x | t/op/regexp.t | 6 |
2 files changed, 9 insertions, 2 deletions
diff --git a/t/op/re_tests b/t/op/re_tests index b506306dbb..dd54a2a5b5 100644 --- a/t/op/re_tests +++ b/t/op/re_tests @@ -439,3 +439,8 @@ $(?<=^(a)) a y $1 a ((?>[^()]+)|\([^()]*\))+ ((abc(ade)ufh()()x y $& abc(ade)ufh()()x (?<=x+)y - c - /(?<=x+)y/: variable length lookbehind not implemented a{37,17} - c - /a{37,17}/: Can't do {n,m} with n > m +a\Z a\nb\n n - - +b\Z a\nb\n y - - +b\z a\nb\n n - - +b\Z a\nb y - - +b\z a\nb y - - diff --git a/t/op/regexp.t b/t/op/regexp.t index e3eb336c3b..7e43526f63 100755 --- a/t/op/regexp.t +++ b/t/op/regexp.t @@ -21,7 +21,7 @@ # Column 5 contains the expected result of double-quote # interpolating that string after the match, or start of error message. # -# Columns 1, 2 and 5 are \n-interpolated. +# \n in the tests are interpolated. # # If you want to add a regular expression test that can't be expressed # in this format, don't add it here: put it in op/pat.t instead. @@ -40,7 +40,9 @@ $| = 1; print "1..$numtests\n# $iters iterations\n"; TEST: while (<TESTS>) { - ($pat, $subject, $result, $repl, $expect) = split(/[\t\n]/,$_); + chomp; + s/\\n/\n/g; + ($pat, $subject, $result, $repl, $expect) = split(/\t/,$_); $input = join(':',$pat,$subject,$result,$repl,$expect); infty_subst(\$pat); infty_subst(\$expect); |