Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
:i unfudges for rakudo
  • Loading branch information
@moritz
moritz committed Dec 8, 2011
1 parent fbba653 commit a054084
Show file tree
Hide file tree
Showing 4 changed files with 0 additions and 33 deletions.
26 changes: 0 additions & 26 deletions S05-mass/rx.t
View file
Expand Up @@ -1242,15 +1242,12 @@ ok 'ab0cdef' !~~ /a\D+f/, 'not digit';
ok 'abcdef' ~~ /:i bcd/, 'ignorecase (:i)';

#### :i bcd aBcdef y ignorecase (:i)
#?rakudo todo 'nom regression'
ok 'aBcdef' ~~ /:i bcd/, 'ignorecase (:i)';

#### :i bcd abCdef y ignorecase (:i)
#?rakudo todo 'nom regression'
ok 'abCdef' ~~ /:i bcd/, 'ignorecase (:i)';

#### :i bcd abcDef y ignorecase (:i)
#?rakudo todo 'nom regression'
ok 'abcDef' ~~ /:i bcd/, 'ignorecase (:i)';

#### :i bcd abc-ef n ignorecase (:i)
Expand All @@ -1260,7 +1257,6 @@ ok 'abc-ef' !~~ /:i bcd/, 'ignorecase (:i)';
ok 'abcdef' ~~ /:ignorecase bcd/, 'ignorecase (:ignorecase)';

#### :ignorecase bcd aBCDef y ignorecase (:ignorecase)
#?rakudo todo 'nom regression'
ok 'aBCDef' ~~ /:ignorecase bcd/, 'ignorecase (:ignorecase)';

#### :ignorecase bcd abc-ef n ignorecase (:ignorecase)
Expand All @@ -1279,7 +1275,6 @@ ok 'abcdef' ~~ /:i(1) bcd/, 'ignorecase, repetition (:i(1))';

#### :i(1) bcd abCdef y ignorecase, repetition (:i(1))
#?pugs todo 'feature'
#?rakudo todo 'nom regression'
ok 'abCdef' ~~ /:i(1) bcd/, 'ignorecase, repetition (:i(1))';

#### :i(1) bcd aBxDef n ignorecase, repetition (:i(1))
Expand All @@ -1298,12 +1293,10 @@ ok 'abcdef' ~~ /:1i bcd/, 'ignorecase, repetition (:1i)';

#### :1i bcd abCdef y ignorecase, repetition (:1i)
#?pugs todo 'feature'
#?rakudo todo 'nom regression'
ok 'abCdef' ~~ /:1i bcd/, 'ignorecase, repetition (:1i)';

#### :1i bcd aBCDef y ignorecase, repetition (:1i)
#?pugs todo 'feature'
#?rakudo todo 'nom regression'
ok 'aBCDef' ~~ /:1i bcd/, 'ignorecase, repetition (:1i)';

#### :1i bcd aBxDef n ignorecase, repetition (:1i)
Expand All @@ -1313,15 +1306,12 @@ ok 'aBxDef' !~~ /:1i bcd/, 'ignorecase, repetition (:1i)';
ok 'abcdef' ~~ /ab [:i cd ] ef/, 'ignorecase, lexical (:i)';

#### ab [:i cd ] ef abCdef y ignorecase, lexical (:i)
#?rakudo todo 'nom regression'
ok 'abCdef' ~~ /ab [:i cd ] ef/, 'ignorecase, lexical (:i)';

#### ab [:i cd ] ef abcDef y ignorecase, lexical (:i)
#?rakudo todo 'nom regression'
ok 'abcDef' ~~ /ab [:i cd ] ef/, 'ignorecase, lexical (:i)';

#### ab [:i cd ] ef abCDef y ignorecase, lexical (:i)
#?rakudo todo 'nom regression'
ok 'abCDef' ~~ /ab [:i cd ] ef/, 'ignorecase, lexical (:i)';

#### ab [:i cd ] ef aBCDef n ignorecase, lexical (:i)
Expand All @@ -1331,25 +1321,20 @@ ok 'aBCDef' !~~ /ab [:i cd ] ef/, 'ignorecase, lexical (:i)';
ok 'abCDEf' !~~ /ab [:i cd ] ef/, 'ignorecase, lexical (:i)';

#### :i ab [:i cd ] ef abCDef y ignorecase, lexical (:i)
#?rakudo todo 'nom regression'
ok 'abCDef' ~~ /:i ab [:i cd ] ef/, 'ignorecase, lexical (:i)';

#### :i ab [:i cd ] ef AbCDeF y ignorecase, lexical (:i)
#?rakudo todo 'nom regression'
ok 'AbCDeF' ~~ /:i ab [:i cd ] ef/, 'ignorecase, lexical (:i)';

#### :i ab [:i cd ] ef AbcdeF y ignorecase, lexical (:i)
#?rakudo todo 'nom regression'
ok 'AbcdeF' ~~ /:i ab [:i cd ] ef/, 'ignorecase, lexical (:i)';

#### :i a [:i(0) b [:i(1) c [:0i d [:1i e [:i(0) f ] ] ] ] ] AbCdEf y ignorecase, lexical (:i)
#?pugs todo 'feature'
#?rakudo todo 'nom regression'
ok 'AbCdEf' ~~ /:i a [:i(0) b [:i(1) c [:0i d [:1i e [:i(0) f ] ] ] ] ]/, 'ignorecase, lexical (:i)';

#### :i aa [:i(0) bb [:i(1) cc [:0i dd [:1i ee [:i(0) ff ] ] ] ] ] AabbCcddEeff y ignorecase, lexical (:i)
#?pugs todo 'feature'
#?rakudo todo 'nom regression'
ok 'AabbCcddEeff' ~~ /:i aa [:i(0) bb [:i(1) cc [:0i dd [:1i ee [:i(0) ff ] ] ] ] ]/, 'ignorecase, lexical (:i)';

#### :i a [:i(0) b [:i(1) c [:0i d [:1i e [:i(0) f ] ] ] ] ] AbCdEF n ignorecase, lexical (:i)
Expand All @@ -1360,21 +1345,17 @@ ok 'AabbCcddEeFf' !~~ /:i aa [:i(0) bb [:i(1) cc [:0i dd [:1i ee [:i(0) ff ] ] ]

#### :i ab [:i(0) cd ] ef AbcdeF y ignorecase, lexical repetition (:i)
#?pugs todo 'feature'
#?rakudo todo 'nom regression'
ok 'AbcdeF' ~~ /:i ab [:i(0) cd ] ef/, 'ignorecase, lexical repetition (:i)';

#### :i ab [:!i cd ] ef AbcdeF y ignorecase, lexical repetition (:i)
#?rakudo skip 'parse error'
ok 'AbcdeF' ~~ /:i ab [:!i cd ] ef/, 'ignorecase, lexical repetition (:i)';

#### :i ab [:0i cd ] ef AbcdeF y ignorecase, lexical repetition (:i)
#?pugs todo 'feature'
#?rakudo todo 'nom regression'
ok 'AbcdeF' ~~ /:i ab [:0i cd ] ef/, 'ignorecase, lexical repetition (:i)';

#### :0i ab [:1i cd ] ef abCDef y ignorecase, lexical repetition (:i)
#?pugs todo 'feature'
#?rakudo todo 'nom regression'
ok 'abCDef' ~~ /:0i ab [:1i cd ] ef/, 'ignorecase, lexical repetition (:i)';

#### :0i ab [:1i cd ] ef AbCDeF n ignorecase, lexical repetition (:i)
Expand All @@ -1392,45 +1373,38 @@ ok 'AbcdeF' !~~ /:0i ab [:1i cd ] ef/, 'ignorecase, lexical repetition (:i)';

#### :i(1) ab [:1i cd ] ef AbCdeF y ignorecase, lexical repetition (:i)
#?pugs todo 'feature'
#?rakudo todo 'nom regression'
ok 'AbCdeF' ~~ /:i(1) ab [:1i cd ] ef/, 'ignorecase, lexical repetition (:i)';

#### :i(1) ab [:i(0) cd ] ef AbcdeF y ignorecase, lexical repetition (:i)
#?pugs todo 'feature'
#?rakudo todo 'nom regression'
ok 'AbcdeF' ~~ /:i(1) ab [:i(0) cd ] ef/, 'ignorecase, lexical repetition (:i)';

#### :i(1) ab [:i(0) cd ] ef AbcDeF n ignorecase, lexical repetition (:i)
ok 'AbcDeF' !~~ /:i(1) ab [:i(0) cd ] ef/, 'ignorecase, lexical repetition (:i)';

#### :i(2) ab [:i(999) cd ] ef ABCDEF y ignorecase, lexical repetition (:i)
#?pugs todo 'feature'
#?rakudo todo 'nom regression'
ok 'ABCDEF' ~~ /:i(2) ab [:i(999) cd ] ef/, 'ignorecase, lexical repetition (:i)';

#### :1i ab [:i(1) cd ] ef ABCDEF y ignorecase, lexical repetition (:i)
#?pugs todo 'feature'
#?rakudo todo 'nom regression'
ok 'ABCDEF' ~~ /:1i ab [:i(1) cd ] ef/, 'ignorecase, lexical repetition (:i)';

#### :0i ab [:1i cd ] ef abcDeF n ignorecase, lexical repetition (:i)
ok 'abcDeF' !~~ /:0i ab [:1i cd ] ef/, 'ignorecase, lexical repetition (:i)';

#### :2i ab [:999i cd ] ef ABCDEF y ignorecase, lexical repetition (:i)
#?pugs todo 'feature'
#?rakudo todo 'nom regression'
ok 'ABCDEF' ~~ /:2i ab [:999i cd ] ef/, 'ignorecase, lexical repetition (:i)';

#### ab [:ignorecase cd ] ef abCDef y ignorecase, lexical (:ignorecase)
#?rakudo todo 'nom regression'
ok 'abCDef' ~~ /ab [:ignorecase cd ] ef/, 'ignorecase, lexical (:ignorecase)';

#### ab [:ignorecase cd ] ef aBCDef n ignorecase, lexical (:ignorecase)
ok 'aBCDef' !~~ /ab [:ignorecase cd ] ef/, 'ignorecase, lexical (:ignorecase)';

#### :1ignorecase ab [:ignorecase(1) cd ] ef ABCDEF y ignorecase, lexical repetition (:ignorecase)
#?pugs todo 'feature'
#?rakudo todo 'nom regression'
ok 'ABCDEF' ~~ /:1ignorecase ab [:ignorecase(1) cd ] ef/, 'ignorecase, lexical repetition (:ignorecase)';

#### :s bcd a bcdef y sigspace (:s)
Expand Down
4 changes: 0 additions & 4 deletions S05-modifier/ignorecase.t
View file
Expand Up @@ -17,7 +17,6 @@ Note that the meaning of C<:i> does B<not> descend into subrules.
# tests for inline modifiers
# L<S05/Modifiers/and Unicode-level modifiers can be>

#?rakudo todo 'nom regression'
ok("abcDEFghi" ~~ m/abc (:i def) ghi/, 'Match');
ok(!( "abcDEFGHI" ~~ m/abc (:i def) ghi/ ), 'Mismatch');

Expand All @@ -35,13 +34,11 @@ ok "hello" !~~ m/<&mixedcase>/, "do not match lowercase (subrule)";
ok "hello" !~~ m/Hello/, "do not match lowercase (direct)";

ok "hello" !~~ m:i/<&mixedcase>/, "no match with :i if matched by subrule";
#?rakudo todo 'nom regression'
ok "hello" ~~ m:i/Hello/, "match with :i (direct)";

ok "hello" !~~ m:ignorecase/<&mixedcase>/, "no match with :ignorecase + subrule";
#?niecza todo
ok "hello" !~~ m:ignorecase/Hello/, "match with :ignorecase (direct)";
#?rakudo todo 'nom regression'
ok('Δ' ~~ m:i/δ/, ':i with greek chars');

# The German ß (&szlig;) maps to uppercase SS:
Expand All @@ -53,7 +50,6 @@ ok('SS' ~~ m:i/ß/, "SS matches ß with :ignorecase");


#RT #76750
#?rakudo todo 'nom regression'
ok('a' ~~ m/:i 'A'/, ':i descends into quotes');

# vim: syn=perl6 sw=4 ts=4 expandtab
2 changes: 0 additions & 2 deletions S05-substitution/subst.t
View file
Expand Up @@ -343,10 +343,8 @@ is '12'.subst(/(.)(.)/,{$()*2}),'24', '.. and do nifty things in closures';
{
is 'The foo and the bar'.subst('the', 'that', :samecase), 'The foo and that bar', '.substr and :samecase (1)';
is 'The foo and the bar'.subst('the', 'That', :samecase), 'The foo and that bar', '.substr and :samecase (2)';
#?rakudo todo 'samecase'
is 'The foo and the bar'.subst(/:i the/, 'that', :samecase), 'That foo and the bar', '.substr (string pattern) and : samecase (1)';
is 'The foo and the bar'.subst(/:i The/, 'That', :samecase), 'That foo and the bar', '.substr (string pattern) and : samecase (2)';
#?rakudo 5 todo 'samecase'
is 'The foo and the bar'.subst(/:i the/, 'that', :g, :samecase), 'That foo and that bar', '.substr (string pattern) and :g and :samecase (1)';
is 'The foo and the bar'.subst(/:i The/, 'That', :g, :samecase), 'That foo and that bar', '.substr (string pattern) and :g and :samecase (2)';

Expand Down
1 change: 0 additions & 1 deletion integration/error-reporting.t
View file
Expand Up @@ -58,7 +58,6 @@ is_run 'say 42; nosuchsub()',
diag "Error message: $e";
ok $e ~~ /:i 'type check'/,
'subset type check fail mentions type check';
#?rakudo todo 'nom regression'
ok $e ~~ /:i constraint/,
'subset type check fail mentions constraint';
}
Expand Down

0 comments on commit a054084

Please sign in to comment.