rakudo unfudge

move some skips to (conditional) todos, run more passing tests.
Raku · Apr 5, 2013 · 33955a8 · 33955a8
1 parent ea0bc1d
commit 33955a8
Show file tree

Hide file tree

Showing 5 changed files with 7 additions and 5 deletions.
diff --git a/S02-lexical-conventions/comments.t b/S02-lexical-conventions/comments.t
@@ -128,7 +128,7 @@ use Test;
     # comment() before seeing that I meant #`{ comment within this string.
 
 #?pugs todo 'bug'
-#?rakudo skip 'NYI'
+#?rakudo todo 'NYI'
     eval_lives_ok " #`<<\n comment\n # >>\n >> 3",
         'single line comment cannot correctly nested within multiline';
 }

diff --git a/S02-literals/quoting.t b/S02-literals/quoting.t
@@ -527,7 +527,6 @@ Hello, World
 }
 
 # shorthands:
-#?rakudo skip 'quoting adverbs'
 #?niecza skip '& escape, zen slices'
 #?pugs skip 'parsefail'
 {
@@ -538,10 +537,14 @@ Hello, World
     sub zeta {42};
 
     is(qw[a b], <a b>, 'qw');
+    #?rakudo todo 'quoting adverbs'
     is(qww[$alpha $beta], <foo bar>, 'qww');
     is(qq[$alpha $beta], 'foo bar', 'qq');
+    #?rakudo todo 'quoting adverbs'
     is(Qs[$alpha @delta[] %gamma<>], 'foo @delta %gamma', 'Qs');
+    #?rakudo todo 'quoting adverbs'
     is(Qa[$alpha @delta[] %gamma<>], '$alpha ' ~ @delta ~ ' %gamma', 'Qa');
+    #?rakudo todo 'quoting adverbs'
     is(Qh[$alpha @delta[] %gamma<>], '$alpha @delta ' ~ %gamma, 'Qh');
     is(Qf[$alpha &zeta()], '$alpha 42', 'Qf');
     is(Qb[$alpha\t$beta], '$alpha	$beta', 'Qb');

diff --git a/S02-literals/radix.t b/S02-literals/radix.t
@@ -187,7 +187,7 @@ is( :2<1.1> * :2<10> ** :2<10>,             6, 'multiplication and exponentiatio
 {
     #?pugs todo "todo"
     is( :2<1.1*2**10>,                   1536, 'Power of two in <> works');
-    #?rakudo skip "Really?!"
+    #?rakudo todo "Really?!"
     #?niecza skip "WTF?"
     #?pugs skip "todo"
     is( 2«1.1*:2<10>**:2<10>»,    6, 'Powers of two in <<>> works');

diff --git a/S02-names-vars/varnames.t b/S02-names-vars/varnames.t
@@ -17,7 +17,6 @@ eval_lives_ok 'my proto $/', 'as can $/';
 eval_dies_ok 'my $f!ao = "beh";', "normal varnames can't have ! in their name";
 eval_dies_ok 'my $fo:o::b:ar = "bla"', "var names can't have colons in their names either";
 
-#?rakudo skip 'binding to $/ (questionable?)'
 #?pugs skip "Can't modify constant item: VObject"
 {
     class MyMatch {

diff --git a/S03-junctions/misc.t b/S03-junctions/misc.t
@@ -392,7 +392,7 @@ ok Mu & Mu ~~ Mu, 'Mu & Mu ~~ Mu works';
 }
 
 # RT #63126
-#?rakudo skip 'nom regression'
+#?rakudo todo 'nom regression'
 #?DOES 2
 {
     my @a = "foo", "foot";