Permalink
Browse files

rakudo autounfudge

  • Loading branch information...
1 parent 1084b0b commit ed4fe0ed94ea4b2013da637443604ebfea9e4764 @moritz moritz committed Oct 18, 2012
@@ -91,7 +91,6 @@ use Test;
}
# L<S02/"Embedded Comments"/"Brackets may be nested">
-#?rakudo skip 'nested brackets'
{
is 3, #`(
(Nested parens) works also
@@ -133,7 +132,6 @@ use Test;
# L<S02/"User-selected Brackets"/"Counting of nested brackets"
# "applies only to" "pairs of brackets of the same length">
-#?rakudo skip 'nested parens and braces'
{
is -1 #`<<<
Even <this> <<< also >>> works...
@@ -33,11 +33,9 @@ is(~('foo' ~~ /^<Grammar::Bar::foo>$/), 'foo', 'got right match (foo)');
is(~('foo' ~~ /^<Grammar::Bar::any>$/), 'foo', 'got right match (any)');
is(~('bar' ~~ /^<Grammar::Bar::any>$/), 'bar', 'got right match (any)');
-#?rakudo skip 'RT 77350'
ok Grammar::Bar.parse('foo'), 'can parse foo through .parsed and inhertied subrule';
ok Grammar::Bar.parse('bar', :rule<bar>), 'got right match (bar)';
ok Grammar::Bar.parse('foo', :rule<foo>), 'got right match (foo)';
-#?rakudo 3 skip 'error'
ok Grammar::Bar.parse('bar', :rule<any>), 'got right match (any)';
ok Grammar::Bar.parse('foo', :rule<any>), 'got right match (any)';
nok Grammar::Bar.parse('boo', :rule<any>), 'No match for bad input (any)';
@@ -58,7 +56,6 @@ is(~('baz' ~~ /^<Grammar::Baz::any>$/), 'baz', 'got right match');
ok Grammar::Baz.parse('baz', :rule<baz>), 'got right match (baz)';
ok Grammar::Baz.parse('foo', :rule<foo>), 'got right match (foo)';
ok Grammar::Baz.parse('bar', :rule<bar>), 'got right match (bar)';
-#?rakudo 3 skip 'error'
ok Grammar::Baz.parse('baz', :rule<any>), 'got right match (any)';
ok Grammar::Baz.parse('foo', :rule<any>), 'got right match (any)';
ok Grammar::Baz.parse('bar', :rule<any>), 'got right match (any)';
@@ -59,7 +59,6 @@ ok('a' ~~ m/:i 'A'/, ':i descends into quotes');
ok 'aa' ~~ /:i $matcher/, 'interpolation: match with :i';
}
-#?rakudo todo 'ignorecase + LTM'
ok 'a' ~~ /:i A|B /, ':i and LTM sanity';
# vim: syn=perl6 sw=4 ts=4 expandtab
View
@@ -15,7 +15,6 @@ my $b = 'x';
my $backspace = "\b";
my $bang = '!';
-#?rakudo skip '(?m) not recognized'
is(("b\naa" ~~ rx:P5/(?m)aa$/ && $/.from), 2, 're_tests 913/0 (1117)');
ok((not ("ac\nb\n" ~~ rx:P5/aa\Z/)), 're_tests 914 (1118)');
ok((not ("ac\nb\n" ~~ rx:P5/aa\z/)), 're_tests 916 (1120)');
@@ -56,16 +55,12 @@ ok((not ("b\nca" ~~ rx:P5/(?m)aa$/)), 're_tests 961 (1165)');
ok((not ("ab\nb\n" ~~ rx:P5/ab\Z/)), 're_tests 962 (1166)');
ok((not ("ab\nb\n" ~~ rx:P5/ab\z/)), 're_tests 964 (1168)');
ok((not ("ab\nb\n" ~~ rx:P5/ab$/)), 're_tests 966 (1170)');
-#?rakudo skip 'trailing newline not matched'
is(("b\nab\n" ~~ rx:P5/ab\Z/ && $/.from), 2, 're_tests 967/0 (1171)');
ok((not ("b\nab\n" ~~ rx:P5/ab\z/)), 're_tests 969 (1173)');
-#?rakudo skip 'trailing newline not matched'
is(("b\nab\n" ~~ rx:P5/ab$/ && $/.from), 2, 're_tests 971/0 (1175)');
-#?rakudo 2 skip 'unknown failure'
is(("b\nab" ~~ rx:P5/ab\Z/ && $/.from), 2, 're_tests 972/0 (1176)');
is(("b\nab" ~~ rx:P5/ab\z/ && $/.from), 2, 're_tests 974/0 (1178)');
is(("b\nab" ~~ rx:P5/ab$/ && $/.from), 2, 're_tests 976/0 (1180)');
-#?rakudo 9 skip '(?m) not recognized'
ok((not ("ab\nb\n" ~~ rx:P5/(?m)ab\Z/)), 're_tests 977 (1181)');
ok((not ("ab\nb\n" ~~ rx:P5/(?m)ab\z/)), 're_tests 978 (1182)');
is(("ab\nb\n" ~~ rx:P5/(?m)ab$/ && $/.from), 0, 're_tests 979/0 (1183)');
@@ -114,7 +109,6 @@ ok((not ("b\nca" ~~ rx:P5/(?m)ab$/)), 're_tests 1033 (1237)');
ok((not ("abb\nb\n" ~~ rx:P5/abb\Z/)), 're_tests 1034 (1238)');
ok((not ("abb\nb\n" ~~ rx:P5/abb\z/)), 're_tests 1036 (1240)');
ok((not ("abb\nb\n" ~~ rx:P5/abb$/)), 're_tests 1038 (1242)');
-#?rakudo 5 skip 'trailing newline not matched'
is(("b\nabb\n" ~~ rx:P5/abb\Z/ && $/.from), 2, 're_tests 1039/0 (1243)');
ok((not ("b\nabb\n" ~~ rx:P5/abb\z/)), 're_tests 1041 (1245)');
is(("b\nabb\n" ~~ rx:P5/abb$/ && $/.from), 2, 're_tests 1043/0 (1247)');
View
@@ -67,7 +67,6 @@ ok((not ("x" ~~ rx:P5/a*abc?xyz+pqr{3}ab{2,}xy{4,5}pq{0,6}AB{0,}zz/)), 're_tests
#?rakudo skip '(?>...) not implemented'
is(("_I(round(xs * sz),1)" ~~ rx:P5/round\(((?>[^()]+))\)/ && $0), "xs * sz", 're_tests 1110/1 (1314)');
ok(("foo.bart" ~~ rx:P5/foo.bart/), 're_tests 1112 (1316)');
-#?rakudo skip '(?m) not implemented'
ok(("abcd\ndxxx" ~~ rx:P5/(?m)^d[x][x][x]/), 're_tests 1114 (1318)');
#?rakudo 18 skip 'expensive quantifier'
#?pugs todo "pugs regression"
@@ -107,11 +106,9 @@ ok((not ("aaaXbX" ~~ rx:P5/\GX.*X/)), 're_tests 1162 (1366)');
is(("3.1415926" ~~ rx:P5/(\d+\.\d+)/ && $0), "3.1415926", 're_tests 1163/1 (1367)');
is(("have a web browser" ~~ rx:P5/(\ba.{0,10}br)/ && $0), "a web br", 're_tests 1165/1 (1369)');
ok((not ("Changes" ~~ rx:P5/(?i)\.c(pp|xx|c)?$/)), 're_tests 1167 (1371)');
-#?rakudo 2 skip '(?i) not implemented'
ok(("IO.c" ~~ rx:P5/(?i)\.c(pp|xx|c)?$/), 're_tests 1169 (1373)');
is(("IO.c" ~~ rx:P5/(?i)(\.c(pp|xx|c)?$)/ && $0), ".c", 're_tests 1171/1 (1375)');
ok((not ("C:/" ~~ rx:P5/^([a-z]:)/)), 're_tests 1173 (1377)');
-#?rakudo skip '(?m) not implemented'
ok(("\nx aa" ~~ rx:P5/(?m)^\S\s+aa$/), 're_tests 1175 (1379)');
ok(("ab" ~~ rx:P5/(^|a)b/), 're_tests 1176 (1380)');
ok((not ("abcab" ~~ rx:P5/(\w)?(abc)\1b/)), 're_tests 1178 (1382)');
View
@@ -63,7 +63,6 @@ is split(rx:Perl5 {\s+}, "Hello World Goodbye Mars").join(','),
qw/Hello World Goodbye Mars/.join(','),
q/split rx:Perl5 {\s+}, Str/;
-#?rakudo skip 'FixedIntegerArray: index out of bounds!'
#?niecza skip 'rx:Perl5'
is split(rx:Perl5 {(\s+)}, "Hello test", :all).join(','),
('Hello', ("Hello test" ~~ rx:Perl5 {(\s+)}), 'test').join(','),
@@ -73,7 +72,6 @@ is "to be || ! to be".split(' ').join(','),
<to be || ! to be>.join(','),
q/Str.split(' ')/;
-#?rakudo skip 'rx:Perl5'
#?niecza skip 'rx:Perl5'
is "this will be split".split(rx:Perl5 { }).join(','),
<this will be split>.join(','),

0 comments on commit ed4fe0e

Please sign in to comment.