Permalink
Browse files

niecza auto-unfudge

  • Loading branch information...
1 parent 3a7fb4f commit 702aa349583889fe57fc34267520c30a66fc26e7 @coke coke committed Jan 31, 2012
View
2 S05-grammar/protoregex.t
@@ -113,7 +113,7 @@ is ~LTM.parse('aaa', :rule('cap1')), 'aaa', 'Positional captures do not te
is ~LTM.parse('aaa', :rule('cap2')), 'aaa', 'Named captures do not terminate LTM';
is ~LTM.parse('aaa', :rule('ass1')), 'aaa', '<?{...}> does not terminate LTM';
is ~LTM.parse('aaa', :rule('ass2')), 'aaa', '<!{...}> does not terminate LTM';
-#?niecza skip '#89'
+#?niecza todo '#89'
is ~LTM.parse('aaa', :rule('block')), 'aa', 'However, code blocks do terminate LTM';
# vim: ft=perl6
View
1 S05-metasyntax/angle-brackets.t
@@ -153,7 +153,6 @@ character classes), and those are referenced at the correct spot.
# A leading :: indicates a symbolic indirect subrule
#?rakudo skip 'indirect subrule call not implemented'
-#?niecza skip 'Indirect method calls NYI'
{
my $name = 'alpha';
ok('abcdef' ~~ /<::($name)>/, '<::($name)> symbolic indirect subrule');
View
4 S32-hash/invert.t
@@ -8,7 +8,7 @@ plan 5;
{
my %h = a => 'b', c => 'd';
isa_ok %h.invert, List, 'Hash.invert returns a List';
- #?niecza skip 'Cannot use value like Pair as a number'
+ #?niecza todo 'Cannot use value like Pair as a number'
is_deeply %h.invert.sort, (b => 'a', d => 'c'), 'simple Hash.invert works';
is_deeply %h, { a => 'b', c => 'd' }, 'original remains unchanged';
}
@@ -17,7 +17,7 @@ plan 5;
# with lists
my %h = a => <b c>, d => 'e';
#?rakudo todo 'nom regression'
- #?niecza skip 'Cannot use value like Pair as a number'
+ #?niecza todo 'Cannot use value like Pair as a number'
is_deeply %h.invert.sort, (b => 'a', c => 'a', e => 'd'),
'Hash.invert flattens list values';
is_deeply %h, {a => <b c>, d => 'e'}, 'original remains unchanged';
View
1 S32-hash/kv.t
@@ -92,7 +92,6 @@ sub test4 (%h){
}
}
#?DOES 2
-#?niecza skip '.end NYI'
#?rakudo skip 'dubious'
test4 %hash;
View
2 S32-hash/slice.t
@@ -48,7 +48,7 @@ plan 29;
#?pugs todo 'feature'
#?rakudo skip 'binding on hash elements unimplemented'
-#?niecza skip 'Writing to readonly scalar'
+#?niecza todo 'Writing to readonly scalar'
{
my %hash = :a(1), :b(2), :c(3), :d(4);
my @slice := %hash<b c>;
View
4 S32-list/minmax.t
@@ -102,15 +102,12 @@ is ((1..10).minmax: { ($_-3) * ($_-5) }), 4..10,
# Error cases:
#?pugs 2 todo 'bug'
-#?niecza 2 skip "Unable to resolve method min/max in class Int"
is 42.min, 42, ".min should work on scalars";
is 42.max, 42, ".max should work on scalars";
-#?niecza 2 skip "Unable to resolve method min/max in class Parcel"
is (42,).min, 42, ".min should work on one-elem arrays";
is (42,).max, 42, ".max should work on one-elem arrays";
# Tests with literals:
-#?niecza 2 skip "Unable to resolve method min/max in class Parcel"
is (1,2,3).max, 3, "method form of max with literals works";
is (1,2,3).min, 1, "method form of min with literals works";
is max(:by({$^a <=> $^b}), 1,2,3), 3, "subroutine form of max with literals works";
@@ -132,7 +129,6 @@ is min(:by({$^a <=> $^b}), 1,2,3), 1, "subroutine form of min with literals wor
}
-#?niecza 4 skip 'Unable to resolve method max in class Parcel'
is (1, Inf).max, Inf,"Inf is greater than 1";
is (-1, -Inf).min, -Inf,"-Inf is less than -1";
is (-Inf, Inf).min, -Inf,"-Inf is less than Inf";
View
2 S32-scalar/defined.t
@@ -49,7 +49,6 @@ ok(defined($foo), 'variable $foo is now defined (as string "b")');
$foo = 0;
ok(defined($foo), 'variable $foo is now defined (as numeric literal 0)');
-#?niecza skip 'Undeclared routine'
{
undefine($foo);
ok(!defined($foo), 'undefine $foo works');
@@ -93,7 +92,6 @@ ok(defined(@bax), 'variable @bax is defined after assigning Nil');
$foo = 0;
ok($foo.defined, 'variable $foo is now defined (as numeric literal 0)');
-#?niecza skip 'Undeclared routine'
{
undefine($foo);
ok(!$foo.defined, 'undefine $foo works');
View
2 S32-scalar/undef.t
@@ -323,7 +323,7 @@ is((Any) * (Any), 0, 'Any * Any');
# should be false. (At time of writing, @(Mu,) is true.)
#?pugs todo 'feature', :depends<@() imposing context and not [] constructor>;
#?rakudo 2 skip 'todo: lists, defined, truthness'
-#?niecza 2 skip 'huh?'
+#?niecza 2 todo 'huh?'
is ?(@(Mu,)), Bool::False, '?(@(Mu,)) is false';
is ?(list(Mu,)), Bool::False, '?(@(Mu,)) is false';
View
2 S32-trig/cosech.t
@@ -86,7 +86,7 @@ for @sines -> $angle
is_approx($zp2.cosech, $sz2, "Complex.cosech - $zp2");
}
-#?niecza skip "Inf results wrong"
+#?niecza todo "Inf results wrong"
{
is(cosech(Inf), 0, "cosech(Inf) -");
is(cosech(-Inf), "-0", "cosech(-Inf) -");
View
2 S32-trig/cosh.t
@@ -86,7 +86,7 @@ for @coshes -> $angle
is_approx($zp2.cosh, $sz2, "Complex.cosh - $zp2");
}
-#?niecza skip "Inf results wrong"
+#?niecza todo "Inf results wrong"
{
is(cosh(Inf), Inf, "cosh(Inf) -");
is(cosh(-Inf), Inf, "cosh(-Inf) -");
View
2 S32-trig/cotanh.t
@@ -86,7 +86,7 @@ for @sines -> $angle
is_approx($zp2.cotanh, $sz2, "Complex.cotanh - $zp2");
}
-#?niecza skip "Inf results wrong"
+#?niecza todo "Inf results wrong"
{
is(cotanh(Inf), 1, "cotanh(Inf) -");
is(cotanh(-Inf), -1, "cotanh(-Inf) -");
View
2 S32-trig/sech.t
@@ -86,7 +86,7 @@ for @cosines -> $angle
is_approx($zp2.sech, $sz2, "Complex.sech - $zp2");
}
-#?niecza skip "Inf results wrong"
+#?niecza todo "Inf results wrong"
{
is(sech(Inf), 0, "sech(Inf) -");
is(sech(-Inf), 0, "sech(-Inf) -");
View
2 S32-trig/sinh.t
@@ -86,7 +86,7 @@ for @sinhes -> $angle
is_approx($zp2.sinh, $sz2, "Complex.sinh - $zp2");
}
-#?niecza skip "Inf results wrong"
+#?niecza todo "Inf results wrong"
{
is(sinh(Inf), Inf, "sinh(Inf) -");
is(sinh(-Inf), -Inf, "sinh(-Inf) -");
View
2 S32-trig/tanh.t
@@ -86,7 +86,7 @@ for @sines -> $angle
is_approx($zp2.tanh, $sz2, "Complex.tanh - $zp2");
}
-#?niecza skip "Inf results wrong"
+#?niecza todo "Inf results wrong"
{
is(tanh(Inf), 1, "tanh(Inf) -");
is(tanh(-Inf), -1, "tanh(-Inf) -");

0 comments on commit 702aa34

Please sign in to comment.