Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

nom (un)fudge

  • Loading branch information...
commit f1a4d8af009a779500753562ba3b570ed22777a3 1 parent cffa7e5
@coke coke authored
View
6 S03-sequence/arity-2-or-more.t
@@ -13,7 +13,6 @@ is (1, 1, &[+] ... *).[^6].join(', '), '1, 1, 2, 3, 5, 8', 'arity-2 Fibonacci, u
is (0, 1, { $^a + $^b } ... *).[^7].join(', '), '0, 1, 1, 2, 3, 5, 8', 'arity-2 Fibonacci, 0 1 seeds';
is (1, 1, 2, -> $a, $b { $a + $b } ... *).[^6].join(', '), '1, 1, 2, 3, 5, 8', 'arity-2 Fibonacci, 3 seeds';
is (1, 1, 2, 3, { $^a + $^b } ... *).[^6].join(', '), '1, 1, 2, 3, 5, 8', 'arity-2 Fibonacci, 4 seeds';
-#?rakudo skip 'unknown'
is (0, 1, 1, 2, 3, { $^a + $^b } ... *).[^7].join(', '), '0, 1, 1, 2, 3, 5, 8', 'arity-2 Fibonacci, 5 seeds';
# some tests which exactly hit a limit
@@ -22,8 +21,8 @@ is (1, 1, { $^a + $^b } ... 8).join(', '), '1, 1, 2, 3, 5, 8', 'arity-2 Fibonacc
is (1, 1, 2, -> $a, $b { $a + $b } ... 8).join(', '), '1, 1, 2, 3, 5, 8', 'arity-2 Fibonacci, 3 seeds';
is (1, 1, 2, 3, { $^a + $^b } ... 8).join(', '), '1, 1, 2, 3, 5, 8', 'arity-2 Fibonacci, 4 seeds';
# adapted from http://www.perlmonks.org/?node_id=772778
-#?rakudo 2 skip '&[%]'
is (42, 24, &[%] ... 0)[*-2], 6, 'arity-2 GCD';
+#####?rakudo skip '&[%]'
is (42, 24, &[%] ...^ 0)[*-1], 6, 'arity-2 GCD with excluded limit';
is (42, 24, * % * ... 0)[*-2], 6, 'arity-2 GCD';
is (42, 24, * % * ...^ 0)[*-1], 6, 'arity-2 GCD with excluded limit';
@@ -35,7 +34,7 @@ is (1, 1, 2, -> $a, $b { $a + $b } ... 9).[^7].join(', '), '1, 1, 2, 3, 5, 8, 13
is (1, 1, 2, 3, { $^a + $^b } ... 9).[^7].join(', '), '1, 1, 2, 3, 5, 8, 13', 'arity-2 Fibonacci, 4 seeds';
# sequence with slurpy functions
-
+#?rakudo skip 'nom regression'
{
sub nextprime( *@prev_primes ) {
my $current = @prev_primes[*-1];
@@ -44,6 +43,7 @@ is (1, 1, 2, 3, { $^a + $^b } ... 9).[^7].join(', '), '1, 1, 2, 3, 5, 8, 13', 'a
}
is (2, &nextprime ... 13).join(' '), '2 3 5 7 11 13', 'slurpy prime generator';
}
+#?rakudo skip 'nom regression'
is (1, 2, sub {[*] @_[*-1], @_ + 1} ... 720).join(' '), '1 2 6 24 120 720', 'slurpy factorial generator';
done;
View
4 S05-metasyntax/charset.t
@@ -56,14 +56,16 @@ ok( "foo" ~~ /<[f] #`[comment] + [o]>/, 'comment embedded in charset works' );
#?rakudo skip 'large \\x char spec in regex (RT #67122) (noauto)'
ok "\x[10001]" ~~ /<[\x10000..\xEFFFF]>/, 'large \\x char spec';
-#?rakudo todo 'RT 71702: lethal reverse range in charset'
+#?rakudo skip 'RT 71702: lethal reverse range in charset'
eval_dies_ok( "'RT 71702' ~~ /<[d..b]>? RT/",
'reverse range in charset is lethal (RT 71702)' );
# RT #64220
+#?rakudo skip 'nom regression'
ok 'b' ~~ /<[. .. b]>/, 'weird char class matches at least its end point';
# RT #69682
+#?rakudo skip 'nom regression'
{
eval "/<[a-z]>/";
ok ~$! ~~ / 'Unsupported use of - as character range; in Perl 6 please use ..'/,
View
1  S12-methods/what.t
@@ -61,6 +61,7 @@ This test tests the C<WHAT> builtin.
ok &infix:<+>.WHAT ~~ Multi, '.WHAT of built-in infix op is Multi (RT 66928)';
# RT #69915
+#?rakudo skip 'nom regression'
{
sub rt69915f( $a, $b ) { return WHAT($a).gist ~ '~' ~ WHAT($b).gist }
sub rt69915m( $a, $b ) { return $a.WHAT.gist ~ '~' ~ $b.WHAT.gist }
Please sign in to comment.
Something went wrong with that request. Please try again.