Various Rakudo unfudges.

Author: jnthn

S02-literals/listquote.t

@@ -29,7 +29,6 @@ eval_dies_ok '({:a<1>, :b(2)} <a b c>)', '{...} <...> parsefail';
 ok( ?((1 | 3) < 3), '(...) < 3 no parsefail');
 
 #?pugs todo 'parsing bug'
-#?rakudo todo 'parsing'
 eval_dies_ok '(1 | 3)<3', '()<3 parsefail';
 
 # WRONG: should be parsed as print() < 3

S02-literals/quoting.t

@@ -144,7 +144,7 @@ Note that non-ASCII tests are kept in quoting-unicode.t
 };
 
 # L<S02/Interpolating into a single-quoted string/using the \qq>
-#?rakudo skip 'q[..] with variations'
+
 { # \qq[] constructs interpolate in q[]
     my ( @q1, @q2, @q3, @q4 ) = ();
     @q1 = q[$foo \qq[$bar]];
@@ -197,7 +197,7 @@ Note that non-ASCII tests are kept in quoting-unicode.t
     is(@q[1], '$bar', '...');
 };
 
-#?rakudo skip 'q:w'
+
 { # adverb variation
     my @q = ();
     @q = (q:w/$foo $bar/);
@@ -206,7 +206,6 @@ Note that non-ASCII tests are kept in quoting-unicode.t
     is(@q[1], '$bar', "...");
 };
 
-#?rakudo skip 'q:w'
 { # whitespace sep aration does not break quote constructor
   # L<S02/Whitespace before adverbs/Whitespace is allowed between the "q" and its adverb: q :w /.../.>
     my @q = ();
@@ -216,8 +215,6 @@ Note that non-ASCII tests are kept in quoting-unicode.t
     is(@q[1], '$bar', "...");
 };
 
-
-#?rakudo skip 'quoting with adverbs'
 { # qq:w,Interpolating quote constructor with words adverb
   # L<S02/Adverbs on quotes/"Split result on words (no quote protection)">
     my (@q1, @q2) = ();
@@ -231,7 +228,6 @@ Note that non-ASCII tests are kept in quoting-unicode.t
     is(~@q2, 'FOO "gorch BAR"', "long form output is the same as the short");
 };
 
-#?rakudo skip 'quoting with adverbs'
 #?niecza todo
 { # qq:ww, interpolating L<S02/Literals/double angles do interpolate>
   # L<S02/Forcing item context/"implicit split" "shell-like fashion">
@@ -241,6 +237,7 @@ Note that non-ASCII tests are kept in quoting-unicode.t
     @q3 = <<$foo "gorch $bar">>; # texas
     @q4 = qq:quotewords/$foo "gorch $bar"/; # long
 
+    #?rakudo 4 todo 'some ww issue'
     is(+@q1, 2, 'qq:ww// correct number of elements');
     is(+@q2, 2, 'french double angle');
     is(+@q3, 2, 'texas double angle');
@@ -260,7 +257,7 @@ Note that non-ASCII tests are kept in quoting-unicode.t
     is <<a $rt65654 z>>.elems, 4, 'interpolate variable with spaces (Texas)';
 }
 
-#?rakudo skip '«...»'
+#?rakudo todo '«...»'
 #?niecza todo
 {
     #L<S02/Forcing item context/"relationship" "single quotes" "double angles">
@@ -364,7 +361,6 @@ FOO
     is(@q[0].perl, (p => "moose").perl, ":pair<anglequoted>");
 };
 
-#?rakudo skip '\c97 etc'
 { # weird char escape sequences
     is("\c97", "a", '\c97 is "a"');
     is("\c102oo", "foo", '\c102 is "f", works next to other letters');
@@ -376,7 +372,8 @@ FOO
 
     is("\x41", "A", 'hex interpolation - \x41 is "A"');
     is("\o101", "A", 'octal interpolation - \o101 is also "A"' );
-
+    
+    #?rakudo 3 skip '\c@ etc'
     is("\c@", "\0", 'Unicode code point "@" converts correctly to "\0"');
     is("\cA", chr(1), 'Unicode "A" is #1!');
     is("\cZ", chr(26), 'Unicode "Z" is chr 26 (or \c26)');
@@ -420,7 +417,6 @@ Hello, World
 }
 
 # q:b
-#?rakudo skip 'quoting adverbs'
 #?pugs skip 'parsefail'
 {
     my $t = q:b /\n\n\n/;
@@ -433,9 +429,8 @@ Hello, World
 }
 
 # q:x
-#?rakudo skip 'q:x'
 {
-    my $result = %*VM.perl ~~ /MSWIN32/ ?? "hello\r\n" !! "hello\n";
+    my $result = $*OS ~~ /:i win32/ ?? "hello\r\n" !! "hello\n";
     is q:x/echo hello/, $result, "Testing for q:x operator.";
 }
 # utf8
@@ -446,21 +441,20 @@ Hello, World
     is q:x/echo 一/, "一\n", "Testing for q:x operator. (utf8)";
 }
 
-#?rakudo skip 'qq:x'
 {
     my $world = 'world';
-    is qq:x/echo hello $world/, "hello world\n", 'Testing qq:x operator';
+    ok qq:x/echo hello $world/ ~~ /^'hello world'\n$/, 'Testing qq:x operator';
 }
 
-#?rakudo skip 'q:x assigned to array'
+#?rakudo todo 'q:x assigned to array'
 #?niecza todo ':x'
 #?pugs todo
 {
     my @two_lines = q:x/echo hello ; echo world/;
     is @two_lines, ("hello\n", "world\n"), 'testing q:x assigned to array';
 }
 
-#?rakudo skip 'q:x assigned to array'
+#?rakudo todo 'q:x assigned to array'
 #?niecza todo ':x'
 #?pugs todo
 {
@@ -472,7 +466,6 @@ Hello, World
 
 # L<S02/Adverbs on quotes/"Interpolate % vars">
 # q:h
-#?rakudo skip 'quoting adverbs'
 #?niecza todo
 {
     # Pugs can't parse q:h currently.
@@ -483,7 +476,6 @@ Hello, World
 }
 
 # q:f
-#?rakudo skip 'quoting adverbs'
 #?niecza skip '& escape'
 {
     my sub f { "hello" };
@@ -504,15 +496,13 @@ Hello, World
 }
 
 # q:a
-#?rakudo skip 'quoting adverbs'
 {
     my @t = qw/a b c/;
     my $s = q:a /@t[]/;
     is $s, ~@t, "Testing for q:a operator.";
 }
 
 # q:s
-#?rakudo skip 'quoting adverbs'
 {
     my $s = "someone is laughing";
     my $t = q:s /$s/;
@@ -524,7 +514,6 @@ Hello, World
 }
 
 # multiple quoting modes
-#?rakudo skip 'quoting adverbs'
 {
     my $s = 'string';
     my @a = <arr1 arr2>;

S03-operators/subscript-vs-lt.t

@@ -16,7 +16,6 @@ plan 4;
 
 eval_lives_ok "1 <2", "infix less-than (<) requires whitespace before.";
 eval_lives_ok  "1 < 2" , "infix less-than (<) requires whitespace before.";
-#?rakudo 2 todo 'parsing'
 #?pugs 2 todo 'parsing'
 eval_dies_ok("1< 2", "infix less-than (<) requires whitespace before, so this is a parse error.");
 eval_dies_ok("1<2", "infix less-than (<) requires whitespace before, so this is a parse error.");