some nom fudges

Author: moritz

S03-sequence/arity-2-or-more.t

@@ -13,6 +13,7 @@ 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
@@ -21,6 +22,7 @@ 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';
 is (42, 24, &[%] ...^ 0)[*-1], 6, 'arity-2 GCD with excluded limit';
 is (42, 24, * % * ... 0)[*-2], 6, 'arity-2 GCD';

S12-class/instantiate.t

@@ -30,6 +30,7 @@ is($foo2.check(), 42, 'initializing attributes in new');
 
     eval 'NoSuch::Subclass.new()';
     ok  $!  ~~ Exception, 'death to instantiating nonexistent::class';
+    #?rakudo todo 'error reporting'
     ok "$!" ~~ / 'NoSuch::Subclass' /,
        'error for "NoSuch::Subclass.new()" mentions NoSuch::Subclass';
 }
@@ -42,7 +43,6 @@ is($foo2.check(), 42, 'initializing attributes in new');
     class Foo { };
     my $x = 'Foo';
     my $y = $x.new;
-    #?rakudo todo 'instantiating from class name string unexpectedly creates a class object'
     is($y.WHAT, Str, "instantiating from class name string creates a Str object");
 }