Permalink
Browse files

[t/spec] regex unfudging for rakudo

git-svn-id: http://svn.pugscode.org/pugs@31489 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
1 parent 230342e commit 518481a8ee6904e78b389126b8231d460d069395 moritz committed Jun 28, 2010
Showing with 0 additions and 6 deletions.
  1. +0 −6 S05-mass/rx.t
View
@@ -327,7 +327,6 @@ ok 'bbccdd' !~~ /<-[b..d]>/, 'negated character range';
ok ('bbccdd' ~~ /<-[d..b]>/) && matchcheck($/, q/parse error/), 'illegal character range';
#### <[-]> ab-def /parse error/ unescaped hyphen
-#?rakudo todo 'unknown'
ok eval(q{{ 'ab-def' ~~ /<[-]>/ }}) ~~ Failure && $! ~~ /'Obsolete use of hyphen'/, 'unescaped hyphen';
#### <[\-]> ab-def y escaped hyphen
@@ -731,23 +730,18 @@ ok "abc\r\ndef" !~~ /c \N d/, 'not logical newline (\N)';
ok "abc\ndef" ~~ /b \N \n/, 'not logical newline (\N)';
#### \Aabc Aabc /reserved/ retired metachars (\A)
-#?rakudo todo 'infix:<S&>'
ok eval(q{{ 'Aabc' ~~ /\Aabc/ }}) ~~ Failure && $! ~~ /reserved|Obsolete/, 'retired metachars (\A)';
#### \Aabc abc\ndef /reserved/ retired metachars (\A)
-#?rakudo todo 'infix:<S&>'
ok eval(q{{ 'abc\ndef' ~~ /\Aabc/ }}) ~~ Failure && $! ~~ /reserved|Obsolete/, 'retired metachars (\A)';
#### abc\Z abcZ /reserved/ retired metachars (\Z)
-#?rakudo todo 'infix:<S&>'
ok eval(q{{ 'abcZ' ~~ /abc\Z/ }}) ~~ Failure && $! ~~ /reserved|Obsolete/, 'retired metachars (\Z)';
#### abc\Z abc\ndef /reserved/ retired metachars (\Z)
-#?rakudo todo 'infix:<S&>'
ok eval(q{{ 'abc\ndef' ~~ /abc\Z/ }}) ~~ Failure && $! ~~ /reserved|Obsolete/, 'retired metachars (\Z)';
#### abc\z abcz /reserved/ retired metachars (\z)
-#?rakudo todo 'infix:<S&>'
ok eval(q{{ 'abcz' ~~ /abc\z/ }}) ~~ Failure && $! ~~ /reserved|Obsolete/, 'retired metachars (\z)';
#### def\z abc\ndef /reserved|Obsolete/ retired metachars (\z)

0 comments on commit 518481a

Please sign in to comment.