Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

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

git-svn-id: http://svn.pugscode.org/pugs@27141 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
commit 1c0341cb1ca23049c30f8fc6d4350189ea1e2e61 1 parent ba8e84a
kyle authored
View
6 S02-builtin_data_types/array_mmd.t
@@ -33,7 +33,8 @@ my $here;
$here = 0;
multi postcircumfix:<[]> ( *@a ) { $here++ }
my $x = @a[1];
- is $here, 1, "slice fetch was redefined", :todo<bug>;
+ #?pugs todo 'bug'
+ is $here, 1, "slice fetch was redefined";
}
#?rakudo skip 'parsefail with the :<[]>'
@@ -42,5 +43,6 @@ my $here;
$here = 0;
multi postcircumfix:<[]> ( *@a ) { $here++ }
@a[1] = 0;
- is $here, 1, "slice store was redefined", :todo<bug>;
+ #?pugs todo 'bug'
+ is $here, 1, "slice store was redefined";
}
View
6 S02-magicals/env.t
@@ -117,9 +117,10 @@ ok !%*ENV.exists("does_not_exist"), "exists() returns false on a not defined env
# %ENV must not be imported by default
#?rakudo skip 'set_pmc() not implemented in class Exception'
+#?pugs todo 'bug'
{
my $x = eval "%ENV";
- ok $! ~~ m:P5/Undeclared/, '%ENV not visible by default', :todo<bug>;
+ ok $! ~~ m:P5/Undeclared/, '%ENV not visible by default';
}
# following doesn't parse yet
@@ -132,8 +133,9 @@ ok !%*ENV.exists("does_not_exist"), "exists() returns false on a not defined env
# Importation must be lexical
#?rakudo skip 'set_pmc() not implemented in class Exception'
+#?pugs todo 'bug'
{
my $x = eval "%ENV";
- ok $! ~~ m:P5/Undeclared/, '%ENV not visible by after lexical import scope', :todo<bug>;
+ ok $! ~~ m:P5/Undeclared/, '%ENV not visible by after lexical import scope';
1;
}
View
5 S02-names_and_variables/perl.t
@@ -131,10 +131,11 @@ plan 11 + 2*@tests;
my @hyp = -« ([1, 2], 3);
# what it currently (r16460) gives
#?rakudo 2 skip 'parsefail on hyper operator'
- isnt @hyp.perl, '[(-1, -2), -3]', "strange inner parens from .perl on result of hyperop", :todo<bug>;
+ #?pugs 2 todo 'bug'
+ isnt @hyp.perl, '[(-1, -2), -3]', "strange inner parens from .perl on result of hyperop";
# what it should give
- is @hyp.perl, '[[-1, -2], -3]', ".perl on a nested list result of hyper operator", :todo<bug>;
+ is @hyp.perl, '[[-1, -2], -3]', ".perl on a nested list result of hyper operator";
}
{
View
6 S03-operators/binding-scalars.t
@@ -123,8 +123,10 @@ plan 28;
{
my $a;
eval '(:$a) := (:a<foo>)';
- is($a, "foo", "bound keyword", :todo);
+ #?pugs todo
+ is($a, "foo", "bound keyword");
my @tail;
eval '($a, *@tail) := (1, 2, 3)';
- ok($a == 1 && ~@tail eq '2 3', 'bound slurpy', :todo);
+ #?pugs todo
+ ok($a == 1 && ~@tail eq '2 3', 'bound slurpy');
}
View
6 S03-operators/repeat.t
@@ -40,11 +40,13 @@ my @foo5 = 'x' xx -1;
is(+@foo5, 0, 'repeating negative times produces an empty list');
my @foo_2d = [1, 2] xx 2; # should create 2d
-is(@foo_2d[1], [1, 2], 'can create 2d arrays', :todo<bug>); # creates a flat 1d array
+#?pugs todo 'bug'
+is(@foo_2d[1], [1, 2], 'can create 2d arrays'); # creates a flat 1d array
# Wrong/unsure: \(1, 2) does not create a ref to the array/list (1,2), but
# returns a list containing two references, i.e. (\1, \2).
#my @foo_2d2 = \(1, 2) xx 2; # just in case it's a parse bug
-#is(@foo_2d[1], [1, 2], 'can create 2d arrays (2)', :todo<bug>); # creates a flat 1d array
+##?pugs todo 'bug'
+#is(@foo_2d[1], [1, 2], 'can create 2d arrays (2)'); # creates a flat 1d array
# test x=
my $twin = 'Lintilla';
View
6 S04-statements/goto.t
@@ -62,7 +62,8 @@ our $test5 = 1;
eval q{ goto SKIP5; };
$test5 = 0;
SKIP5:
-is($test5, 1, "goto label", :todo<feature>);
+#?pugs todo 'feature'
+is($test5, 1, "goto label");
is(++$phase, 5, "phase completed");
@@ -72,7 +73,8 @@ our $test6 = 1;
eval q{ goto 'SK' ~ 'IP6'; };
$test6 = 0;
SKIP6:
-is($test6, 1, "goto expr", :todo<feature>);
+#?pugs todo 'feature'
+is($test6, 1, "goto expr");
is(++$phase, 6, "phase completed");
View
4 S04-statements/last.t
@@ -64,11 +64,11 @@ plan 8;
}
{
+ #?pugs todo 'bug'
is(
eval('my $var=0; DONE: for (1..2) { last DONE; $var++;}; $var'),
0,
- "var is 0 because last before increment",
- :todo<bug>
+ "var is 0 because last before increment"
);
}
View
6 S06-traits/misc.t
@@ -66,8 +66,10 @@ lives_ok { boom(42) }, "can modify a copy";
$foo=1;
sub mods_param_ref ($x is ref) { $x++; }
dies_ok { mods_param_ref(1); }, 'is ref with non-lvalue';
- lives_ok { mods_param_ref($foo); }, 'is ref with non-lvalue', :todo;
- is($foo, 2, 'is ref works', :todo);
+ #?pugs todo
+ lives_ok { mods_param_ref($foo); }, 'is ref with non-lvalue';
+ #?pugs todo
+ is($foo, 2, 'is ref works');
}
View
5 S12-attributes/class2.t
@@ -47,9 +47,10 @@ my $test6 = 0;
lives_ok { $test6 = Quux.^bar}, 'class attribute accessible via ^name';
is $test6, 23, 'class attribute via ^name really works';
my $test7 = 0;
+#?pugs 2 todo 'feature'
lives_ok {$test7 = $test4.^bar},
- 'class attribute accessible via ^name called on instance', :todo<feature>;
-is $test7, 23, 'class attribute via $obj.^name really works', :todo<feature>;
+ 'class attribute accessible via ^name called on instance';
+is $test7, 23, 'class attribute via $obj.^name really works';
# L<S12/Class methods/"you can associate a class method with the current
# metaclass instance">
View
5 S12-methods/submethods.t
@@ -96,8 +96,9 @@ Basic submethod tests. See L<S12/"Submethods">
is $was_in_b2_build, 0, "roles' BUILD submethods were not yet called (2)";
$B does (RoleB1, RoleB2);
- is $was_in_b1_build, 1, "roles' BUILD submethods were called now (1)", :todo<feature>;
- is $was_in_b2_build, 1, "roles' BUILD submethods were called now (2)", :todo<feature>;
+ #?pugs 2 todo 'feature'
+ is $was_in_b1_build, 1, "roles' BUILD submethods were called now (1)";
+ is $was_in_b2_build, 1, "roles' BUILD submethods were called now (2)";
};
# BUILD with signatures that don't map directly to attributes
Please sign in to comment.
Something went wrong with that request. Please try again.