Some more unfudges and skip->todo changes

Author: lizmat

S04-statements/do.t

@@ -82,7 +82,7 @@ eval_lives_ok 'my $i = 1; do { $i++ } if $i;',
 }
 
 # L<S04/The do-once loop/"can take" "loop control statements">
-#?rakudo skip 'next() should also work on do blocks (?)'
+#?rakudo skip 'next without loop construct'
 {
     my $i;
     do {
@@ -93,7 +93,7 @@ eval_lives_ok 'my $i = 1; do { $i++ } if $i;',
     is $i, 1, "'next' works in 'do' block";
 }
 
-#?rakudo 3 skip "labels"
+#?rakudo 3 skip "Undeclared name A"
 #?pugs 3 todo
 is eval('my $i; A: do { $i++; last A; $i-- }; $i'), 1,
     "'last' works with label";
@@ -102,7 +102,7 @@ is eval('my $i; A: do { $i++; next A; $i-- }; $i'), 1,
 is eval('my $i; A: do { $i++; redo A until $i == 5; $i-- }; $i'), 4,
     "'redo' works with label";
 
-#?rakudo skip 'last not implemented'
+#?rakudo skip 'last without loop construct'
 {
     is eval('
         my $i;
@@ -118,7 +118,7 @@ is eval('my $i; A: do { $i++; redo A until $i == 5; $i-- }; $i'), 4,
 # IRC notes:
 # <agentzh> audreyt: btw, can i use redo in the do-once loop?
 # <audreyt> it can, and it will redo it
-#?rakudo skip 'redo not implemented'
+#?rakudo skip 'redo without loop construct'
 {
     is eval('
         my $i;

S04-statements/for.t

@@ -490,10 +490,10 @@ eval_dies_ok('for(0..5) { }','keyword needs at least one whitespace after it');
 }
 
 # RT #64886
-#?rakudo skip "Nom doesn't feature lazily for looping over a range yet?"
+#?rakudo skip 'maybe bogus, for loops are not supposed to be lazy?'
 {
     my $a = 0;
-    for (1..10000000000) {
+    for 1..10000000000 {
         $a++;
         last;
     }

S05-capture/dot.t

@@ -96,23 +96,24 @@ grammar Russian { regex name { ivan } }
 ok("john" ~~ m/<.English::name> | <.French::name> | <.Russian::name>/, 'English name');
 is(~$/, "john", 'Match is john');
 ok($/ ne "jean", "Match isn't jean");
-#?rakudo 8 skip 'wrong tests? needs review'
+#?rakudo todo 'needs review'
 is(~$/<name>, "john", 'Name is john');
 
 ok("jean" ~~ m/<.English::name> | <.French::name> | <.Russian::name>/, 'French name');
 is(~$/, "jean", 'Match is jean');
+#?rakudo todo 'needs review'
 is(~$/<name>, "jean", 'Name is jean');
 
 ok("ivan" ~~ m/<.English::name> | <.French::name> | <.Russian::name>/, 'Russian name');
 is(~$/, "ivan", 'Match is ivan');
+#?rakudo todo 'needs review'
 is(~$/<name>, "ivan", 'Name is ivan');
 
 my regex name { <.English::name> | <.French::name> | <.Russian::name> }
 
 ok("john" ~~ m/<name>/, 'English metaname');
 is(~$/, "john", 'Metaname match is john');
 ok(~$/ ne "jean", "Metaname match isn't jean");
-#?rakudo todo 'unknown'
 is(~$/<name>, "john", 'Metaname is john');
 
 

S05-capture/match-object.t

@@ -40,10 +40,12 @@ nok $/.Bool,                    'failed match is False';
 is  $/.Str,          '',        'false match stringifies to empty string';
 
 my $c;
-#?rakudo 3 skip 'Non-declarative sigil is missing its name at line 1, near "$\x{a2} }/\n"'
+#?rakudo skip 'Unsupported use of $¢ variable'
 #?pugs todo
 ok 'abc' ~~ /.{ $c = $¢ }/,     'current match state';
+#?rakudo todo 'Unsupported use of $¢ variable'
 #?pugs skip 'Cursor'
 is $c.WHAT.gist, Cursor.gist,   'got right type';
+#?rakudo skip "No such method pos for invocant of type Any"
 #?pugs skip 'Scalar.pos'
 ok defined($c.pos),             '.pos';

S05-mass/properties-block.t

@@ -901,7 +901,6 @@ ok(!( "\x[D062]"  ~~ m/^<:InLatin1Supplement>$/ ), q{Don't match unrelated <InLa
 ok("\x[D062]"  ~~ m/^<:!InLatin1Supplement>$/, q{Match unrelated negated <InLatin1Supplement>} );
 #?pugs todo
 ok("\x[D062]"  ~~ m/^<-:InLatin1Supplement>$/, q{Match unrelated inverted <InLatin1Supplement>} );
-#?rakudo skip "Malformed UTF-8 string"
 #?pugs todo
 ok("\x[D062]\x[0080]" ~~ m/<:InLatin1Supplement>/, q{Match unanchored <InLatin1Supplement>} );
 

S05-mass/properties-derived.t

@@ -74,16 +74,15 @@ ok(!( "\x[3A18]"  ~~ m/^<:Extender>$/ ), q{Don't match unrelated <Extender>} );
 ok("\x[3A18]"  ~~ m/^<:!Extender>$/, q{Match unrelated negated <Extender>} );
 #?pugs todo
 ok("\x[3A18]"  ~~ m/^<-:Extender>$/, q{Match unrelated inverted <Extender>} );
-#?rakudo skip "Malformed UTF-8 string"
 #?pugs todo
 ok("\x[3A18]\c[MIDDLE DOT]" ~~ m/<:Extender>/, q{Match unanchored <Extender>} );
 
 # GraphemeLink
 
 
-#?rakudo 7 skip "isGraphemeLink"
 #?niecza todo
 #?pugs todo
+#?rakudo 3 todo "isGraphemeLink"
 ok("\c[COMBINING GRAPHEME JOINER]" ~~ m/^<:GraphemeLink>$/, q{Match <:GraphemeLink>} );
 ok(!( "\c[COMBINING GRAPHEME JOINER]" ~~ m/^<:!GraphemeLink>$/ ), q{Don't match negated <GraphemeLink>} );
 #?niecza todo
@@ -95,6 +94,7 @@ ok("\x[4989]"  ~~ m/^<:!GraphemeLink>$/, q{Match unrelated negated <GraphemeLink
 ok("\x[4989]"  ~~ m/^<-:GraphemeLink>$/, q{Match unrelated inverted <GraphemeLink>} );
 #?niecza todo
 #?pugs todo
+#?rakudo todo "isGraphemeLink"
 ok("\x[4989]\c[COMBINING GRAPHEME JOINER]" ~~ m/<:GraphemeLink>/, q{Match unanchored <GraphemeLink>} );
 
 # HexDigit