Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Convert niecza faux-todo to real todo.

  • Loading branch information...
commit 4bdf17ed08ba2f620d5a90e83f7222e4fe07019e 1 parent 5d6e74b
@coke coke authored
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
View
4 S02-lexical-conventions/comments.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
8 S02-literals/autoref.t
@@ -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
14 S02-literals/quoting.t
@@ -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");
View
2  S02-names-vars/contextual.t
@@ -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;
View
8 S02-names-vars/varnames.t
@@ -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";
View
6 S02-types/assigning-refs.t
@@ -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
4 S02-types/hash.t
@@ -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
8 S02-types/hash_ref.t
@@ -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
10 S02-types/infinity.t
@@ -8,14 +8,14 @@ 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' );
}
@@ -23,7 +23,7 @@ plan 13;
{
my $x = Inf.Int;
ok( $x == Inf, 'int numeric equal' );
- #?niecza skip 'TODO'
+ #?niecza todo
ok( $x eq 'Inf', 'int string equal' );
}
@@ -31,7 +31,7 @@ plan 13;
{
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
2  S02-types/lists.t
@@ -56,7 +56,7 @@ plan 29;
"using lists as lvalues works";
}
-#?niecza skip 'TODO'
+#?niecza todo
{
my $foo = 42;
View
4 S02-types/mixed_multi_dimensional.t
@@ -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
16 S02-types/nan.t
@@ -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'
View
2  S02-types/nested_arrays.t
@@ -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
20 S02-types/num.t
@@ -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');
}
View
10 S02-types/range.t
@@ -19,7 +19,7 @@ is (1..^5).perl, '1..^5', ".perl ..^";
is (1^..^5).perl, '1^..^5', ".perl ^..^";
my @r = $r;
-#?niecza skip 'TODO'
+#?niecza todo
is @r, [1, 2, 3, 4, 5], 'got the right array';
# Range of Str
@@ -29,15 +29,15 @@ isa_ok $r, Range;
# XXX unspecced: exact value of Range.perl
is $r.perl, '"a".."c"', 'canonical representation';
@r = $r;
-#?niecza skip 'TODO'
+#?niecza todo
is @r, [< a b c >], 'got the right array';
# Stationary ranges
is (1..1).perl, '1..1', "stationary num .perl ..";
-#?niecza skip 'TODO'
+#?niecza todo
is (1..1), [1,], 'got the right array';
is ('a'..'a').perl, '"a".."a"', "stationary str .perl ..";
-#?niecza skip 'TODO'
+#?niecza todo
is ('a'..'a'), [< a >], 'got the right array';
#?niecza skip 'Unable to resolve method reverse in class Range'
@@ -140,7 +140,7 @@ is(+(6..8), 3, 'numification');
}
# ranges constructed from parameters, from RT#63002.
-#?niecza skip 'TODO'
+#?niecza todo
{
sub foo($a) { ~($a .. 5) };
is(foo(5), '5', 'range constructed from parameter OK');
View
4 S02-types/whatever.t
@@ -28,7 +28,7 @@ ok *.abs ~~ Code, '*.abs is of type Code';
isa_ok *.abs, WhateverCode, '... WhateverCode, more specifically';
isa_ok 1..*, Range, '1..* is a Range, not a Code';
-#?niecza skip 'TODO'
+#?niecza todo
isa_ok 1..*-1, WhateverCode, '1..*-1 is a WhateverCode';
#?niecza skip 'Unable to resolve method postcircumfix:<( )> in class Range'
isa_ok (1..*-1)(10), Range, '(1..*-1)(10) is a Range';
@@ -147,7 +147,7 @@ is (0,0,0,0,0,0) >>+>> ((1,2) xx *), <1 2 1 2 1 2>, 'xx * works';
# L<S02/Currying of Unary and Binary Operators/This rewrite happens after variables are looked up
# in their lexical scope>
-#?niecza skip 'TODO'
+#?niecza todo
{
my $x = 3;
{
View
2  S03-metaops/cross.t
@@ -69,7 +69,7 @@ ok eval('<a b> X, <c d>'), 'cross metaoperator parses';
# L<S03/Cross operators/any existing non-mutating infix operator>
is (1,2 X* 3,4), (3,4,6,8), 'cross-product works';
-#?niecza skip 'TODO'
+#?niecza todo
is (1,2 Xcmp 3,2,0), (-1, -1, 1, -1, 0, 1), 'Xcmp works';
# L<S03/Cross operators/underlying operator non-associating>
View
4 S03-metaops/reverse.t
@@ -53,9 +53,9 @@ is 4 Rcmp 5, 5 cmp 4, "4 Rcmp 5";
isa_ok 4 Rcmp 5, (5 cmp 4).WHAT, "4 Rcmp 5 is the same type as 5 cmp 4";
# precedence tests!
-#?niecza skip 'TODO'
+#?niecza todo
is 3 R/ 9 + 5, 8, 'R/ gets precedence of /';
-#?niecza skip 'TODO'
+#?niecza todo
is 4 R- 5 R/ 10, -2, "Rop gets the precedence of op";
is (9 R... 1, 3), (1, 3, 5, 7, 9), "Rop gets list_infix precedence correctly";
View
2  S03-operators/also.t
@@ -21,7 +21,7 @@ my $executed = 0;
#?rakudo todo 'nom regression'
ok !('a' ~~ 'b' S& { $executed = 1; True }), 'and semantics';
-#?niecza skip 'TODO'
+#?niecza todo
ok !$executed, 'short-circuit';
# vim: ft=perl6
View
18 S03-operators/autovivification.t
@@ -51,28 +51,28 @@ plan 23;
is $s, 'ab', 'my Str $s; $s ~= "ab" works'
}
-#?niecza skip 'TODO'
+#?niecza todo
{
my $x;
$x *= 2;
ok $x == 2, 'my $x; $x *= 2 works'
}
-#?niecza skip 'TODO'
+#?niecza todo
{
my $x;
$x **= 2;
ok $x == 1, 'my $x; $x **= 2 works'
}
-#?niecza skip 'TODO'
+#?niecza todo
{
my Int $x;
$x *= 2;
ok $x == 2, 'my Int $x; $x *= 2 works'
}
-#?niecza skip 'TODO'
+#?niecza todo
{
my Int $x;
$x **= 2;
@@ -96,7 +96,7 @@ plan 23;
is $i, 1, 'my $i **= $i';
}
-#?niecza skip 'TODO'
+#?niecza todo
{
my $x;
$x *= 1i;
@@ -105,7 +105,7 @@ plan 23;
# L<S03/Assignment operators/"If you apply an assignment operator to a
# container">
-#?niecza skip 'TODO'
+#?niecza todo
{
# yes, this is serious. It's in the specs ;-)
my Int $x;
@@ -113,20 +113,20 @@ plan 23;
is $x, 5, '*= autovivifies with correct neutral element (with Num proto)';
}
-#?niecza skip 'TODO'
+#?niecza todo
{
my $x;
$x *= 5;
is $x, 5, '*= autovivifies with correct neutral element (without type constraint)';
}
-#?niecza skip 'TODO'
+#?niecza todo
{
my Int %h;
is (%h<foo> *= 23), 23, '*= autovivifies with correct neutral element (with Int proto on hash items)';
}
-#?niecza skip 'TODO'
+#?niecza todo
{
my %h;
is (%h<foo> *= 23), 23, '*= autovivifies with correct neutral element (without proto on hash items)';
View
8 S03-operators/binding-ro.t
@@ -30,13 +30,13 @@ plan 9;
@x ::= @y;
is @x.join('|'), 'd|e', '::= on arrays';
#?rakudo 4 todo '::= on arrays'
- #?niecza skip 'TODO'
+ #?niecza todo
dies_ok { @x := <3 4 foo> }, '... make RO';
- #?niecza skip 'TODO'
+ #?niecza todo
is @x.join('|'), 'd|e', 'value unchanged';
- #?niecza skip 'TODO'
+ #?niecza todo
lives_ok { @x[2] = 'k' }, 'can still assign to items of RO array';
- #?niecza skip 'TODO'
+ #?niecza todo
is @x.join(''), 'd|e|k', 'assignment relly worked';
}
View
2  S03-operators/boolean-bitwise.t
@@ -73,7 +73,7 @@ plan 43;
ok( ?(Any ?^ 1 == True), '?^ works');
ok( ?(-1 ?^ Any == True), '?^ works');
ok( ?(42 ?^ 42 == False), '?^ works');
- #?niecza skip 'TODO'
+ #?niecza todo
ok( ?(42 ?^ 41 == False), '?^ works');
#?niecza skip 'No value for parameter $b in CORE infix:<?^>'
View
4 S03-operators/comparison-simple.t
@@ -29,7 +29,7 @@ is -1/2 <=> 1/2, -1, '-1/2 <=> 1/2 is increase';
is('a' leg 'a', 0, 'a leg a is same');
is('a' leg 'b', -1, 'a leg b is increase');
is('b' leg 'a', 1, 'b leg a is decrease');
-#?niecza skip 'TODO'
+#?niecza todo
is('a' leg 1, 1, 'leg is in string context');
# cmp comparison
@@ -39,7 +39,7 @@ is('b' cmp 'a', 1, 'b cmp a is decrease');
is(1 cmp 1, 0, '1 cmp 1 is same');
is(1 cmp 2, -1, '1 cmp 2 is increase');
is(2 cmp 1, 1, '2 cmp 1 is decrease');
-#?niecza skip 'TODO'
+#?niecza todo
is('a' cmp 1, 1, '"a" cmp 1 is decrease'); # unspecced but P5 behavior
done;
View
6 S03-operators/eqv.t
@@ -88,14 +88,14 @@ plan 53;
}
{
- #?niecza skip 'TODO'
+ #?niecza todo
ok !([1,2,3] eqv [4,5,6]), "eqv on anonymous array references (1)";
ok ([1,2,3] eqv [1,2,3]), "eqv on anonymous array references (2)";
ok ([] eqv []), "eqv on anonymous array references (3)";
}
{
- #?niecza skip 'TODO'
+ #?niecza todo
ok !({a => 1} eqv {a => 2}), "eqv on anonymous hash references (-)";
ok ({a => 1} eqv {a => 1}), "eqv on anonymous hash references (+)";
ok ({a => 2, b => 1} eqv { b => 1, a => 2}), 'order really does not matter';
@@ -147,7 +147,7 @@ plan 53;
# RT #75322 - Rakudo used to be confused when lists began with ()
{
- #?niecza skip 'TODO'
+ #?niecza todo
nok ((), "x") eqv ((), 9), 'list starting with () - 1';
nok ((), (), 1) eqv ((), 9), 'list starting with () - 1';
nok ((), (), (), 1) eqv ((), (), ""), 'list starting with () - 1';
View
10 S03-operators/inplace.t
@@ -16,13 +16,13 @@ plan 28;
{
my @b = <foo 123 bar 456 baz>;
- #?niecza skip 'TODO'
+ #?niecza todo
lives_ok { @b.=grep(/<[a..z]>/)},
'.= works without surrounding whitespace';
is @b[0], 'foo', 'inplace grep [0]';
- #?niecza skip 'TODO'
+ #?niecza todo
is @b[1], 'bar', 'inplace grep [1]';
- #?niecza skip 'TODO'
+ #?niecza todo
is @b[2], 'baz', 'inplace grep [2]';
}
@@ -67,11 +67,11 @@ is ~@b, "a b d e z", "inplace sort";
my @a_orig = @a;
my @b = @a.sort: {1};
- #?niecza skip 'TODO'
+ #?niecza todo
is @b, @a_orig, 'worked: @a.sort: {1}';
@a.=sort: {1};
- #?niecza skip 'TODO'
+ #?niecza todo
is @a, @a_orig, 'worked: @a.=sort: {1}';
@a.=sort;
View
6 S03-operators/minmax.t
@@ -58,16 +58,16 @@ This test min/max functions in their operator form. To see them tested in their
#what `makes sense' and `probably will be anyway' :) --lue
my @a = 1, 2, 3;
isnt @a min 4, 1, 'NYS';
- #?niecza skip 'TODO'
+ #?niecza todo
isnt @a max 4, 4, 'NYS';
}
# RT #61836
# RT #77868
{
- #?niecza skip 'TODO'
+ #?niecza todo
is 2 min Any, 2, '2 min Any';
- #?niecza skip 'TODO'
+ #?niecza todo
is Any min 2, 2, 'Any min 2';
is 2 max Any, 2, '2 max Any';
is Any max 2, 2, 'Any max 2';
View
2  S03-operators/misc.t
@@ -96,7 +96,7 @@ ok(?((any(1..6) == one(1|2|3|4|5|6))), "any elements will match via junction");
# L<S03/Traversing arrays in parallel/"but a short list may always be extended arbitrarily">
#?rakudo todo "nom regression"
-#?niecza skip 'TODO'
+#?niecza todo
{
is (1, 2, * Z <a b c d>).join('|'),
'1|a|2|b|2|c|2|d',
View
4 S03-operators/names.t
@@ -10,7 +10,7 @@ is infix:<->(3, 8), -5, 'Can refer to infix:<->';
is &infix:<cmp>(3, 4), -1, 'Can refer to &infix:<cmp>';
-#?niecza skip 'TODO'
+#?niecza todo
ok ~&infix:<+> ~~ /infix/, 'String value of &infix:<+> contains "infix"';
-#?niecza skip 'TODO'
+#?niecza todo
ok ~&infix:<+> ~~ /\+/, 'String value of &infix:<+> contains "+"';
View
58 S03-operators/range.t
@@ -8,48 +8,48 @@ plan 113;
# L<S03/Nonchaining binary precedence/Range object constructor>
# 3..2 must *not* produce "3 2". Use reverse to get a reversed range. -lwall
-#?niecza skip 'TODO'
+#?niecza todo
is ~(3..6), "3 4 5 6", "(..) works on numbers (1)";
-#?niecza skip 'TODO'
+#?niecza todo
is ~(3..3), "3", "(..) works on numbers (2)";
-#?niecza skip 'TODO'
+#?niecza todo
is ~(3..2), "", "(..) works on auto-rev numbers (3)";
-#?niecza skip 'TODO'
+#?niecza todo
is ~(8..11), "8 9 10 11", "(..) works on carried numbers (3)";
-#?niecza skip 'TODO'
+#?niecza todo
is ~("a".."c"), "a b c", "(..) works on chars (1)";
-#?niecza skip 'TODO'
+#?niecza todo
is ~("a".."a"), "a", "(..) works on chars (2)";
-#?niecza skip 'TODO'
+#?niecza todo
is ~("b".."a"), "", "(..) works on chars (3)";
-#?niecza skip 'TODO'
+#?niecza todo
is ~("a".."z"), "a b c d e f g h i j k l m n o p q r s t u v w x y z", "(..) works on char range ending in z";
-#?niecza skip 'TODO'
+#?niecza todo
is ~("A".."Z"), "A B C D E F G H I J K L M N O P Q R S T U V W X Y Z", "(..) works on char range ending in Z";
-#?niecza skip 'TODO'
+#?niecza todo
is ~("Y".."AB"), "", "(..) works on carried chars (3)";
#?rakudo 4 skip 'Spec under design here'
-#?niecza skip 'TODO'
+#?niecza todo
is ~('Y'..'z'), 'Y Z', '(..) works on uppercase letter .. lowercase letter (1)';
-#?niecza skip 'TODO'
+#?niecza todo
is ~('z'..'Y'), '', '(..) works on auto-rev uppercase letter .. lowercase letter (2)';
-#?niecza skip 'TODO'
+#?niecza todo
is ~('Y'..'_'), 'Y Z', '(..) works on letter .. non-letter (1)';
-#?niecza skip 'TODO'
+#?niecza todo
is ~('_'..'Y'), '', '(..) works on auto-rev letter .. non-letter (2)';
#?rakudo skip "nom regression: No applicable candidates found to dispatch to for 'Numeric'."
-#?niecza skip 'TODO'
+#?niecza todo
is ~(' '..' '), ' ', 'all-whitespace range works';
-#?niecza skip 'TODO'
+#?niecza todo
is ~(3..9-3), "3 4 5 6", "(..) has correct precedence (1)";
-#?niecza skip 'TODO'
+#?niecza todo
is ~(5..9-5), "", "(..) has correct precedence (2)";
-#?niecza skip 'TODO'
+#?niecza todo
is ~(2+1..6), "3 4 5 6", "(..) has correct precedence (3)";
-#?niecza skip 'TODO'
+#?niecza todo
is ~(2+5..6), "", "(..) has correct precedence (4)";
# Test the three exclusive range operators:
@@ -83,7 +83,7 @@ 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";
# Test the unary ^ operator
-#?niecza skip 'TODO'
+#?niecza todo
is ~(^5), "0 1 2 3 4", "unary ^num produces the range 0..^num";
is [^1], [0], "unary ^ on the boundary ^1 works";
is [^0], [], "unary ^0 produces null range";
@@ -91,7 +91,7 @@ is [^-1], [], "unary ^-1 produces null range";
is [^0.1], [0], "unary ^0.1 produces the range 0..^x where 0 < x < 1";
#?niecza skip 'System.FormatException: Unknown char: a'
is [^'a'], [], "unary ^'a' produces null range";
-#?niecza skip 'TODO'
+#?niecza todo
is ~(^"5"), "0 1 2 3 4", 'unary ^"num" produces the range 0..^num';
{
@@ -111,7 +111,7 @@ is (<c b a> Z 1..5).join('|'), 'c|1|b|2|a|3', 'Ranges and infix:<Z>';
# two ranges
is (1..6 Z 'a' .. 'c').join, '1a2b3c', 'Ranges and infix:<Z>';
-#?niecza skip 'TODO'
+#?niecza todo
{
# Test with floats
# 2006-12-05:
@@ -149,7 +149,7 @@ is (1..6 Z 'a' .. 'c').join, '1a2b3c', 'Ranges and infix:<Z>';
## remove these tests from the suite.
# RT #58018
# RT #76950
-#?niecza skip 'TODO'
+#?niecza todo
{
my @three = (1, 1, 1);
my @one = 1;
@@ -186,7 +186,7 @@ is (1..6 Z 'a' .. 'c').join, '1a2b3c', 'Ranges and infix:<Z>';
is $range.max.WHAT.gist, "Str()", 'range end is a string';
lives_ok { "$range" }, 'can stringify range';
#?rakudo skip "nom regression: No applicable candidates found to dispatch to for 'Numeric'."
- #?niecza skip 'TODO'
+ #?niecza todo
is ~$range, "100.B 101.B 102.B", 'range is correct';
}
@@ -199,7 +199,7 @@ is (1..6 Z 'a' .. 'c').join, '1a2b3c', 'Ranges and infix:<Z>';
is $range.max, 3, 'range ends at three';
#?rakudo 2 skip "range stringification: Method 'succ' not found for invocant of class 'Match'"
lives_ok { "$range" }, 'can stringify range';
- #?niecza skip 'TODO'
+ #?niecza todo
is ~$range, "1 2 3", 'range is correct';
}
# and another set, just for the lulz
@@ -218,7 +218,7 @@ is (1..6 Z 'a' .. 'c').join, '1a2b3c', 'Ranges and infix:<Z>';
is $range.min, 1, 'range starts at one';
is $range.max, 3, 'range ends at three';
lives_ok { "$range" }, 'can stringify range';
- #?niecza skip 'TODO'
+ #?niecza todo
is ~$range, "1 2 3", 'range is correct';
}
{
@@ -230,7 +230,7 @@ is (1..6 Z 'a' .. 'c').join, '1a2b3c', 'Ranges and infix:<Z>';
is $range.max, 3, 'range ends at three';
is $range.max.WHAT.gist, "Str()", 'range end is a string';
lives_ok { "$range" }, 'can stringify range';
- #?niecza skip 'TODO'
+ #?niecza todo
is ~$range, "1 2 3", 'range is correct';
}
@@ -238,7 +238,7 @@ is (1..6 Z 'a' .. 'c').join, '1a2b3c', 'Ranges and infix:<Z>';
# List as implicitly numeric:>
#?rakudo todo 'forbid Ranges and Lists as Range endpoints'
-#?niecza skip 'TODO'
+#?niecza todo
{
ok !defined(try { 0 .. ^10 }), '0 .. ^10 is illegal';
ok !defined(try { 0 .. (0, 1, 2) }), '0 .. List is illegal';
@@ -253,7 +253,7 @@ is (1..6 Z 'a' .. 'c').join, '1a2b3c', 'Ranges and infix:<Z>';
# RT #82620
#?rakudo todo "range leaking Parrot types: Method 'trans' not found for invocant of class 'Str'"
-#?niecza skip 'TODO'
+#?niecza todo
{
lives_ok {("a".."b").map({.trans(""=>"")}).perl},
"range doesn't leak Parrot types";
View
2  S03-operators/so.t
@@ -17,7 +17,7 @@ ok( so(so 42), "so(so 42) is true");
ok(not so(so 0), "so(so 0) is false");
ok(so Bool::True, "'Bool::True' is true");
-#?niecza skip 'TODO'
+#?niecza todo
ok Bool.so === False, 'Bool.so returns false';
ok(so True, "'True' is true");
View
52 S03-operators/subscript-adverbs.t
@@ -23,13 +23,13 @@ plan 64;
#?niecza skip 'Cannot use value like Pair as a number'
is +(@array[0,1]:p), 2,
":p on an array returned a two-elem array";
- #?niecza skip 'TODO'
+ #?niecza todo
is ~(@array[0,1]:p), "0\ta 1\tB",
":p on an array returned a two-elem array consisting of the correct pairs";
#?niecza skip 'Cannot use value like Pair as a number'
is +(@array[42,23]:p), 0, ":p on an array weeded out non-existing entries (1)";
- #?niecza skip 'TODO'
+ #?niecza todo
is ~(@array[42,23]:p), "", ":p on an array weeded out non-existing entries (2)";
}
@@ -46,16 +46,16 @@ plan 64;
is @array[0], "a",
":kv on an array returns lvalues (like normal subscripts do as well)";
- #?niecza skip 'TODO'
+ #?niecza todo
is +(@array[0,1]:kv), 4,
":kv on an array returned a four-elem array";
- #?niecza skip 'TODO'
+ #?niecza todo
is ~(@array[0,1]:kv), "0 a 1 B",
":kv on an array returned the correct four-elem array";
- #?niecza skip 'TODO'
+ #?niecza todo
is +(@array[42,23]:kv), 0, ":kv on an array weeded out non-existing entries (1)";
- #?niecza skip 'TODO'
+ #?niecza todo
is ~(@array[42,23]:kv), "", ":kv on an array weeded out non-existing entries (2)";
}
@@ -63,7 +63,7 @@ plan 64;
{
my @array = <A B>;
- #?niecza skip 'TODO'
+ #?niecza todo
is +(@array[0]:k), 1,
":k on an array returned an one-elem array";
is ~(@array[0]:k), "0",
@@ -74,9 +74,9 @@ plan 64;
is ~(@array[0,1]:k), "0 1",
":k on an array returned the correct two-elem array";
- #?niecza skip 'TODO'
+ #?niecza todo
is +(@array[42,23]:k), 0, ":k on an array weeded out non-existing entries (1)";
- #?niecza skip 'TODO'
+ #?niecza todo
is ~(@array[42,23]:k), "", ":k on an array weeded out non-existing entries (2)";
}
@@ -91,9 +91,9 @@ plan 64;
is ~(@array[0]:v), "A",
":v on an array returned the correct one-elem array";
- #?niecza skip 'TODO'
+ #?niecza todo
lives_ok {@array[0]:v = "a"}, 'can assign to @array[0]:v';
- #?niecza skip 'TODO'
+ #?niecza todo
is @array[0], "a",
":v on an array returns lvalues (like normal subscripts do as well)";
@@ -127,13 +127,13 @@ plan 64;
#?niecza skip 'Cannot use value like Pair as a number'
is +(%hash<0 1>:p), 2,
":p on a hash returned a two-elem array";
- #?niecza skip 'TODO'
+ #?niecza todo
is ~(%hash<0 1>:p), "0\ta 1\tB",
":p on a hash returned a two-elem array consisting of the correct pairs";
#?niecza skip 'Cannot use value like Pair as a number'
is +(%hash<42 23>:p), 0, ":p on a hash weeded out non-existing entries (1)";
- #?niecza skip 'TODO'
+ #?niecza todo
is ~(%hash<42 23>:p), "", ":p on a hash weeded out non-existing entries (2)";
}
@@ -150,16 +150,16 @@ plan 64;
is %hash<0>, "a",
":kv on a hash returns lvalues (like normal subscripts do as well)";
- #?niecza skip 'TODO'
+ #?niecza todo
is +(%hash<0 1>:kv), 4,
":kv on a hash returned a four-elem array";
- #?niecza skip 'TODO'
+ #?niecza todo
is ~(%hash<0 1>:kv), "0 a 1 B",
":kv on a hash returned the correct four-elem array";
- #?niecza skip 'TODO'
+ #?niecza todo
is +(%hash<42 23>:kv), 0, ":kv on a hash weeded out non-existing entries (1)";
- #?niecza skip 'TODO'
+ #?niecza todo
is ~(%hash<42 23>:kv), "", ":kv on a hash weeded out non-existing entries (2)";
}
@@ -167,7 +167,7 @@ plan 64;
{
my %hash = (0 => "A", 1 => "B");
- #?niecza skip 'TODO'
+ #?niecza todo
is +(%hash<0>:k), 1,
":k on a hash returned an one-elem array";
is ~(%hash<0>:k), "0",
@@ -178,9 +178,9 @@ plan 64;
is ~(%hash<0 1>:k), "0 1",
":k on a hash returned the correct two-elem array";
- #?niecza skip 'TODO'
+ #?niecza todo
is +(%hash<42 23>:k), 0, ":k on a hash weeded out non-existing entries (1)";
- #?niecza skip 'TODO'
+ #?niecza todo
is ~(%hash<42 23>:k), "", ":k on a hash weeded out non-existing entries (2)";
}
@@ -195,9 +195,9 @@ plan 64;
is ~(%hash<0>:v), "A",
":v on a hash returned the correct one-elem array";
- #?niecza skip 'TODO'
+ #?niecza todo
lives_ok {%hash<0>:v = "a"}, 'can assign to %hash<0>:v';
- #?niecza skip 'TODO'
+ #?niecza todo
is %hash<0>, "a",
":v on a hash returns lvalues (like normal subscripts do as well)";
@@ -219,10 +219,10 @@ plan 64;
{
my @array = (42, Mu, 23);
- #?niecza skip 'TODO'
+ #?niecza todo
is +(@array[0,1,2]:kv), 6,
"undefined but existing entries should not be weeded out (1)";
- #?niecza skip 'TODO'
+ #?niecza todo
is ~(@array[0,1,2]:kv), "0 42 1 2 23",
"undefined but existing entries should not be weeded out (2)";
}
@@ -230,10 +230,10 @@ plan 64;
{
my %hash = (0 => 42, 1 => Mu, 2 => 23);
- #?niecza skip 'TODO'
+ #?niecza todo
is +(%hash<0 1 2>:kv), 6,
"undefined but existing entries should not be weeded out (3)";
- #?niecza skip 'TODO'
+ #?niecza todo
is ~(%hash<0 1 2>:kv), "0 42 1 2 23",
"undefined but existing entries should not be weeded out (4)";
}
View
10 S03-operators/value_equivalence.t
@@ -20,7 +20,7 @@ plan 75;
{
ok (1 === 1), "=== on values (1)";
ok (0 === 0), "=== on values (2)";
- #?niecza skip 'TODO'
+ #?niecza todo
ok (1 + 1 === 2), '=== on non-literal values';
ok !(0 === 1), "=== on values (3)";
isa_ok (1 === 1), Bool, "=== on values (4)";
@@ -38,7 +38,7 @@ plan 75;
# more value tests
{
#?rakudo todo "=== broken on Rat"
- #?niecza skip 'TODO'
+ #?niecza todo
ok 1/2 === 1/2, "=== on Rats";
ok 1/2 !=== 3/2, "!=== on Rats";
isa_ok 1/2 === 1/2, Bool, "=== on Rats yields Bool";
@@ -76,9 +76,9 @@ plan 75;
my @b = (1,2,3);
#?rakudo 2 todo "=== doesn't work on array references yet"
- #?niecza skip 'TODO'
+ #?niecza todo
ok (\@a === \@a), "=== on array references (1)";
- #?niecza skip 'TODO'
+ #?niecza todo
ok (\@b === \@b), "=== on array references (2)";
ok !(\@a === \@b), "=== on array references (3)";
isa_ok (\@a === \@a), Bool, "=== on array references (4)";
@@ -119,7 +119,7 @@ plan 75;
ok ($a === $a), "=== on scalar references (2-1)";
ok ($b === $b), "=== on scalar references (2-2)";
#?rakudo todo "=== fail"
- #?niecza skip 'TODO'
+ #?niecza todo
ok ($a === $b), "=== on scalar references (2-3)";
isa_ok ($a === $a), Bool, "=== on scalar references (2-4)";
}
View
6 S03-smartmatch/any-array-slice.t
@@ -4,15 +4,15 @@ use Test;
#L<S03/Smart matching/array value slice truth>
{
#?rakudo todo 'nom regression'
- #?niecza skip 'TODO'
+ #?niecza todo
ok ((Mu, 1, Mu) ~~ .[1]),
"element 1 of (Mu, 1, Mu) is true";
#?rakudo todo 'nom regression'
- #?niecza skip 'TODO'
+ #?niecza todo
ok !((Mu, Mu) ~~ .[0]),
"element 0 of (Mu, Mu) is false";
#?rakudo todo 'nom regression'
- #?niecza skip 'TODO'
+ #?niecza todo
ok ((0, 1, 2, 3) ~~ .[1, 2, 3]),
"array slice .[1,2,3] of (0,1,2,3) is true";
ok !((0, 1, 2, 3) ~~ .[0]),
View
4 S03-smartmatch/any-array.t
@@ -12,11 +12,11 @@ plan 6;
my $o = TestArraySmartmatch.new(obj => (1, 2, 4));
#?rakudo todo 'nom regression'
- #?niecza skip 'TODO'
+ #?niecza todo
ok ($o ~~ [1, 2, 4]), 'Any ~~ Array (basic, +)';
ok !($o ~~ [1, 5, 4]), 'Any ~~ Array (basic, -)';
#?rakudo todo 'nom regression'
- #?niecza skip 'TODO'
+ #?niecza todo
ok ($o ~~ [1, *]), 'Any ~~ Array (dwim, +)';
ok !($o ~~ [8, *]), 'Any ~~ Array (dwim, -)';
ok (1 ~~ [1]), 'Any ~~ Array (Int, +)';
View
10 S03-smartmatch/any-hash-slice.t
@@ -9,23 +9,23 @@ use Test;
sub notautoquoted_c { 'c' };
#?rakudo todo 'nom regression'
- #?niecza skip 'TODO'
+ #?niecza todo
ok (%h ~~ .{'c'}), '%hash ~~ .{true"}';
ok !(%h ~~ .{'b'}), '%hash ~~ .{false"}';
#?rakudo todo 'nom regression'
- #?niecza skip 'TODO'
+ #?niecza todo
ok (%h ~~ .{<c d>}), '%hash ~~ .{<true values>}';
ok !(%h ~~ .{<c d a>}), '%hash ~~ .{<not all true>}';
ok !(%h ~~ .{notautoquoted_a}), '~~. {notautoquoted_a}';
#?rakudo todo 'nom regression'
- #?niecza skip 'TODO'
+ #?niecza todo
ok (%h ~~ .{notautoquoted_c}), '~~. {notautoquoted_c}';
#?rakudo todo 'nom regression'
- #?niecza skip 'TODO'
+ #?niecza todo
ok (%h ~~ .<c>), '%hash ~~ .<true"}';
ok !(%h ~~ .<b>), '%hash ~~ .<false"}';
#?rakudo todo 'nom regression'
- #?niecza skip 'TODO'
+ #?niecza todo
ok (%h ~~ .<c d>), '%hash ~~ .<true values>';
ok !(%h ~~ .<c d a>), '%hash ~~ .<not all true>';
ok !(%h ~~ .<c d f>), '%hash ~~ .<not all exist>';
View
4 S03-smartmatch/any-pair.t
@@ -26,9 +26,9 @@ plan 10;
# not explicitly specced, but implied by the spec and decreed
# by TimToady: non-existing method or attribute dies:
# http://irclog.perlgeek.de/perl6/2009-07-06#i_1293199
- #?niecza skip 'TODO'
+ #?niecza todo
dies_ok {$o ~~ :e(Mu)}, '$obj ~~ Pair, nonexistent, dies (1)';
- #?niecza skip 'TODO'
+ #?niecza todo
dies_ok {$o ~~ :e(5)}, '$obj ~~ Pair, nonexistent, dies (2)';
}
View
36 S03-smartmatch/array-array.t
@@ -13,52 +13,52 @@ plan 36;
ok(([] ~~ []), "array smartmatch boundary conditions");
ok(([1] ~~ [1]), "array smartmatch boundary conditions");
#?rakudo todo 'nom regression'
- #?niecza skip 'TODO'
+ #?niecza todo
ok((1,2,3,4) ~~ (1,*), 'array smartmatch dwims * at end');
#?rakudo todo 'nom regression'
- #?niecza skip 'TODO'
+ #?niecza todo
ok((1,2,3,4) ~~ (1,*,*), 'array smartmatch dwims * at end (many *s)');
#?rakudo todo 'nom regression'
- #?niecza skip 'TODO'
+ #?niecza todo
ok((1,2,3,4) ~~ (*,4), 'array smartmatch dwims * at start');
#?rakudo todo 'nom regression'
- #?niecza skip 'TODO'
+ #?niecza todo
ok((1,2,3,4) ~~ (*,*,4), 'array smartmatch dwims * at start (many *s)');
#?rakudo todo 'nom regression'
- #?niecza skip 'TODO'
+ #?niecza todo
ok((1,2,3,4) ~~ (1,*,3,4), 'array smartmatch dwims * 1 elem');
#?rakudo todo 'nom regression'
- #?niecza skip 'TODO'
+ #?niecza todo
ok((1,2,3,4) ~~ (1,*,*,3,4), 'array smartmatch dwims * 1 elem (many *s)');
#?rakudo todo 'nom regression'
- #?niecza skip 'TODO'
+ #?niecza todo
ok((1,2,3,4) ~~ (1,*,4), 'array smartmatch dwims * many elems');
#?rakudo todo 'nom regression'
- #?niecza skip 'TODO'
+ #?niecza todo
ok((1,2,3,4) ~~ (1,*,*,4), 'array smartmatch dwims * many elems (many *s)');
#?rakudo todo 'nom regression'
- #?niecza skip 'TODO'
+ #?niecza todo
ok((1,2,3,4) ~~ (*,3,*), 'array smartmatch dwims * at start and end');
#?rakudo todo 'nom regression'
- #?niecza skip 'TODO'
+ #?niecza todo
ok((1,2,3,4) ~~ (*,*,3,*,*), 'array smartmatch dwims * at start and end (many *s)');
#?rakudo todo 'nom regression'
- #?niecza skip 'TODO'
+ #?niecza todo
ok((1,2,3,4) ~~ (*,1,2,3,4), 'array smartmatch dwims * can match nothing at start');
#?rakudo todo 'nom regression'
- #?niecza skip 'TODO'
+ #?niecza todo
ok((1,2,3,4) ~~ (*,*,1,2,3,4), 'array smartmatch dwims * can match nothing at start (many *s)');
#?rakudo todo 'nom regression'
- #?niecza skip 'TODO'
+ #?niecza todo
ok((1,2,3,4) ~~ (1,2,*,3,4), 'array smartmatch dwims * can match nothing in middle');
#?rakudo todo 'nom regression'
- #?niecza skip 'TODO'
+ #?niecza todo
ok((1,2,3,4) ~~ (1,2,*,*,3,4), 'array smartmatch dwims * can match nothing in middle (many *s)');
#?rakudo todo 'nom regression'
- #?niecza skip 'TODO'
+ #?niecza todo
ok((1,2,3,4) ~~ (1,2,3,4,*), 'array smartmatch dwims * can match nothing at end');
#?rakudo todo 'nom regression'
- #?niecza skip 'TODO'
+ #?niecza todo
ok((1,2,3,4) ~~ (1,2,3,4,*,*), 'array smartmatch dwims * can match nothing at end (many *s)');
ok(!((1,2,3,4) ~~ (1,*,3)), '* dwimming does not cause craziness');
ok(!((1,2,3,4) ~~ (*,5)), '* dwimming does not cause craziness');
@@ -73,12 +73,12 @@ plan 36;
ok (@a !~~ @b), 'Basic smartmatching on arrays (negative)';
ok (@b !~~ @a), 'Basic smartmatching on arrays (negative)';
#?rakudo todo 'nom regression'
- #?niecza skip 'TODO'
+ #?niecza todo
ok (@a ~~ @m), 'Whatever dwimminess in arrays';
ok (@a ~~ (1, 2, 3)), 'smartmatch Array ~~ List';
ok ((1, 2, 3) ~~ @a), 'smartmatch List ~~ Array';
#?rakudo todo 'nom regression'
- #?niecza skip 'TODO'
+ #?niecza todo
ok ((1, 2, 3) ~~ @m), 'smartmatch List ~~ Array with dwim';
ok (1 ~~ *,1,*), 'smartmatch with Array RHS co-erces LHS to list';
View
8 S03-smartmatch/array-hash.t
@@ -5,14 +5,14 @@ plan 6;
#L<S03/"Smart matching"/Array Hash hash slice existence>
{
my %h = (a => 'b', c => Mu);
- #?niecza skip 'TODO'
+ #?niecza todo
ok (['a'] ~~ %h), 'Array ~~ Hash (exists and True)';
- #?niecza skip 'TODO'
+ #?niecza todo
ok (['c'] ~~ %h), 'Array ~~ Hash (exists but Mu)';
#?rakudo 2 todo 'nom regression'
- #?niecza skip 'TODO'
+ #?niecza todo
ok ([<a c>] ~~ %h), 'Array ~~ Hash (both exist)';
- #?niecza skip 'TODO'
+ #?niecza todo
ok ([<c d>] ~~ %h), 'Array ~~ Hash (one exists)';
# note that ?any() evaluates to False
ok !( () ~~ %h), 'Array ~~ Hash (empty list)';
View
4 S03-smartmatch/regex-hash.t
@@ -6,9 +6,9 @@ plan 4;
{
my %h = (moep => 'foo', bar => 'baz');
#?rakudo 2 todo 'nom regression'
- #?niecza skip 'TODO'
+ #?niecza todo
ok (/oep/ ~~ %h), 'Regex ~~ Hash (+,1)';
- #?niecza skip 'TODO'
+ #?niecza todo
ok (/bar/ ~~ %h), 'Regex ~~ Hash (+,2)';
ok !(/ugh/ ~~ %h), 'Regex ~~ Hash (-,1)';
ok !(/foo/ ~~ %h), 'Regex ~~ Hash (-,value)';
View
4 S03-smartmatch/scalar-hash.t
@@ -5,9 +5,9 @@ plan 3;
#L<S03/"Smart matching"/Cool Hash hash entry existence>
{
my %h = (moep => 'foo', bar => Mu);
- #?niecza skip 'TODO'
+ #?niecza todo
ok ('moep' ~~ %h), 'Cool ~~ Hash (+, True)';
- #?niecza skip 'TODO'
+ #?niecza todo
ok ('bar' ~~ %h), 'Cool ~~ Hash (+, False)';
ok !('foo' ~~ %h), 'Cool ~~ Hash (-)';
}
View
4 S04-blocks-and-statements/pointy-rw.t
@@ -45,12 +45,12 @@ plan 10;
{
my $pair = (a => 42);
- #?niecza skip 'TODO'
+ #?niecza todo
lives_ok {
for $pair.value -> $v is rw { $v += 1 }
}, 'aliases returned by $pair.values should be rw (1)';
- #?niecza skip 'TODO'
+ #?niecza todo
is $pair.value, 43, 'aliases returned by $pair.values should be rw (2)';
}
View
6 S04-declarations/implicit-parameter.t
@@ -40,9 +40,9 @@ plan 18;
dies_ok({ (-> { $_ }).(42) }, 'Even when we use $_>');
#?rakudo 2 todo 'pointy blocks and $_'
- #?niecza skip 'TODO'
+ #?niecza todo
is((-> { $_ }).(), 'Ack!', '$_ is lexical here');
- #?niecza skip 'TODO'
+ #?niecza todo
is(-> $a { $_ }.(42), 'Ack!', 'Even with parameters (?)');
is(-> $_ { $_ }.(42), 42, 'But not when the parameter is $_');
@@ -51,7 +51,7 @@ plan 18;
is(-> { }.arity, 0, '->{} is arity 0, again');
}
-#?niecza skip 'TODO'
+#?niecza todo
{
eval_dies_ok('sub { $^foo }.(42)', 'Placeholders not allowed in sub()');
}
View
4 S04-phasers/end.t
@@ -8,11 +8,11 @@ eval_lives_ok 'my $x = 3; END { $x * $x }',
my $a = 0;
#?rakudo 2 todo 'lexicals and eval()'
-#?niecza skip 'TODO'
+#?niecza todo
eval_lives_ok 'my $x = 3; END { $a = $x * $x };',
'and those from eval as well';
-#?niecza skip 'TODO'
+#?niecza todo
is $a, 9, 'and they really worked';
# vim: ft=perl6
View
2  S04-phasers/start.t
@@ -88,7 +88,7 @@ for <first second> {
nok $was_in_start.defined, 'START {} has not run yet';
is $sub(), 23, 'START {} block set our variable (2)';
- #?niecza skip 'TODO'
+ #?niecza todo
is $sub(), 23, 'the returned value of START {} still there';
is $was_in_start, 1, 'our START {} block was invoked exactly once';
}
View
4 S04-statements/terminator.t
@@ -43,7 +43,7 @@ eval_dies_ok('my $x = ', 'incomplete expression');
';
#?pugs todo 'parsing'
- #?niecza skip 'TODO'
+ #?niecza todo
is($z[0], 3, 'auto-curly doesn\'t apply unless we\'re at top level');
}
@@ -57,7 +57,7 @@ eval_dies_ok '(1) { $foo = 2 }', 'parens do not eat spaces after them';
# RT #79964
#?rakudo todo 'RT #79964'
-#?niecza skip 'TODO'
+#?niecza todo
eval_lives_ok "my &f;\nsub g() { }\n&f;", 'implicit terminator before & sigil';
# vim: ft=perl6
View
8 S05-capture/match-object.t
@@ -17,15 +17,15 @@ is $/.to, 4, '.to';
is $/.prematch, 'ab', '.prematch';
#?niecza skip 'Unable to resolve method postmatch in class Match'
is $/.postmatch, 'de', '.postmatch';
-#?niecza skip 'TODO'
+#?niecza todo
is $/.list.elems, 0, '.list (empty)';
is $/.hash.elems, 0, '.hash (empty)';
is $/.keys.elems, 0, '.keys (empty)';
-#?niecza skip 'TODO'
+#?niecza todo
is $/.values.elems, 0, '.values (empty)';
-#?niecza skip 'TODO'
+#?niecza todo
is $/.pairs.elems, 0, '.pairs (empty)';
-#?niecza skip 'TODO'
+#?niecza todo
is $/.kv.elems, 0, '.kv (empty)';
nok 'abde' ~~ /\d/, 'no match';
View
2  S05-grammar/action-stubs.t
@@ -104,7 +104,7 @@ is $action.calls, 'ab', '... and in the right order';
}
}
- #?niecza skip 'TODO'
+ #?niecza todo
is ActionsTestGrammar.parse("ab\ncd", :actions(TestActions.new)).ast, 123,
'Can call Str.subst in an action method without any trouble';
}
View
12 S05-match/blocks.t
@@ -20,7 +20,7 @@ if 1 {
}
#?rakudo todo 'nom regression'
-#?niecza skip 'TODO'
+#?niecza todo
ok !defined($/), '$/ still undefined in the outer block';
my $loop = 1;
@@ -31,7 +31,7 @@ while $loop {
$loop = 0;
}
#?rakudo todo 'nom regression'
-#?niecza skip 'TODO'
+#?niecza todo
ok !defined($/), '$/ still undefined in the outer block';
{
@@ -39,7 +39,7 @@ ok !defined($/), '$/ still undefined in the outer block';
is ~$/, 'c', '... and can use the match var';
}
#?rakudo todo 'nom regression'
-#?niecza skip 'TODO'
+#?niecza todo
ok !defined($/), '$/ still undefined in the outer block';
my $discarded = do {
@@ -48,7 +48,7 @@ my $discarded = do {
}
#?rakudo todo 'nom regression'
-#?niecza skip 'TODO'
+#?niecza todo
ok !defined($/), '$/ still undefined in the outer block';
{
@@ -63,7 +63,7 @@ ok !defined($/), '$/ still undefined in the outer block';
ok $count, 'Can match in the condition of a while loop';
is $match, 'b', '... and can use $/ in the block';
#?rakudo todo 'Assignment to matched string affects earlier match objects'
- #?niecza skip 'TODO'
+ #?niecza todo
is "$/", 'b', '... and can use $/ outside the block';
}
@@ -85,7 +85,7 @@ ok !defined($/), '$/ still undefined in the outer block';
flunk 'regex did not match - $/ is properly set with explicit $_ in a given { } block';
}
if /\w+/ {
- #?niecza skip 'TODO'
+ #?niecza todo
is $/, 'Wall', '$/ is properly set in a given { } block';
} else {
flunk 'regex did not match - $/ is properly set in a given { } block';
View
4 S05-match/non-capturing.t
@@ -18,13 +18,13 @@ my $str = "abbbbbbbbc";
ok($str ~~ m{a(b+)c}, 'Matched 1');
ok($/, 'Saved 1');
is($/, $str, 'Grabbed all 1');
-#?niecza skip 'TODO'
+#?niecza todo
is($/[0], substr($str,1,-1), 'Correctly captured 1');
ok($str ~~ m{a[b+]c}, 'Matched 2');
ok($/, 'Saved 2');
is($/, $str, 'Grabbed all 2');
-#?niecza skip 'TODO'
+#?niecza todo
ok(!defined($/[0]), "Correctly didn't capture 2");
{
View
2  S05-metachars/closure.t
@@ -46,7 +46,7 @@ is($caught, "bc", 'Outer caught');
#?rakudo skip 'make() inside closure'
{
ok("abc" ~~ m/a(bc){make uc $0}/ , 'Zero match');
- #?niecza skip 'TODO'
+ #?niecza todo
is($($/), "BC", 'Zero matched');
is(~$0, "bc", 'One matched');
}
View
14 S05-metachars/newline.t
@@ -17,11 +17,11 @@ ok("\n" ~~ m/\n/, '\n');
ok("\o15\o12" ~~ m/\n/, 'CR/LF');
ok("\o12" ~~ m/\n/, 'LF');
ok("a\o12" ~~ m/\n/, 'aLF');
-#?niecza skip 'TODO'
+#?niecza todo
ok("\o15" ~~ m/\n/, 'CR');
-#?niecza skip 'TODO'
+#?niecza todo
ok("\x85" ~~ m/\n/, 'NEL');
-#?niecza skip 'TODO'
+#?niecza todo
#?rakudo todo 'Unicode'
ok("\x2028" ~~ m/\n/, 'LINE SEP');
@@ -30,14 +30,14 @@ ok(!( "abc" ~~ m/\n/ ), 'not abc');
ok(!( "\n" ~~ m/\N/ ), 'not \n');
ok(!( "\o12" ~~ m/\N/ ), 'not LF');
-#?niecza skip 'TODO'
+#?niecza todo
ok(!( "\o15\o12" ~~ m/\N/ ), 'not CR/LF');
-#?niecza skip 'TODO'
+#?niecza todo
ok(!( "\o15" ~~ m/\N/ ), 'not CR');
-#?niecza skip 'TODO'
+#?niecza todo
ok(!( "\x85" ~~ m/\N/ ), 'not NEL');
#?rakudo todo 'Unicode'
-#?niecza skip 'TODO'
+#?niecza todo
ok(!( "\x2028" ~~ m/\N/ ), 'not LINE SEP');
ok("abc" ~~ m/\N/, 'abc');
View
2  S05-metasyntax/charset.t
@@ -57,7 +57,7 @@ ok( "foo" ~~ /<[f] #`[comment] + [o]>/, 'comment embedded in charset works' );
ok "\x[10001]" ~~ /<[\x10000..\xEFFFF]>/, 'large \\x char spec';
#?rakudo skip 'RT 71702: lethal reverse range in charset'
-#?niecza skip 'TODO'
+#?niecza todo
eval_dies_ok( "'RT 71702' ~~ /<[d..b]>? RT/",
'reverse range in charset is lethal (RT 71702)' );
View
30 S05-metasyntax/litvar.t
@@ -33,25 +33,25 @@ ok("zzzzzz{$var}zzzzzz" ~~ m/$var/, 'Nested scalar interpolation');
ok(!( "aaaaab" ~~ m/$var/ ), 'Rulish scalar interpolation');
#?pugs 6 todo 'feature'
-#?niecza skip 'TODO'
+#?niecza todo
ok('a' ~~ m/$aref[0]/, 'Array ref 0');
-#?niecza skip 'TODO'
+#?niecza todo
ok('a' ~~ m/$aref.[0]/, 'Array ref dot 0');
-#?niecza skip 'TODO'
+#?niecza todo
ok('a' ~~ m/@var[0]/, 'Array 0');
-#?niecza skip 'TODO'
+#?niecza todo
ok('1' ~~ m/$href.{'a'}/, 'Hash ref dot A');
-#?niecza skip 'TODO'
+#?niecza todo
ok('1' ~~ m/$href{'a'}/, 'Hash ref A');
-#?niecza skip 'TODO'
+#?niecza todo
ok('1' ~~ m/%var{'a'}/, 'Hash A');
-#?niecza skip 'TODO'
+#?niecza todo
ok('1' ~~ m/$href.<a>/, 'Hash ref dot A');
-#?niecza skip 'TODO'
+#?niecza todo
ok('1' ~~ m/$href<a>/, 'Hash ref A');
-#?niecza skip 'TODO'
+#?niecza todo
ok('1' ~~ m/%var<a>/, 'Hash A');
ok(!( 'a' ~~ m/$aref[1]/ ), 'Array ref 1');
@@ -68,7 +68,7 @@ ok(!( '1' ~~ m/%var<b>/ ), 'Hash B');
# However, if $var contains a Regex object, instead of attempting to convert it to a string, it is called as a subrule
# A simple test for this
my $rx = rx/foo/;
-#?niecza skip 'TODO'
+#?niecza todo
ok('foobar' ~~ /$rx bar/, 'regex object in a regex');
ok('quxbaz' !~~ /$rx baz/, 'nonmatching regex object in a regex');
@@ -77,18 +77,18 @@ ok('quxbaz' !~~ /$rx baz/, 'nonmatching regex object in a regex');
# L<S05/Variable (non-)interpolation/An interpolated array:>
#?pugs 3 todo 'feature'
-#?niecza skip 'TODO'
+#?niecza todo
ok("a" ~~ m/@var/, 'Simple array interpolation (a)');
-#?niecza skip 'TODO'
+#?niecza todo
ok("b" ~~ m/@var/, 'Simple array interpolation (b)');
-#?niecza skip 'TODO'
+#?niecza todo
ok("c" ~~ m/@var/, 'Simple array interpolation (c)');
ok(!( "d" ~~ m/@var/ ), 'Simple array interpolation (d)');
#?pugs 2 todo 'feature'
-#?niecza skip 'TODO'
+#?niecza todo
ok("ddddaddddd" ~~ m/@var/, 'Nested array interpolation (a)');
-#?niecza skip 'TODO'
+#?niecza todo
ok("abca" ~~ m/^@var+$/, 'Multiple array matching');
ok(!( "abcad" ~~ m/^@var+$/ ), 'Multiple array non-matching');
View
2  S05-metasyntax/sequential-alternation.t
@@ -22,7 +22,7 @@ plan 10;
#L<S05/"Variable (non-)interpolation"/"An interpolated array:">
#?rakudo todo 'sequential alternation NYI'
-#?niecza skip 'TODO'
+#?niecza todo
{
my $str = 'x' x 7;
my @list = <x xx xxxx>;
View
4 S05-modifier/counted-match.t
@@ -51,7 +51,7 @@ my $data = "f fo foo fooo foooo fooooo foooooo";
# more interesting variations of :nth(...)
#?rakudo todo 'nom regression'
-#?niecza skip 'TODO - but one hangs'
+#?niecza skip 'hangs'
{
my @match = $data.match(/fo+/, :nth(2, 3)).list;
is +@match, 2, 'nth(list) is ok';
@@ -85,7 +85,7 @@ my $data = "f fo foo fooo foooo fooooo foooooo";
# test that non-monotonic items in :nth lists are ignored
#?rakudo todo 'nom regression'
-#?niecza skip 'TODO'
+#?niecza todo
{
is 'abacadaeaf'.match(/a./, :nth(2, 1, 4)).join(', '),
'ac, ae', 'non-monotonic items in :nth are ignored';
View
6 S05-modifier/ignorecase.t
@@ -37,15 +37,15 @@ ok "hello" !~~ m:i/<&mixedcase>/, "no match with :i if matched by subrule";
ok "hello" ~~ m:i/Hello/, "match with :i (direct)";
ok "hello" !~~ m:ignorecase/<&mixedcase>/, "no match with :ignorecase + subrule";
-#?niecza skip 'TODO'
+#?niecza todo
ok "hello" !~~ m:ignorecase/Hello/, "match with :ignorecase (direct)";
ok('Δ' ~~ m:i/δ/, ':i with greek chars');
# The German ß (&szlig;) maps to uppercase SS:
#?rakudo 2 todo 'ignorecase and SS/&szlig;'
-#?niecza skip 'TODO'
+#?niecza todo
ok('ß' ~~ m:i/SS/, "ß matches SS with :ignorecase");
-#?niecza skip 'TODO'
+#?niecza todo
ok('SS' ~~ m:i/ß/, "SS matches ß with :ignorecase");
View
6 S06-multi/by-trait.t
@@ -10,15 +10,15 @@ use Test;
#?niecza skip 'Ambiguous dispatch for &uno_mas'
is uno_mas(42), 43, 'multi works with constant';
- #?niecza skip 'TODO'
+ #?niecza todo
is $ro_call, 1, 'read-only multi was called';
my $x = 99;
#?niecza skip 'Ambiguous dispatch for &uno_mas'
is uno_mas( $x ), 100, 'multi works with variable';
- #?niecza skip 'TODO'
+ #?niecza todo
is $x, 100, 'variable was modified';
- #?niecza skip 'TODO'
+ #?niecza todo
is $rw_call, 1, 'read-write multi was called';
}
View
2  S06-routine-modifiers/scoped-named-subs.t
@@ -44,7 +44,7 @@ eval_dies_ok
'Return of list with wrong type dies';
#?rakudo 2 todo 'RT 65128'
-#?niecza skip 'TODO'
+#?niecza todo
eval_lives_ok
'my Num List sub f () { return () }; f()',
'return of empty list should live';
View
8 S06-signature/code.t
@@ -22,18 +22,18 @@ tester(sub ($x) { $collector = 3 * $x });
ok $collector == 12, 'same with anonymous sub';
sub tester2(&my_sub) { 1 } #OK not used
-#?niecza skip 'TODO'
+#?niecza todo
dies_ok {tester2(42)}, "can't pass thing that doesn't do Callable";
sub not_returns_a_sub { 3 };
-#?niecza skip 'TODO'
+#?niecza todo
dies_ok {tester2(not_returns_a_sub)},
"can't pass thing that doesn't do Callable";
is tester2({ 'block' }), 1, 'Can pass a block to a &parameter';
# RT #68578
-#?niecza skip 'TODO'
+#?niecza todo
{
sub rt68578( Callable &x ) {} #OK not used
dies_ok { rt68578({ 'block' }) },
@@ -46,7 +46,7 @@ is tester2({ 'block' }), 1, 'Can pass a block to a &parameter';
sub foo(&foo = &foo) {
$tracker = &foo
};
- #?niecza skip 'TODO'
+ #?niecza todo
lives_ok { foo },
'can call a sub with a code object defaulting to something of its own name';
ok !$tracker.defined, 'the inner &foo is undefined (scoping)';
Please sign in to comment.
Something went wrong with that request. Please try again.