rakudo unfudges

Author: moritz

S02-types/num.t

@@ -12,10 +12,8 @@ isa_ok( eval(0.Num.perl), Num, 'eval 0.Num.perl is Num' );
 is_approx( eval(0.Num.perl), 0, 'eval 0.Num.perl is 0' );
 isa_ok( eval((-1).Num.perl), Num, 'eval -1.Num.perl is Num' );
 is_approx( eval((-1).Num.perl), -1, 'eval -1.Num.perl is -1' );
-#?rakudo todo "Num.perl generates a Rat"
 isa_ok( eval(1.1.Num.perl), Num, 'eval 1.1.Num.perl is Num' );
 is_approx( eval(1.1.perl), 1.1, 'eval 1.1.Num.perl is 1.1' );
-#?rakudo todo "Num.perl generates a Rat"
 isa_ok( eval((-1.1).Num.perl), Num, 'eval -1.1.Num.perl is Num' );
 is_approx( eval((-1.1).perl), -1.1, 'eval -1.1.Num.perl is -1.1' );
 isa_ok( eval(1e100.Num.perl), Num, 'eval 1e100.Num.perl is Num' );

S06-signature/named-parameters.t

@@ -228,7 +228,7 @@ nok(%fellowship<dwarf>.defined, "dwarf arg was not given");
 #?niecza 4 todo "sub params with the same name"
 eval_dies_ok 'sub rt68086( $a, $a ) { }', 'two sub params with the same name';
 
-#?rakudo 3 todo 'sub params with the same name'
+#?rakudo 2 todo 'sub params with the same name'
 eval_dies_ok 'sub svn28865( $a, :a($b) ) {}',
              'sub params with the same name via renaming';
 eval_dies_ok 'sub svn28865( $a, :a(@b) ) {}',

S12-attributes/instance.t

@@ -320,12 +320,10 @@ is Foo7e.new.attr, 42, "default attribute value (1)";
     is $b.y, 2, 'attribute cloned';
     $b.x = 3;
     is $b.x, 3, 'changed attribute on clone...';
-    #?rakudo 2 todo 'clone'
     #?niecza todo "original not affected"
     is $a.x, 1, '...and original not affected';
     my $c = $a.clone(x => 42);
     is $c.x, 42, 'clone with parameters...';
-    #?rakudo todo 'clone'
     #?niecza todo "original not affected"
     is $a.x, 1, '...leaves original intact...';
     is $c.y, 2, '...and copies what we did not change.';