Permalink
Browse files

Convert niecza faux-todo to real todo.

  • Loading branch information...
1 parent 5d6e74b commit 4bdf17ed08ba2f620d5a90e83f7222e4fe07019e @coke coke committed Sep 29, 2011
Showing with 255 additions and 255 deletions.
  1. +2 −2 S02-lexical-conventions/comments.t
  2. +4 −4 S02-literals/autoref.t
  3. +7 −7 S02-literals/quoting.t
  4. +1 −1 S02-names-vars/contextual.t
  5. +4 −4 S02-names-vars/varnames.t
  6. +3 −3 S02-types/assigning-refs.t
  7. +2 −2 S02-types/hash.t
  8. +4 −4 S02-types/hash_ref.t
  9. +5 −5 S02-types/infinity.t
  10. +1 −1 S02-types/lists.t
  11. +2 −2 S02-types/mixed_multi_dimensional.t
  12. +8 −8 S02-types/nan.t
  13. +1 −1 S02-types/nested_arrays.t
  14. +10 −10 S02-types/num.t
  15. +5 −5 S02-types/range.t
  16. +2 −2 S02-types/whatever.t
  17. +1 −1 S03-metaops/cross.t
  18. +2 −2 S03-metaops/reverse.t
  19. +1 −1 S03-operators/also.t
  20. +9 −9 S03-operators/autovivification.t
  21. +4 −4 S03-operators/binding-ro.t
  22. +1 −1 S03-operators/boolean-bitwise.t
  23. +2 −2 S03-operators/comparison-simple.t
  24. +3 −3 S03-operators/eqv.t
  25. +5 −5 S03-operators/inplace.t
  26. +3 −3 S03-operators/minmax.t
  27. +1 −1 S03-operators/misc.t
  28. +2 −2 S03-operators/names.t
  29. +29 −29 S03-operators/range.t
  30. +1 −1 S03-operators/so.t
  31. +26 −26 S03-operators/subscript-adverbs.t
  32. +5 −5 S03-operators/value_equivalence.t
  33. +3 −3 S03-smartmatch/any-array-slice.t
  34. +2 −2 S03-smartmatch/any-array.t
  35. +5 −5 S03-smartmatch/any-hash-slice.t
  36. +2 −2 S03-smartmatch/any-pair.t
  37. +18 −18 S03-smartmatch/array-array.t
  38. +4 −4 S03-smartmatch/array-hash.t
  39. +2 −2 S03-smartmatch/regex-hash.t
  40. +2 −2 S03-smartmatch/scalar-hash.t
  41. +2 −2 S04-blocks-and-statements/pointy-rw.t
  42. +3 −3 S04-declarations/implicit-parameter.t
  43. +2 −2 S04-phasers/end.t
  44. +1 −1 S04-phasers/start.t
  45. +2 −2 S04-statements/terminator.t
  46. +4 −4 S05-capture/match-object.t
  47. +1 −1 S05-grammar/action-stubs.t
  48. +6 −6 S05-match/blocks.t
  49. +2 −2 S05-match/non-capturing.t
  50. +1 −1 S05-metachars/closure.t
  51. +7 −7 S05-metachars/newline.t
  52. +1 −1 S05-metasyntax/charset.t
  53. +15 −15 S05-metasyntax/litvar.t
  54. +1 −1 S05-metasyntax/sequential-alternation.t
  55. +2 −2 S05-modifier/counted-match.t
  56. +3 −3 S05-modifier/ignorecase.t
  57. +3 −3 S06-multi/by-trait.t
  58. +1 −1 S06-routine-modifiers/scoped-named-subs.t
  59. +4 −4 S06-signature/code.t
@@ -142,7 +142,7 @@ plan 46;
# L<S02/"Literals"/"# at beginning of line is always a line-end comment">
{
- #?niecza skip 'TODO'
+ #?niecza todo
eval_dies_ok "#<this is a comment\n'abc'",
'#+bracket at start of line is an error';
@@ -172,7 +172,7 @@ plan 46;
}
# L<S02/Single-line Comments/"single-line comments">
-#?niecza skip 'TODO'
+#?niecza todo
{
# ticket http://rt.perl.org/rt3/Ticket/Display.html?id=70752
eval_lives_ok "#=======\n#=======\nuse v6;", "pragma use after single line comments";
View
@@ -31,7 +31,7 @@ plan 57;
my @array = <a b c>;
my $ref = \@array;
- #?niecza skip 'TODO'
+ #?niecza todo
is ~$ref, "a b c", '$arrayref = \@array works (1)';
# Explicit referentiation of arrays in assignment
#?niecza skip 'Cannot use value like Capture as a Number'
@@ -73,7 +73,7 @@ plan 57;
my @other;
@other[1] = \@array;
- #?niecza skip 'TODO'
+ #?niecza todo
is ~@other, " a b c", '@other[$idx] = \@array works (1)';
is +@other, 2, '@other[$idx] = \@array works (2)';
#?niecza skip 'Cannot use value like Capture as a Number'
@@ -158,7 +158,7 @@ plan 57;
my @array = <a b c>;
my $pair = (key => \@array);
- #?niecza skip 'TODO'
+ #?niecza todo
is ~$pair.value, "a b c", '(key => \@array) works (1)';
#?niecza skip 'Cannot use value like Capture as a Number'
is +$pair.value, 1, '(key => \@array) works (2)';
@@ -196,7 +196,7 @@ plan 57;
my @array = <a b c>;
my $pair = (:key(\@array));
- #?niecza skip 'TODO'
+ #?niecza todo
is ~$pair.value, "a b c", '(:key(\@array)) works (1)';
#?niecza skip 'Cannot use value like Capture as a Number'
is +$pair.value, 1, '(:key(\@array)) works (2)';
View
@@ -232,7 +232,7 @@ Note that non-ASCII tests are kept in quoting-unicode.t
};
#?rakudo skip 'quoting with adverbs'
-#?niecza skip 'TODO'
+#?niecza todo
{ # qq:ww, interpolating L<S02/Literals/double angles do interpolate>
# L<S02/Forcing item context/"implicit split" "shell-like fashion">
my (@q1, @q2, @q3, @q4) = ();
@@ -262,7 +262,7 @@ Note that non-ASCII tests are kept in quoting-unicode.t
}
#?rakudo skip '«...»'
-#?niecza skip 'TODO'
+#?niecza todo
{
#L<S02/Forcing item context/"relationship" "single quotes" "double angles">
# Pugs was having trouble with this. Fixed in r12785.
@@ -344,22 +344,22 @@ FOO
# <<:Pair>>
my @q = <<:p(1)>>;
#?rakudo 2 todo '<< :pair(1) >> (RT 65304)'
- #?niecza skip 'TODO'
+ #?niecza todo
is(@q[0].perl, (:p(1)).perl, "pair inside <<>>-quotes - simple");
@q = <<:p(1) junk>>;
- #?niecza skip 'TODO'
+ #?niecza todo
is(@q[0].perl, (:p(1)).perl, "pair inside <<>>-quotes - with some junk");
is(@q[1], 'junk', "pair inside <<>>-quotes - junk preserved");
@q = <<:def>>;
#?rakudo 2 todo '<< :pair(1) >>'
- #?niecza skip 'TODO'
+ #?niecza todo
is(@q[0].perl, (def => 1).perl, ":pair in <<>>-quotes with no explicit value");
@q = "(eval failed)";
try { eval '@q = <<:p<moose>>>;' };
- #?niecza skip 'TODO'
+ #?niecza todo
is(@q[0].perl, (p => "moose").perl, ":pair<anglequoted>");
};
@@ -473,7 +473,7 @@ Hello, World
# L<S02/Adverbs on quotes/"Interpolate % vars">
# q:h
#?rakudo skip 'quoting adverbs'
-#?niecza skip 'TODO'
+#?niecza todo
{
# Pugs can't parse q:h currently.
my %t = (a => "perl", b => "rocks");
@@ -72,7 +72,7 @@ nok foo().defined, 'contextual $*VAR is undefined';
}
#RT #63226
-#?niecza skip 'TODO'
+#?niecza todo
{
package Foo { our sub run() { return @*INC } };
ok Foo::run().chars > 0;
@@ -6,15 +6,15 @@ plan 8;
# L<S02/Names and Variables/special variables of Perl 5 are going away>
-#?niecza skip 'TODO'
+#?niecza todo
eval_dies_ok 'my $!', '$! can not be declared again';
-#?niecza skip 'TODO'
+#?niecza todo
eval_dies_ok 'my $/', 'nor can $/';
#?rakudo 2 todo 'proto on variable declarations'
-#?niecza skip 'TODO'
+#?niecza todo
eval_lives_ok 'my proto $!', '$! can be declared again if proto is used though';
-#?niecza skip 'TODO'
+#?niecza todo
eval_lives_ok 'my proto $/', 'as can $/';
eval_dies_ok 'my $f!ao = "beh";', "normal varnames can't have ! in their name";
@@ -38,7 +38,7 @@ plan 18;
#?pugs todo 'non-flattening hash refs'
#?rakudo todo 'non-flattening hash refs'
- #?niecza skip 'TODO'
+ #?niecza todo
is +%hash, 0, '%hash = ($hashref,) does not flatten the hashref';
}
@@ -48,7 +48,7 @@ plan 18;
#?rakudo todo 'non-flattening hash refs'
#?pugs todo 'non-flattening hash refs'
- #?niecza skip 'TODO'
+ #?niecza todo
is +%hash, 0, '%hash = ($hashref) does not flatten the hashref';
}
@@ -58,7 +58,7 @@ plan 18;
#?rakudo todo 'non-flattening hash refs'
#?pugs todo 'non-flattening hash refs'
- #?niecza skip 'TODO'
+ #?niecza todo
is +%hash, 0, '%hash = $hashref does not flatten the hashref';
}
View
@@ -60,7 +60,7 @@ ok(%hash5.does(Hash), '%hash5 does Hash');
is(@slice2[1], 1, '%hash<> slice was successful');
}
-#?niecza skip 'TODO'
+#?niecza todo
{
my @slice3 = %hash5<>.sort;
is(+@slice3, 3, 'empty slice got all hash values');
@@ -197,7 +197,7 @@ is %dupl<a>, 3, "hash creation with duplicate keys works correctly";
}
# test for RT #62730
-#?niecza skip 'TODO'
+#?niecza todo
lives_ok { Hash.new("a" => "b") }, 'Hash.new($pair) lives';
# RT #71022
View
@@ -69,16 +69,16 @@ plan 31;
# L<S06/Anonymous hashes vs blocks/So you may use sub or hash or pair to disambiguate:>
{
my $hash_a = { a => 1, b => 2 };
- #?niecza skip 'TODO'
+ #?niecza todo
isa_ok $hash_a, "Hash";
my $hash_b = { a => 1, "b", 2 };
- #?niecza skip 'TODO'
+ #?niecza todo
isa_ok $hash_b, "Hash";
my $hash_c = hash('a', 1, "b", 2);
- #?niecza skip 'TODO'
+ #?niecza todo
isa_ok $hash_c, "Hash";
my $hash_d = hash 'a', 1, "b", 2;
- #?niecza skip 'TODO'
+ #?niecza todo
isa_ok $hash_d, "Hash";
}
View
@@ -8,30 +8,30 @@ plan 13;
my $x = Inf;
ok( $x == Inf , 'numeric equal');
- #?niecza skip 'TODO'
+ #?niecza todo
ok( $x eq 'Inf', 'string equal');
}
{
my $x = -Inf;
ok( $x == -Inf, 'negative numeric equal' );
- #?niecza skip 'TODO'
+ #?niecza todo
ok( $x eq '-Inf', 'negative string equal' );
}
#?rakudo todo 'integer Inf'
{
my $x = Inf.Int;
ok( $x == Inf, 'int numeric equal' );
- #?niecza skip 'TODO'
+ #?niecza todo
ok( $x eq 'Inf', 'int string equal' );
}
#?rakudo todo 'integer Inf'
{
my $x = ( -Inf ).Int;
ok( $x == -Inf, 'int numeric equal' );
- #?niecza skip 'TODO'
+ #?niecza todo
ok( $x eq '-Inf', 'int string equal' );
}
@@ -51,7 +51,7 @@ ok Inf.Int === Inf, 'Inf.Int === Int';
ok (-Inf).Int === (-Inf), 'Inf.Int === Int';
# RT #70730
-#?niecza skip 'TODO'
+#?niecza todo
{
ok ( rand * Inf ) === Inf, 'multiply rand by Inf without maximum recursion depth exceeded';
}
View
@@ -56,7 +56,7 @@ plan 29;
"using lists as lvalues works";
}
-#?niecza skip 'TODO'
+#?niecza todo
{
my $foo = 42;
@@ -203,10 +203,10 @@ Some deeper tests were already added.
isa_ok(@array[1]<two>[0], Hash);
#?pugs 3 todo 'bug'
#?rakudo todo 'isa hash'
- #?niecza skip 'TODO'
+ #?niecza todo
isa_ok(@array[1]<two>[0]<f>, Hash);
#?rakudo 2 todo 'unknown'
- #?niecza skip 'TODO'
+ #?niecza todo
is(+@array[1]<two>[0], 2, "two keys at level 4");
#?niecza skip 'Use of uninitialized value in string context'
is(@array[1]<two>[0]<f><other>, 5, "more keys at level 4");
View
@@ -20,29 +20,29 @@ is NaN ** 0, NaN, "NaN ** 0";
is 0**0 , 1, "0**0 is 1, _not_ NaN";
is Inf**0 , 1, "Inf**0 is 1, _not_ NaN";
-#?niecza skip 'TODO'
+#?niecza todo
ok NaN ~~ NaN, 'NaN is a NaN';
nok 4 ~~ NaN, '4 is not a NaN';
nok 4.Num ~~ NaN, "4.Num is not a NaN";
isa_ok NaN + 1i, Complex, "NaN + 1i is a Complex number";
-#?niecza skip 'TODO'
+#?niecza todo
ok NaN + 1i ~~ NaN, "NaN + 1i ~~ NaN";
-#?niecza skip 'TODO'
+#?niecza todo
ok NaN ~~ NaN + 1i, "NaN ~~ NaN + 1i";
isa_ok (NaN)i, Complex, "(NaN)i is a Complex number";
-#?niecza skip 'TODO'
+#?niecza todo
ok (NaN)i ~~ NaN, "(NaN)i ~~ NaN";
-#?niecza skip 'TODO'
+#?niecza todo
ok NaN ~~ (NaN)i, "NaN ~~ (NaN)i";
-#?niecza skip 'TODO'
+#?niecza todo
ok (NaN)i ~~ NaN + 1i, "(NaN)i ~~ NaN + 1i";
-#?niecza skip 'TODO'
+#?niecza todo
ok NaN + 1i ~~ (NaN)i, "NaN + 1i ~~ (NaN)i";
-#?niecza skip 'TODO'
+#?niecza todo
ok truncate(NaN) ~~ NaN, 'truncate(NaN) ~~ NaN';
#?rakudo skip 'RT 83446'
@@ -28,7 +28,7 @@ plan 8;
is(+$b, 3, 'Array object length, nested [], outer []s');
is(+@c, 4, 'Array length, nested ()');
- #?niecza skip 'TODO'
+ #?niecza todo
is(+$c, 4, 'Array object length, nested ()');
is(+@d, 1, 'Array length, nested (), outer []s');
is(+$d, 4, 'Array object length, nested (), outer []s');
View
@@ -7,23 +7,23 @@ use Test;
plan 62;
#?rakudo todo "Num.perl doesn't report the decimal part if it is 0 (RT 69869)"
-#?niecza skip 'TODO'
+#?niecza todo
isa_ok( eval(1.Num.perl), Num, 'eval 1.Num.perl is Num' );
is_approx( eval(1.Num.perl), 1, 'eval 1.Num.perl is 1' );
#?rakudo todo "Num.perl doesn't report the decimal part if it is 0 (RT 69869)"
-#?niecza skip 'TODO'
+#?niecza todo
isa_ok( eval(0.Num.perl), Num, 'eval 0.Num.perl is Num' );
is_approx( eval(0.Num.perl), 0, 'eval 0.Num.perl is 0' );
#?rakudo todo "Num.perl doesn't report the decimal part if it is 0 (RT 69869)"
-#?niecza skip 'TODO'
+#?niecza todo
isa_ok( eval((-1).Num.perl), Num, 'eval -1.Num.perl is Num' );
is_approx( eval((-1).Num.perl), -1, 'eval -1.Num.perl is -1' );
#?rakudo todo "Num.perl generates a Rat"
-#?niecza skip 'TODO'
+#?niecza todo
isa_ok( eval(1.1.perl), Num, 'eval 1.1.Num.perl is Num' );
is_approx( eval(1.1.perl), 1.1, 'eval 1.1.Num.perl is 1.1' );
#?rakudo todo "Num.perl generates a Rat"
-#?niecza skip 'TODO'
+#?niecza todo
isa_ok( eval((-1.1).perl), Num, 'eval -1.1.Num.perl is Num' );
is_approx( eval((-1.1).perl), -1.1, 'eval -1.1.Num.perl is -1.1' );
@@ -43,35 +43,35 @@ is_approx( eval((-1.1).perl), -1.1, 'eval -1.1.Num.perl is -1.1' );
{
my $a = 1 / 1;
isa_ok($a, Rat);
- #?niecza skip 'TODO'
+ #?niecza todo
is(~$a, "1", '1/1 stringification works');
}
{
my $a = -1.0;
isa_ok($a, Rat);
- #?niecza skip 'TODO'
+ #?niecza todo
is($a, "-1", '-1 stringification works');
}
{
my $a = 0.1;
isa_ok($a, Rat);
- #?niecza skip 'TODO'
+ #?niecza todo
is($a, "0.1", '0.1 stringification works');
}
{
my $a = -0.1; "$a";
isa_ok($a, Rat);
- #?niecza skip 'TODO'
+ #?niecza todo
is($a, "-0.1", '-0.1 stringification works');
}
{
my $a = 10.01; "$a";
isa_ok($a, Rat);
- #?niecza skip 'TODO'
+ #?niecza todo
is($a, "10.01", '10.01 stringification works');
}
Oops, something went wrong.

0 comments on commit 4bdf17e

Please sign in to comment.