niecza (auto)unfudge

S03-operators/arith.t

@@ -97,7 +97,6 @@ tryeq 2147483647 - 0, 2147483647;
 tryeq 0 - -2147483647, 2147483647;
 
 # No warnings should appear;
-#?niecza skip "undefine NYI"
 {
     my $a;
     $a += 1;
@@ -119,7 +118,6 @@ tryeq 0 - -2147483647, 2147483647;
     tryeq $a, -4294967297;
 }
 
-#?niecza skip "undefine NYI"
 {
     my $s;
     $s -= 1;

S03-operators/assign.t

@@ -101,7 +101,6 @@ plan 283;
 }
 
 #?pugs skip "skipping assignment with skipped values via * in lvalue"
-#?niecza skip "skipping assignment with skipped values via * in lvalue"
 {
     # testing list assignments with skipped values
      my ($one, $two, $three, $four);
@@ -618,12 +617,12 @@ sub l () { 1, 2 };
     is(@z.elems, 6, 'lhs treats ($a) as list');
 }
 
-#?niecza skip 'assigning to ($a, *)'
 {
     my $a;
     my @z = (($a, *) = l, l, l);
     is($a.elems, 1, 'lhs treats ($a, *) as list (1)');
     #?rakudo todo 'list assignment with ($var, *)'
+    #?niecza todo 'assigning to ($a, *)'
     is(@z.elems, 6, 'lhs treats ($a, *) as list (2)');
 }
 

S03-smartmatch/any-hash-pair.t

@@ -9,7 +9,6 @@ plan 7;
     ok !(%a ~~ b => 'ugh'),         '%hash ~~ Pair (Str, -)';
     ok  (%a ~~ a => 1.0),           '%hash ~~ Pair (Num, +)';
     ok  (%a ~~ :b<foo>),            '%hash ~~ Colonpair';
-    #?niecza skip 'Nominal type check failed in binding anon_8 in MAIN C3_ANON'
     ok  (%a ~~ c => !*.defined),    '%hash ~~ Pair (!*.defined, Mu)';
     ok  (%a ~~ d => !*.defined),    '%hash ~~ Pair (!*.defined, Nil)';
     ok !(%a ~~ a => 'foo'),         '%hash ~~ Pair (key and val not paired)';

S05-match/capturing-contexts.t

@@ -8,10 +8,11 @@ plan 36;
 
 # old: L<S05/Return values from matches/"A match always returns a Match object" >
 # L<S05/Match objects/"A match always returns a " >
-#?niecza skip 'match returns match object'
 {
   my $match = 'abd' ~~ m/ (a) (b) c || (\w) b d /;
+  #?niecza todo 'match returns match object'
   isa_ok( $match, 'Match', 'Match object returned');
+  #?niecza todo 'match returns match object'
   isa_ok( $/, 'Match', 'Match object assigned to $/');
   ok( $/ === $match, 'Same match objects');
 }

S06-operator-overloading/sub.t

@@ -334,7 +334,6 @@ Testing operator overloading subroutines
 
 # taken from S06-operator-overloading/method.t
 #?rakudo skip 'unknown errors'
-#?niecza skip 'lots o errors'
 {
     class Bar {
         has $.bar is rw;
@@ -357,6 +356,7 @@ Testing operator overloading subroutines
             $foo.bar = 'software';
             $val = $foo + $foo;
         }, '... class methods work for class';
+        #?niecza todo '... basic infix operator overloading worked'
         is($val, 'software software', '... basic infix operator overloading worked');
     }
 
@@ -371,10 +371,13 @@ Testing operator overloading subroutines
 
         my @foo = ($obj, $obj, $obj);
         my $res;
+        #?niecza todo "stringification didn't die"
         lives_ok { $res = ~@foo }, "stringification didn't die";
+        #?niecza todo "... worked in array stringification"
         is $res, "pugs pugs pugs", "stringification overloading worked in array stringification";
-
+        #?niecza todo "... with hyperization"
         lives_ok { $res = ~[@foo »~« "!"] }, "stringification with hyperization didn't die";
+        #?niecza todo "... was hyperized"
         is $res, "pugs! pugs! pugs!", "stringification overloading was hyperized correctly";
     }
 

S12-attributes/instance.t

@@ -522,7 +522,6 @@ is Foo7e.new.attr, 42, "default attribute value (1)";
     is CodeAttr3.new.f, 'OH HAI', '&!m = method { ... } and self.&!m() work';
 }
 
-#?niecza skip "Action method trait_mod:does not yet implemented"
 {
     # from t/oo/class_inclusion_with_inherited_class.t
     # used to be a pugs regression