Permalink
Browse files

niecza (auto)unfudge

add noauto markers to some dubious test skips we don't want to todo-ify
  • Loading branch information...
1 parent 0faae07 commit 3da84179f2712caa1042aea255f8b485563b7289 @coke coke committed Jan 5, 2012
@@ -155,14 +155,14 @@ L<"http://groups.google.de/group/perl.perl6.language/msg/bd9eb275d5da2eda">
is (try {$list.value.value}), 3, "[=>] works (3)";
}
-#?niecza skip 'huh?'
{
my @array = <5 -3 7 0 1 -9>;
# according to http://irclog.perlgeek.de/perl6/2008-09-10#i_560910
# [,] returns a scalar (holding an Array)
my $count = 0;
$count++ for [,] @array;
#?rakudo todo 'item context'
+ #?niecza todo 'huh?'
is $count, 1, '[,] returns a single Array';
ok ([,] @array) ~~ Positional, '[,] returns something Positional';
}
@@ -104,7 +104,7 @@ plan 19;
is $str, '(x)', 'die calls LEAVE blocks';
}
-#?niecza 2 skip 'dubious'
+#?niecza 2 skip 'dubious: noauto'
{
my $str;
try {
View
@@ -26,7 +26,6 @@ for ("abcdef") {
$_ = "foofoofoo foofoofoo";
my $/;
ok(s:global:pos/foo/FOO/, 'Globally contiguous substitution');
- #?niecza todo
is($_, "FOOFOOFOO foofoofoo", 'Correctly substituted contiguously');
}
@@ -30,7 +30,6 @@ eval_lives_ok 'sub quuuux ($!) { ... }', 'but $! is OK';
my $error = "$!";
nok $success,
"Passing two arguments to a function expecting one hash is an error";
- #?niecza 3 todo 'error message content'
ok $error ~~ / '%h' /, '... error message mentions parameter';
ok $error ~~ /:i 'type' /, '... error message mentions "type"';
ok $error ~~ / Associative /, '... error message mentions "Associative"';
@@ -24,7 +24,6 @@ plan 10;
{
sub typed(:i(:%j)) { %j.keys.[0] };
is typed(i => { a => 1 }), 'a', 'typed renames -- sanity';
- #?niecza 2 todo 'sigil-based type constraints'
dies_ok { eval 'typed(:j)' }, 'type constraint on var';
dies_ok { eval 'typed(:i)' }, 'type constraint on var propagates to alias';
}
@@ -30,11 +30,9 @@ plan 11;
sub pa(@a) { @a.WHAT; }
my @b = 2, 3;
isa_ok pa(@b), Array, 'basic array type sanity';
- #?niecza todo
dies_ok { eval('pa(3)') }, 'non-slurpy array does not take a single Int';
sub ph(%h) { 1 } #OK not used
- #?niecza todo
dies_ok { eval('ph(3)') }, 'an Int is not a Hash';
}
@@ -13,7 +13,6 @@ plan 4;
eval_lives_ok('my $a; class Tb { has $.a }; my Tb $Tb .= new(:$a )',
'class instantiation with autopair, spaces');
#?rakudo 2 todo 'nom regression'
- #?niecza 2 todo
eval_lives_ok('my $a; role Tc { has $.a }; my Tc $c .= new(:$a)',
'role instantiation with autopair, no spaces');
eval_lives_ok('my $a; role Td { has $.a }; my Td $c .= new(:$a )',
@@ -35,7 +35,7 @@ ok +$o == 1.2, 'method Numeric takes care of correct numification';
is 1.Str.Str, "1", ".Str can be called on Str";
is "hello".Str, "hello", ".Str can be called on Str";
-#?niecza skip "this test makes not much sense"
+#?niecza skip "this test makes not much sense: noauto"
{
# Not sure how to set the derived Str portion to a value, but that would be an
# additional useful test here.
@@ -38,7 +38,7 @@ is capitalize("a\c[COMBINING DOT ABOVE, COMBINING DOT BELOW] bc"),
# rest of the tests are moved from uc.t
is ~(0.capitalize), ~0, '.capitalize on Int';
-#?niecza skip "but"
+#?niecza todo "but"
{
role A {
has $.thing = 3;
View
@@ -55,7 +55,6 @@ is "a ab bc ad ba".comb(/\S*a\S*/, 2), <a ab>, 'matcher and limit';
is "forty-two".comb().join('|'), 'f|o|r|t|y|-|t|w|o', q{Str.comb(/./)};
-#?niecza skip 'Positional'
ok("forty-two".comb() ~~ Positional, '.comb() returns something Positional' );
# comb a list
View
@@ -49,7 +49,7 @@ is ~(0.lc), ~0, '.lc on Int';
is ~(0.lcfirst), ~0, '.lcfirst on Int';
#?DOES 4
-#?niecza skip 'but RoleName'
+#?niecza todo 'but RoleName'
#?rakudo skip 'but RoleName'
{
role A {

0 comments on commit 3da8417

Please sign in to comment.