pugs fudge

Raku · Mar 24, 2013 · db2d159 · db2d159
1 parent b43c99f
commit db2d159
Show file tree

Hide file tree

Showing 6 changed files with 6 additions and 3 deletions.
diff --git a/S02-magicals/sub.t b/S02-magicals/sub.t
@@ -25,6 +25,7 @@ sub postfix:<!!!> (Int $n) { $n < 2 ?? 1 !! $n * &?ROUTINE($n - 1) }
 my $result3 = 3!!!;
 is($result3, 6, 'the &?ROUTINE magical works correctly in overloaded operators' );
 
+#?pugs skip 'ROUTINE'
 {
     my $variable;
     my regex foo { a { $variable = &?ROUTINE; } }

diff --git a/S03-operators/assign.t b/S03-operators/assign.t
@@ -959,9 +959,9 @@ sub l () { 1, 2 };
 }
 
 # RT #77174
-#?pugs todo
 {
     my @a //= (3);
+    #?pugs todo
     is @a, "";
     my @b ||= (3);
     is @b, "3";

diff --git a/S03-operators/range.t b/S03-operators/range.t
@@ -245,7 +245,6 @@ is (1..6 Z 'a' .. 'c').join, '1a2b3c',   'Ranges and infix:<Z>';
 
 # Lists are allowed on the rhs if the lhs is numeric (Real):
 #?niecza todo 'allow List as rhs endpoint'
-#?pugs todo
 is ~(2 .. [<a b c d e>]), "2 3 4 5", '2 .. @list is legal';
 
 # RT #68788

diff --git a/S04-statements/terminator.t b/S04-statements/terminator.t
@@ -41,6 +41,7 @@ eval_dies_ok('my $x = ', 'incomplete expression');
                 + 2 ];
     ';
 
+    #?pugs todo
     is($z[0], 2, 'auto-curly applies inside array composer');
 }
 

diff --git a/S05-metasyntax/charset.t b/S05-metasyntax/charset.t
@@ -39,7 +39,6 @@ is($0, 'y', 'Difference set capture');
 # RT #115802
 #?pugs todo
 ok(  "abc" ~~ m/<[\w]-[\n]>/,  'Difference set match 1');
-#?pugs todo
 ok(!("abc" ~~ m/<[\w]-[\N]>/), 'Difference set match 2');
 #?pugs todo
 is(("abc123" ~~ m/<[\w]-[a\d]>+/), 'bc', 'Difference set match 3');

diff --git a/S06-operator-overloading/imported-subs.t b/S06-operator-overloading/imported-subs.t
@@ -41,8 +41,11 @@ BEGIN { @*INC.push: 't/spec/packages' };
     dies_ok { eval('3 notthere 4') }, 'not-exported operator was not imported';
 
     {
+        #?pugs emit #
         my $fail = try eval q{3 notthere 4};
+        #?pugs skip 'eek'
         ok $! ~~ X::Syntax::Confused, 'not imported operator fails with X::Syntax::Confused.';
+        #?pugs skip 'eek'
         is $!.reason, "Two terms in a row", 'the reason is "Two terms in a row"';
     }
 }