[t/spec] Change more Pugs todo flags to fudge commands

git-svn-id: http://svn.pugscode.org/pugs@27147 c213334d-75ef-0310-aa23-eaa082d1ae64

S02-builtin_data_types/sigils-and-types.t

@@ -74,7 +74,8 @@ for <List Seq Range Buf Capture> -> $c {
 }
 
 my %hash;
-ok %hash.does(Associative), 'uninitialized %var does Associative', :todo<feature>;
+#?pugs todo 'feature'
+ok %hash.does(Associative), 'uninitialized %var does Associative';
 %hash = {};
 ok %hash.does(Associative), 'value in %var does Associative';
 
@@ -104,9 +105,12 @@ ok &pro.does(Callable), 'a proto does Callable';
 
 # &token, &rule return a Method?
 token bar {<?>}
-ok &bar.does(Callable), 'a token does Callable', :todo<feature>;
+#?pugs todo 'feature'
+ok &bar.does(Callable), 'a token does Callable';
 rule baz {<?>}
-ok &baz.does(Callable), 'a rule does Callable', :todo<feature>;
+#?pugs todo 'feature'
+ok &baz.does(Callable), 'a rule does Callable';
 # &quux returns a Sub ?
 macro quux {}
-ok &quux.does(Callable), 'a rule does Callable', :todo<feature>;
+#?pugs todo 'feature'
+ok &quux.does(Callable), 'a rule does Callable';

S03-operators/adverbial-modifiers.t

@@ -176,19 +176,23 @@ is blub "bar":times(2), 'BLUBBLUBbar', 'user-defined prefix operator, :times adv
 
 #  $v = 'eval failed';
 #  eval '$v = f :x("a") :y("b")()';
-#  is $v, "ab", 'f :x("a") :y("b")()', :todo<bug>;
+#  #?pugs todo 'bug'
+#  is $v, "ab", 'f :x("a") :y("b")()';
 
 #  $v = 'eval failed';
 #  eval '$v = f :x("a") :y("b") ()';
-#  is $v, "ab", 'f :x("a") :y("b") ()', :todo<bug>;
+#  #?pugs todo 'bug'
+#  is $v, "ab", 'f :x("a") :y("b") ()';
 
 #  $v = 'eval failed';
 #  eval '$v = f :x("a"):y("b") ()';
-#  is $v, "ab", 'f :x("a"):y("b") ()', :todo<bug>;
+#  #?pugs todo 'bug'
+#  is $v, "ab", 'f :x("a"):y("b") ()';
 
 #  $v = 'eval failed';
 #  eval '$v = f :x("a"):y("b")()';
-#  is $v, "ab", 'f :x("a"):y("b")()', :todo<bug>;
+#  #?pugs todo 'bug'
+#  is $v, "ab", 'f :x("a"):y("b")()';
 
 #  $v = f:x("a"):y("b") ();
 #  is $v, "ab", 'f:x("a"):y("b") ()';

S03-operators/hyper.t

@@ -79,12 +79,14 @@ my @e;
         my @r = (1, 2, 3);
         try { @r»++ };
         my @e = (2, 3, 4);
-        is(~@r, ~@e, "hyper auto increment an array", :todo);
+        #?pugs todo
+        is(~@r, ~@e, "hyper auto increment an array");
 
         @r = (1, 2, 3);
         try { @r>>++ };
         @e = (2, 3, 4);
-        is(~@r, ~@e, "hyper auto increment an array ASCII notation", :todo);
+        #?pugs todo
+        is(~@r, ~@e, "hyper auto increment an array ASCII notation");
 };
 
 #?rakudo skip 'unary hyperops'
@@ -208,12 +210,14 @@ my @e;
         @r = ([1, 2], [3, [4, 5]]);
         try { @r»++ };
         my @e = ([2, 3], [4, [5, 6]]);
-        is(~@r, ~@e, "distribution for unary postfix autoincr", :todo);
+        #?pugs todo
+        is(~@r, ~@e, "distribution for unary postfix autoincr");
 
         @r = ([1, 2], [3, [4, 5]]);
         try { @r>>++ };
         @e = ([2, 3], [4, [5, 6]]);
-        is(~@r, ~@e, "distribution for unary postfix autoincr, ASCII", :todo);
+        #?pugs todo
+        is(~@r, ~@e, "distribution for unary postfix autoincr, ASCII");
 };
 
 { # distribution for binary infix - ASCII

S03-operators/identity

@@ -103,21 +103,25 @@ ok(!("7" =:= 7), "identify checks type mismatch");
   my ($foo, $bar);
   my $test = -> *@args { $foo =:= @args[0] };
 
-  ok  $test($foo), "binding of slurpy array subparam retains =:= (1)", :todo<unspecced>;
+  #?pugs todo 'unspecced'
+  ok  $test($foo), "binding of slurpy array subparam retains =:= (1)";
   ok !$test($bar), "binding of slurpy array subparam retains =:= (2)";
   $bar := $foo;
-  ok  $test($bar), "binding of slurpy array subparam retains =:= (3)", :todo<unspecced>;
+  #?pugs todo 'unspecced'
+  ok  $test($bar), "binding of slurpy array subparam retains =:= (3)";
 }
 
 # Again, unspecced that @args[0] can participate in =:=
 {
   my ($foo, $bar);
   my $test = sub { $foo =:= @_[0] };
 
-  ok  $test($foo), "binding of implicit @_ subparam retains =:= (1)", :todo<unspecced>;
+  #?pugs todo 'unspecced'
+  ok  $test($foo), "binding of implicit @_ subparam retains =:= (1)";
   ok !$test($bar), "binding of implicit @_ subparam retains =:= (2)";
   $bar := $foo;
-  ok  $test($bar), "binding of implicit @_ subparam retains =:= (3)", :todo<unspecced>;
+  #?pugs todo 'unspecced'
+  ok  $test($bar), "binding of implicit @_ subparam retains =:= (3)";
 }
 
 class TestObj { has $!a }

S12-attributes/undeclared.t

@@ -16,21 +16,23 @@ dies_ok { class A { method set_a { $.a = 1 }}; A.new.set_a; },
 dies_ok { role B { method set_b { $.b = 1 }};class C does B{ }; C.new.set_b; },
     "Test Undeclared public attribute assignment from a role";
 
+#?pugs 2 todo 'bug'
 dies_ok { class D { method d { $!d = 1 }}; D.new.d; },
-    "Test Undeclared private attribute assignment from a class", :todo<bug>;
+    "Test Undeclared private attribute assignment from a class";
 dies_ok { role E { method e { $!e = 1 }};class F does E{ }; F.new.e; },
-    "Test Undeclared private attribute assignment from a role", :todo<bug>;
+    "Test Undeclared private attribute assignment from a role";
 
 ##### access the undeclared attribute
 dies_ok { class H { method set_h { $.h }}; H.new.set_h; },
     "Test Undeclared public attribute access from a class";
 dies_ok { role I { method set_i { $.i }};class J does I{ }; J.new.set_i; },
     "Test Undeclared public attribute access from a role";
 
+#?pugs 2 todo 'bug'
 dies_ok { class K { method k { $!k }}; K.new.k; },
-    "Test Undeclared private attribute access from a class", :todo<bug>;
+    "Test Undeclared private attribute access from a class";
 dies_ok { role L { method l { $!l }};class M does L{ }; M.new.l; },
-    "Test Undeclared private attribute access from a role", :todo<bug>;
+    "Test Undeclared private attribute access from a role";
 
 
 dies_ok { class N { method set_n { $.n := 1 }}; N.new.set_n; },