Skip to content
Browse files

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

git-svn-id: http://svn.pugscode.org/pugs@27140 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
1 parent aa50b55 commit ba8e84aa846f6c9d35542d0dbcb2ec847ccc20bd kyle committed Jun 19, 2009
View
3 S02-builtin_data_types/flattening.t
@@ -13,7 +13,8 @@ plan 34;
# 3[0] etc. should *not* work, but (3,)[0] should.
# That's similar as with the .kv issue we've had: 3.kv should fail, but
# (3,).kv should work.
- dies_ok({@array[0][0]}, 'scalar is not implicitly array', :todo<bug>);
+ #?pugs todo 'bug'
+ dies_ok({@array[0][0]}, 'scalar is not implicitly array');
}
{
View
4 S02-whitespace_and_comments/comments.t
@@ -119,9 +119,9 @@ plan 45;
# ok eval(" #{ comment }") failes with an error as it tries to execute
# comment() before seeing that I meant #{ comment within this string.
-#?pugs todo
+#?pugs todo 'bug'
ok eval(" #<<\n comment\n # >>\n >> 3"),
- 'single line comment cannot correctly nested within multiline', :todo<bug>;
+ 'single line comment cannot correctly nested within multiline';
}
# L<S02/"Whitespace and Comments"/"Counting of nested brackets"
View
3 S03-operators/binding-subs.t
@@ -93,8 +93,9 @@ There're two ways one can argue:
{
my sub foo is rw { my $var = 42; $var }
+ #?pugs todo 'bug'
lives_ok { foo() := 23 },
- "using the variable return value of an 'is rw' sub as the LHS in a binding operation works", :todo<bug>;
+ "using the variable return value of an 'is rw' sub as the LHS in a binding operation works";
}
=begin discussion
View
3 S03-operators/cross-metaop.t
@@ -49,8 +49,9 @@ ok eval('<a b> X, <c d>'), 'cross metaoperator parses';
#?rakudo skip 'parsefail: prefix hypers not implemented'
{
my @result = [~]«( <a b> X, <1 2> );
+ #?pugs todo 'feature'
is @result, <a1 a2 b1 b2>,
- 'X, works with hyperconcat', :todo<feature>;
+ 'X, works with hyperconcat';
}
# L<S03/Cross operators/list concatenating form when used like this>
View
3 S03-operators/range.t
@@ -56,7 +56,8 @@ is ['a'^..^'b'], [], "double-exclusive string range (^..^) can produce null rang
is ['b'^..^'a'], [], "double-exclusive string auto-rev range (^..^) can produce null range";
is ['a' ^..^ 'a'], [], "double-exclusive range (x ^..^ x) where x is a char";
-is 1.5 ~~ 1^..^2, Bool::True, "lazy evaluation of the range operator", :todo<bug>;
+#?pugs todo 'bug'
+is 1.5 ~~ 1^..^2, Bool::True, "lazy evaluation of the range operator";
# Test the unary ^ operator
is ~(^5), "0 1 2 3 4", "unary ^num produces the range 0..^num";
View
3 S04-declarations/constant.t
@@ -190,5 +190,6 @@ plan 19;
constant timecheck = $foo;
$ok++ if timecheck == 23;
- ok $ok, "the initializing values for constants are evaluated at compile-time", :todo<feature>;
+ #?pugs todo 'feature'
+ ok $ok, "the initializing values for constants are evaluated at compile-time";
}
View
3 S04-statements/for.t
@@ -233,7 +233,8 @@ class TestClass{ has $.key is rw };
my $i = 0;
my $sum1 = [+] @array1.map: { $_.key };
- is( $sum1, 2, '.key //= ++$i for @array1;', :todo<bug>);
+ #?pugs todo 'bug'
+ is( $sum1, 2, '.key //= ++$i for @array1;' );
}
View
3 S05-modifier/perl5_0.t
@@ -44,7 +44,8 @@ is($bad, "1", 'Zero width replace works with :g');
my $r;
temp $_ = 'heaao';
s:Perl5 /aa/ll/ && ($r = $_);
- is $r, 'hello', 's/// in boolean context properly defaults to $_', :todo<bug>;
+ #?pugs todo 'bug'
+ is $r, 'hello', 's/// in boolean context properly defaults to $_';
}
my $str = "http://foo.bar/";
View
3 S05-modifier/perl5_9.t
@@ -32,7 +32,8 @@ is(("ab" ~~ rx:P5/(ab)?(ab)+/ && $0), "", 're_tests 1234/1 (1440)');
is(("ab" ~~ rx:P5/(ab)?(ab)+/ && $1), "ab", 're_tests 1234/2 (1441)');
is(("abc" ~~ rx:P5/(abc)?(abc)+/ && $0), "", 're_tests 1236/1 (1444)');
is(("abc" ~~ rx:P5/(abc)?(abc)+/ && $1), "abc", 're_tests 1236/2 (1445)');
-ok((not ("a\nb\n" ~~ rx:P5/(?m)b\s^/)), 're_tests 1238 (1448)', :todo<bug>);
+#?pugs todo 'bug'
+ok((not ("a\nb\n" ~~ rx:P5/(?m)b\s^/)), 're_tests 1238 (1448)');
ok(("a" ~~ rx:P5/\ba/), 're_tests 1239 (1449)');
flunk("PCRE hard parsefail");
#is(("ab" ~~ rx:P5/^(a(??{"(?!)"})|(a)(?{1}))b/ && $1), "a", 're_tests 1241/2 (1451)');
View
3 S06-advanced_subroutine_features/return.t
@@ -270,8 +270,9 @@ lives_ok({ foo_hash_ref()<foo> },
sub official_d {
userdefinedcontrol1 { return 42 };
}
+ #?pugs todo 'bug'
is official_d(), 42,
- "subcalls in user-defined control flow are invisible to return", :todo<bug>;
+ "subcalls in user-defined control flow are invisible to return";
}
class Foo {
View
3 S06-currying/mixed.t
@@ -42,8 +42,9 @@ ok(!(try { &foo.assuming(f => 3) }), "can't curry nonexistent named param");
try {
(eval('use t::packages::Test') // {}).assuming(arg1 => "foo");
}
+#?pugs todo 'feature'
is try { dummy_sub_with_params(arg2 => "bar") }, "[foo] [bar]",
- "(use ...).assuming works", :todo<feature>;
+ "(use ...).assuming works";
sub __hyper (@a, @b, $op?) {
my @ret;
View
3 S06-macros/returning-string.t
@@ -25,7 +25,8 @@ plan 8;
macro plus_3 { "+ 3" }
42 plus_3;
';
- is $ret, 45, "simple string returning macro (3)", :todo<feature>;
+ #?pugs todo 'feature'
+ is $ret, 45, "simple string returning macro (3)";
};
{
View
3 S06-signature/slurpy-params.t
@@ -42,7 +42,8 @@ is first_arg_copy(1, 2, 3), '1', 'can grab first item of a slurpy array (is cop
@m.shift;
return @m;
}
- is_deeply(func(5), [], "Shift from an array function argument works", :todo<bug>);
+ #?pugs todo 'bug'
+ is_deeply(func(5), [], "Shift from an array function argument works");
}
View
3 S12-attributes/recursive.t
@@ -69,6 +69,7 @@ Test attributes with recursively typed attributes
$d .= new();
$d.attr .= new();
}, 'Can instantiate derived class with ::?CLASS attribute';
- isa_ok $d.attr, C, '::?CLASS is lexical, not virtual', :todo<bug>;
+ #?pugs todo 'bug'
+ isa_ok $d.attr, C, '::?CLASS is lexical, not virtual';
}
View
3 S12-class/magical-vars.t
@@ -60,7 +60,8 @@ class SimpleClass does Bar {}
#?pugs todo 'oo'
is( $package, SimpleClass, '$?PACKAGE should be the package name');
- is $class ~~ ::SimpleClass, 'the thing returned by $?CLASS in our role smartmatches against our class', :todo<bug>;
+ #?pugs todo 'bug'
+ is $class ~~ ::SimpleClass, 'the thing returned by $?CLASS in our role smartmatches against our class';
my $forty_two;
lives_ok { my $obj = $class.new; $forty_two = $obj.dummy },
'the class returned by $?CLASS in our role way really our class (1)';
View
3 S12-class/rw.t
@@ -12,7 +12,8 @@ class Foo {
{
my Foo $foo .= new;
- dies_ok { $foo.readonly_attr++ }, "basic sanity", :todo<bug>;
+ #?pugs todo 'bug'
+ dies_ok { $foo.readonly_attr++ }, "basic sanity";
}
View
3 S12-construction/construction.t
@@ -41,7 +41,8 @@ class Foo {
ok Foo.new("a string") ~~ Foo, '... our Foo instance was created';
-is Foo.new("a string").a, 'a string', "our own 'new' was called", :todo<feature>;
+#?pugs todo 'feature'
+is Foo.new("a string").a, 'a string', "our own 'new' was called";
# Using ".=" to create an object

0 comments on commit ba8e84a

Please sign in to comment.
Something went wrong with that request. Please try again.