Fudge and fix tests for rakudo master (ng branch). That branch will

be permanently set to this commit of the spectests, at least for
a while.

S06-signature/arity.t

@@ -29,9 +29,11 @@ is &a_four.count,   4, '4 count &foo';
 
 is &o_zero.arity,   0, 'arity 0 sub with optional params';
 is &o_one.arity,    1, 'arity 1 sub with optional params';
+#?rakudo todo "temporary fudge for master"
 is &o_two.arity,    1, 'arity with optional and required named params';
 
 is &o_zero.count,   2, 'count on sub with optional params';
+#?rakudo 2 todo "temporary fudge for master"
 is &o_one.count,    1, 'count on sub with optional params';
 is &o_two.count,    1, 'count on sub with optional and required named params';
 

S12-methods/attribute-params.t

@@ -22,6 +22,7 @@ is  $x.s,         'foo', '... and it set the attribute';
 
 nok $x.a,             'array attribute starts empty';
 is  $x.sa([1, 2]), 4, 'array attributive paramed method returns the right thing';
+#?rakudo todo 'temporary fudge for master'
 is  $x.a.join('|'), '1|2', 'array param set correctly';
 
 nok $x.h,             'hash attribute starts empty';

S32-num/real-bridge.t

@@ -1,6 +1,6 @@
 use v6;
 use Test;
-plan 201;
+plan 200;
 
 =begin pod
 
@@ -281,7 +281,6 @@ is $neg-pi.exp, (-3.14).exp, "-3.14.exp is correct";
 is $one-and-one-hundredth.exp(10.Rat), 1.01.exp(10), "1.01.exp(10) is correct";
 is 2.exp($neg-pi), 2.exp(-3.14), "2.exp(-3.14) is correct";
 is_approx $one-and-one-hundredth.exp(10i), 1.01.exp(10i), "1.01.exp(10i) is correct";
-ok 2i.exp($neg-pi) ~~ NaN, "2i.exp(-3.14) is correct";
 
 {
     my @l = $neg-pi.roots(4);

S32-str/capitalize.t

@@ -38,7 +38,6 @@ is capitalize("a\c[COMBINING DOT ABOVE, COMBINING DOT BELOW] bc"),
 # rest of the tests are moved from uc.t
 is ~(0.capitalize), ~0, '.capitalize on Int';
 
-#?rakudo todo "Roles do not behave as this test expects yet"
 #?niecza skip "but"
 {
     role A {

S32-str/substr.t

@@ -141,7 +141,7 @@ sub l (Int $a) {  my $l = $a; return $l }
     is(substr($str, 1, l(2)), "oo", "arbitrary middle (substr(Int, StrLen)).");
     is(substr($str, 3, l(6)), "bar", "length goes past end (substr(Int, StrLen)).");
     ok(!defined(substr($str, 20, l(5))), "substr outside of string (substr(Int, StrLen)).");
-#?rakudo 5 skip 'whatever closure'
+#?rakudo skip 'whatever closure'
     ok(!defined(substr($str, *-100, l(5))), "... on the negative side (substr(Int, StrLen)).");
 
     is($str, "foobar", "original string still not changed (substr(Int, StrLen)).");