diff options
| author | David Mitchell <davem@iabyn.com> | 2012-02-28 12:44:43 +0000 |
|---|---|---|
| committer | David Mitchell <davem@iabyn.com> | 2012-06-13 13:32:48 +0100 |
| commit | 94c1d7aacd8cfb254110f3f26a1fbe9a80f34d0b (patch) | |
| tree | f2264908e0252004014ff0dd4c43bdba7de76d6a | |
| parent | b82ad30cd33e8e4c900e4e7d3419977fff586492 (diff) | |
| download | perl-94c1d7aacd8cfb254110f3f26a1fbe9a80f34d0b.tar.gz | |
re-enable some threaded regex TODO tests
these were fixed via commit 6eea2b427407da46a602a3ca17cbe055f57c24c0
| -rw-r--r-- | t/re/re_tests | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/t/re/re_tests b/t/re/re_tests index 708c9eda46..6ba4c1dd89 100644 --- a/t/re/re_tests +++ b/t/re/re_tests @@ -540,7 +540,7 @@ a(?{}})b - c - a(?{"{"})b ab y - - a(?{"\{"})b cabd y $& ab a(?{"{"}})b - c - Sequence (?{...}) not terminated with ')' -a(?{$::bl="\{"}).b caxbd t $::bl { +a(?{$::bl="\{"}).b caxbd y $::bl { x(~~)*(?:(?:F)?)? x~~ y - - ^a(?#xxx){3}c aaac y $& aaac '^a (?#xxx) (?#yyy) {3}c'x aaac y $& aaac @@ -605,8 +605,8 @@ $(?<=^(a)) a y $1 a ([\w:]+::)?(\w+)$ abcd y $1-$2 -abcd ([\w:]+::)?(\w+)$ xy:z:::abcd y $1-$2 xy:z:::-abcd ^[^bcd]*(c+) aexycd y $1 c -(?{$a=2})a*aa(?{local$a=$a+1})k*c(?{$b=$a}) yaaxxaaaacd t $b 3 -(?{$a=2})(a(?{local$a=$a+1}))*aak*c(?{$b=$a}) yaaxxaaaacd t $b 4 +(?{$a=2})a*aa(?{local$a=$a+1})k*c(?{$b=$a}) yaaxxaaaacd y $b 3 +(?{$a=2})(a(?{local$a=$a+1}))*aak*c(?{$b=$a}) yaaxxaaaacd y $b 4 (>a+)ab aaab n - - (?>a+)b aaab y - - ([[:]+) a:[b]: y $1 :[ @@ -850,7 +850,7 @@ abb$ b\nca n - - 'abb$'m b\nca n - - (^|x)(c) ca y $2 c a*abc?xyz+pqr{3}ab{2,}xy{4,5}pq{0,6}AB{0,}zz x n - - -a(?{$a=2;$b=3;($b)=$a})b yabz t $b 2 +a(?{$a=2;$b=3;($b)=$a})b yabz y $b 2 round\(((?>[^()]+))\) _I(round(xs * sz),1) y $1 xs * sz '((?x:.) )' x y $1- x - '((?-x:.) )'x x y $1- x- |