Permalink
Browse files

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

git-svn-id: http://svn.pugscode.org/pugs@27147 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
1 parent f25f151 commit 7347a8417d8e83db92ba05a6467b5c24fe68c2a0 kyle committed Jun 19, 2009
@@ -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';
@@ -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") ()';
View
@@ -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
View
@@ -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 }
@@ -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; },

0 comments on commit 7347a84

Please sign in to comment.