Permalink
Browse files

niecza (auto)unfudge

  • Loading branch information...
1 parent 2372496 commit 42626ba4f9a3499c4b1425374003abbff28a4d3d @coke coke committed Jan 9, 2012
@@ -29,7 +29,6 @@ plan 12;
is "{}", '', 'Interpolating an empty block is cool';
}
-#?niecza skip 'Parcel.max'
{
my $rt65538_in = qq[line { (1,2,3).min }
line 2
View
@@ -280,7 +280,6 @@ Note, "non-chaining binary" was later renamed to "structural infix".
## something in S06. --pmichaud
# L<S06/Named arguments/In other words :$when is shorthand for :when($when)>
#
-#?niecza skip "eqv NYI for Pair"
{
my $item = 'bar';
my $pair = (:$item);
View
@@ -153,7 +153,6 @@ is(+(6..8), 3, 'numification');
is((1..8)[1,3], [2,4], 'postcircumfix:<[ ]> on range works');
}
-#?niecza skip 'Undeclared routine "pick"'
{
my @b = pick(*, 1..100);
is @b.elems, 100, "pick(*, 1..100) returns the correct number of elements";
@@ -181,7 +180,6 @@ is(+(6..8), 3, 'numification');
is pick("25", 1..100).elems, 25, "pick works Str arguments";
}
-#?niecza skip 'Undeclared routine "pick"'
{
my @b = pick(*, 'b' .. 'y');
is @b.elems, 24, "pick(*, 'b' .. 'y') returns the correct number of elements";
@@ -209,7 +207,6 @@ is(+(6..8), 3, 'numification');
is pick("10", 'b' .. 'y').elems, 10, "pick works Str arguments";
}
-#?niecza skip 'Undeclared routine "roll"'
{
my @b = roll(100, 1..100);
is @b.elems, 100, "roll(100, 1..100) returns the correct number of elements";
@@ -236,7 +233,6 @@ is(+(6..8), 3, 'numification');
is roll("25", 1..100).elems, 25, "roll works Str arguments";
}
-#?niecza skip 'Undeclared routine "roll"'
{
my @b = roll(100, 'b' .. 'y');
is @b.elems, 100, "roll(100, 'b' .. 'y') returns the correct number of elements";
View
@@ -44,7 +44,7 @@ my Str $bar;
# L<S02/Variables Containing Undefined Values/Variables with native types do not support undefinedness>
#?rakudo skip 'native types (causes false positives if marked with todo)'
-#?niecza skip 'native types'
+#?niecza skip 'native types (noauto)'
{
eval_lives_ok('my int $alpha = 1', 'Has native type int');
eval_dies_ok('my int $alpha = Nil', 'native int type cannot be undefined');
@@ -160,7 +160,6 @@ dies_ok { my Num $n; $n = 42; }, 'Num does not accept Int';
ok List !~~ Array, 'A Seq is not an Array';
#?niecza skip 'Expecting a term'
ok Seq ~~ Positional, 'A Seq does Positional';
- #?niecza skip 'Expecting a term'
ok Array ~~ Positional, 'Array does Positional too';
}
@@ -77,11 +77,9 @@ isa_ok (1..*-1)(10), Range, '(1..*-1)(10) is a Range';
# following is what we expect +* to do
my @list = <1 10 2 3>;
- #?niecza skip 'Use of uninitialized value in string context'
is sort(-> $key {+$key}, @list), [1,2,3,10], '-> $key {+$key} generates closure to numify';
# and here are two actual applications of +*
- #?niecza skip 'Use of uninitialized value in string context'
is sort($x, @list), [1,2,3,10], '+* generates closure to numify';
is @list.sort($x), [1,2,3,10], '+* generates closure to numify';
@@ -132,7 +132,7 @@ my $x;
is( --$x, "A\x[5ea]", "'B\x[5d0]'-- is 'A\x[5ea]'" );
$x = "\x[5d0]ZZ";
#?rakudo todo 'Hebrew'
- #?niecza skip "Magical string decrement underflowed"
+ #?niecza todo "Magical string decrement underflowed"
is( ++$x, "\x[5d1]AA", "'\x[5d0]ZZ'++ is '\x[5d1]AA'" );
$x = "\x[5d1]AA";
#?rakudo todo 'Hebrew'
@@ -243,7 +243,7 @@ is (1..6 Z 'a' .. 'c').join, '1a2b3c', 'Ranges and infix:<Z>';
}
# RT #82620
-#?niecza skip 'trans NYI'
+#?niecza todo 'trans NYI'
{
lives_ok {("a".."b").map({.trans(""=>"")}).perl},
"range doesn't leak Parrot types";
@@ -381,7 +381,7 @@ eval_dies_ok('for(0..5) { }','keyword needs at least one whitespace after it');
}
#?rakudo skip 'optional variable in for loop (RT #63994)'
-#?niecza 2 skip 'NYI'
+#?niecza 2 todo 'NYI'
{
my $str = '';
for 1..5 -> $x, $y? {
View
@@ -2236,7 +2236,6 @@ ok "abc\ndef\n-==\nghi" ~~ /a<!wb>/, '\w\w nonword boundary';
#### \-<!wb> abc\ndef\n-==\nghi y \W\W nonword boundary
ok "abc\ndef\n-==\nghi" ~~ /\-<!wb>/, '\W\W nonword boundary';
-#?niecza 3 skip "Unable to resolve method upper in class Cursor"
#### <upper> \t\n\r !"#$%&\'()*+,-./:;<=>?@[\]^`_{|}0123456789ABCDEFGHIJabcdefghij /mob<upper>: <A @ 45>/ <upper>
ok ('\t\n\r !"#$%&\'()*+,-./:;<=>?@[\]^`_{|}0123456789ABCDEFGHIJabcdefghij' ~~ /<upper>/) && matchcheck($/, q/mob<upper>: <A @ 45>/), '<upper>';
@@ -2247,7 +2246,6 @@ ok ('\t\n\r !"#$%&\'()*+,-./:;<=>?@[\]^`_{|}0123456789ABCDEFGHIJabcdefghij' ~~ /
#### <+upper>+ \t\n\r !"#$%&\'()*+,-./:;<=>?@[\]^`_{|}0123456789ABCDEFGHIJabcdefghij /mob: <ABCDEFGHIJ @ 45>/ <+upper>+
ok ('\t\n\r !"#$%&\'()*+,-./:;<=>?@[\]^`_{|}0123456789ABCDEFGHIJabcdefghij' ~~ /<+upper>+/) && matchcheck($/, q/mob: <ABCDEFGHIJ @ 45>/), '<+upper>+';
-#?niecza 3 skip "Unable to resolve method lower in class Cursor"
#### <lower> \t\n\r !"#$%&\'()*+,-./:;<=>?@[\]^`_{|}0123456789ABCDEFGHIJabcdefghij /mob<lower>: <a @ 55>/ <lower>
ok ('\t\n\r !"#$%&\'()*+,-./:;<=>?@[\]^`_{|}0123456789ABCDEFGHIJabcdefghij' ~~ /<lower>/) && matchcheck($/, q/mob<lower>: <a @ 55>/), '<lower>';
@@ -2267,7 +2265,6 @@ ok ('\t\n\r !"#$%&\'()*+,-./:;<=>?@[\]^`_{|}0123456789ABCDEFGHIJabcdefghij' ~~ /
#### <+alpha>+ \t\n\r !"#$%&\'()*+,-./:;<=>?@[\]^`_{|}0123456789ABCDEFGHIJabcdefghij /mob: <ABCDEFGHIJabcdefghij @ 45>/ <+alpha>+
ok ('\t\n\r !"#$%&\'()*+,-./:;<=>?@[\]^`_{|}0123456789ABCDEFGHIJabcdefghij' ~~ /<+alpha>+/) && matchcheck($/, q/mob: <ABCDEFGHIJabcdefghij @ 45>/), '<+alpha>+';
-#?niecza 3 skip "Unable to resolve method digit in class Cursor"
#### <digit> \t\n\r !"#$%&\'()*+,-./:;<=>?@[\]^`_{|}0123456789ABCDEFGHIJabcdefghij /mob<digit>: <0 @ 35>/ <digit>
ok ('\t\n\r !"#$%&\'()*+,-./:;<=>?@[\]^`_{|}0123456789ABCDEFGHIJabcdefghij' ~~ /<digit>/) && matchcheck($/, q/mob<digit>: <0 @ 35>/), '<digit>';
@@ -2278,7 +2275,6 @@ ok ('\t\n\r !"#$%&\'()*+,-./:;<=>?@[\]^`_{|}0123456789ABCDEFGHIJabcdefghij' ~~ /
#### <+digit>+ \t\n\r !"#$%&\'()*+,-./:;<=>?@[\]^`_{|}0123456789ABCDEFGHIJabcdefghij /mob: <0123456789 @ 35>/ <+digit>+
ok ('\t\n\r !"#$%&\'()*+,-./:;<=>?@[\]^`_{|}0123456789ABCDEFGHIJabcdefghij' ~~ /<+digit>+/) && matchcheck($/, q/mob: <0123456789 @ 35>/), '<+digit>+';
-#?niecza 3 skip "Unable to resolve method xdigit in class Cursor"
#### <xdigit> \t\n\r !"#$%&\'()*+,-./:;<=>?@[\]^`_{|}0123456789ABCDEFGHIJabcdefghij /mob<xdigit>: <0 @ 35>/ <xdigit>
ok ('\t\n\r !"#$%&\'()*+,-./:;<=>?@[\]^`_{|}0123456789ABCDEFGHIJabcdefghij' ~~ /<xdigit>/) && matchcheck($/, q/mob<xdigit>: <0 @ 35>/), '<xdigit>';
@@ -2289,7 +2285,6 @@ ok ('\t\n\r !"#$%&\'()*+,-./:;<=>?@[\]^`_{|}0123456789ABCDEFGHIJabcdefghij' ~~ /
#### <+xdigit>+ \t\n\r !"#$%&\'()*+,-./:;<=>?@[\]^`_{|}0123456789ABCDEFGHIJabcdefghij /mob: <0123456789ABCDEF @ 35>/ <+xdigit>+
ok ('\t\n\r !"#$%&\'()*+,-./:;<=>?@[\]^`_{|}0123456789ABCDEFGHIJabcdefghij' ~~ /<+xdigit>+/) && matchcheck($/, q/mob: <0123456789ABCDEF @ 35>/), '<+xdigit>+';
-#?niecza 3 skip "Unable to resolve method space in class Cursor"
#### <space> \t\n\r !"#$%&\'()*+,-./:;<=>?@[\]^`_{|}0123456789ABCDEFGHIJabcdefghij /mob<space>: <\t @ 0>/ <space>
ok ('\t\n\r !"#$%&\'()*+,-./:;<=>?@[\]^`_{|}0123456789ABCDEFGHIJabcdefghij' ~~ /<space>/) && matchcheck($/, q/mob<space>: <\t @ 0>/), '<space>';
@@ -2300,7 +2295,6 @@ ok ('\t\n\r !"#$%&\'()*+,-./:;<=>?@[\]^`_{|}0123456789ABCDEFGHIJabcdefghij' ~~ /
#### <+space>+ \t\n\r !"#$%&\'()*+,-./:;<=>?@[\]^`_{|}0123456789ABCDEFGHIJabcdefghij /mob: <\t\n\r @ 0>/ <+space>+
ok ('\t\n\r !"#$%&\'()*+,-./:;<=>?@[\]^`_{|}0123456789ABCDEFGHIJabcdefghij' ~~ /<+space>+/) && matchcheck($/, q/mob: <\t\n\r @ 0>/), '<+space>+';
-#?niecza 3 skip "Unable to resolve method blank in class Cursor"
#### <blank> \t\n\r !"#$%&\'()*+,-./:;<=>?@[\]^`_{|}0123456789ABCDEFGHIJabcdefghij /mob<blank>: <\t @ 0>/ <blank>
ok ('\t\n\r !"#$%&\'()*+,-./:;<=>?@[\]^`_{|}0123456789ABCDEFGHIJabcdefghij' ~~ /<blank>/) && matchcheck($/, q/mob<blank>: <\t @ 0>/), '<blank>';
@@ -2311,7 +2305,7 @@ ok ('\t\n\r !"#$%&\'()*+,-./:;<=>?@[\]^`_{|}0123456789ABCDEFGHIJabcdefghij' ~~ /
#### <+blank>+ \t\n\r !"#$%&\'()*+,-./:;<=>?@[\]^`_{|}0123456789ABCDEFGHIJabcdefghij /mob: <\t @ 0>/ <+blank>+
ok ('\t\n\r !"#$%&\'()*+,-./:;<=>?@[\]^`_{|}0123456789ABCDEFGHIJabcdefghij' ~~ /<+blank>+/) && matchcheck($/, q/mob: <\t @ 0>/), '<+blank>+';
-#?niecza 3 skip "Unable to resolve method cntrl in class Cursor"
+#?niecza 3 todo "Unable to resolve method cntrl in class Cursor"
#### <cntrl> \t\n\r !"#$%&\'()*+,-./:;<=>?@[\]^`_{|}0123456789ABCDEFGHIJabcdefghij /mob<cntrl>: <\t @ 0>/ <cntrl>
#?rakudo todo '<cntrl>'
@@ -2325,7 +2319,6 @@ ok ('\t\n\r !"#$%&\'()*+,-./:;<=>?@[\]^`_{|}0123456789ABCDEFGHIJabcdefghij' ~~ /
#?rakudo todo '<cntrl>'
ok ('\t\n\r !"#$%&\'()*+,-./:;<=>?@[\]^`_{|}0123456789ABCDEFGHIJabcdefghij' ~~ /<+cntrl>+/) && matchcheck($/, q/mob: <\t\n\r @ 0>/), '<+cntrl>+';
-#?niecza 3 skip "Unable to resolve method punct in class Cursor"
#### <punct> \t\n\r !"#$%&\'()*+,-./:;<=>?@[\]^`_{|}0123456789ABCDEFGHIJabcdefghij /mob<punct>: <! @ 4>/ <punct>
ok ('\t\n\r !"#$%&\'()*+,-./:;<=>?@[\]^`_{|}0123456789ABCDEFGHIJabcdefghij' ~~ /<punct>/) && matchcheck($/, q/mob<punct>: <! @ 4>/), '<punct>';
@@ -2336,7 +2329,6 @@ ok ('\t\n\r !"#$%&\'()*+,-./:;<=>?@[\]^`_{|}0123456789ABCDEFGHIJabcdefghij' ~~ /
#### <+punct>+ \t\n\r !"#$%&\'()*+,-./:;<=>?@[\]^`_{|}0123456789ABCDEFGHIJabcdefghij /mob: <!"#$%&/ <+punct>+
ok ('\t\n\r !"#$%&\'()*+,-./:;<=>?@[\]^`_{|}0123456789ABCDEFGHIJabcdefghij' ~~ /<+punct>+/) && matchcheck($/, q/mob: <!"#$%&/), '<+punct>+';
-#?niecza 4 skip "Unable to resolve method alnum in class Cursor"
#### <alnum> \t\n\r !"#$%&\'()*+,-./:;<=>?@[\]^`_{|}0123456789ABCDEFGHIJabcdefghij /mob<alnum>: <0 @ 35>/ <alnum>
ok ('\t\n\r !"#$%&\'()*+,-./:;<=>?@[\]^`_{|}0123456789ABCDEFGHIJabcdefghij' ~~ /<alnum>/) && matchcheck($/, q/mob<alnum>: <0 @ 35>/), '<alnum>';
@@ -2377,23 +2369,19 @@ ok 'caad' !~~ /^<-[ab]+[cd]>+$/, 'enumerated character classes variant';
ok 'ccdd' ~~ /<- [ a b ]+[cd]>+/, 'whitespace is ignored within square brackets and after the initial -';
#### ^<-upper>dent ident_1 y inverted character class
-#?niecza skip "Unable to resolve method upper in class Cursor"
ok 'ident_1' ~~ /^<-upper>dent/, 'inverted character class';
#### ^<-upper>dent Ident_1 n inverted character class
-#?niecza skip "Unable to resolve method upper in class Cursor"
ok 'Ident_1' !~~ /^<-upper>dent/, 'inverted character class';
#### <+alpha-[Jj]>+ abc y character class with no j
-#?niecza skip "Unable to resolve method alpha in class Cursor"
ok 'abc' ~~ /<+alpha-[Jj]>+/, 'character class with no j';
#### <+ alpha - [ Jj ]> abc y character class with no j with ws
#?niecza skip "Unable to resolve method alpha in class Cursor"
ok 'abc' ~~ /<+ alpha - [ Jj ]>/, 'character class with no j with ws';
#### ^<+alpha-[Jj]>+$ aJc n character class with no j fail
-#?niecza skip "Unable to resolve method alpha in class Cursor"
ok 'aJc' !~~ /^<+alpha-[Jj]>+$/, 'character class with no j fail';
@@ -310,7 +310,6 @@ Testing operator overloading subroutines
is $frew, 5, 'infix redefinition of += works';
}
-#?niecza skip 'No matching candidates to dispatch for &infix:<+>'
{
class MMDTestType {
has $.a is rw;
@@ -385,7 +384,6 @@ Testing operator overloading subroutines
# RT #65638
{
is eval('sub infix:<,>($a, $b) { 42 }; 5, 5'), 42, 'infix:<,>($a, $b)';
- #?niecza skip 'Action method post_constraint not yet implemented'
is eval('sub infix:<,>(Int $x where 1, Int $y where 1) { 42 }; 1, 1'), 42,
'very specific infix:<,>';
#?rakudo todo 'RT 65638'
@@ -264,7 +264,6 @@ eval_dies_ok 'sub svn28865( :$a, :@a ) {}',
# L<S06/Named parameters/Bindings happen in declaration order>
#?rakudo skip 'where constraints'
-#?niecza skip "Action method post_constraint not yet implemented"
{
my $t = '';
sub order_test($a where { $t ~= 'a' }, #OK not used
@@ -21,11 +21,11 @@ is mixed(1, 2, 3), '|1|2!3', 'Positional and slurp params';
dies_ok {eval(' mixed()')}, 'at least one arg required';
#?rakudo skip 'types on slurpy params'
-#?niecza skip 'Nominal type check failed in binding Int *@args in x_typed_join; got List, needed Int'
{
sub x_typed_join(Int *@args){ @args.join('|') }
is x_typed_join(1), '1', 'Basic slurpy params with types 1';
is x_typed_join(1, 2, 5), '1|2|5', 'Basic slurpy params with types 2';
+ #?niecza todo 'Types on slurpy params are checked'
dies_ok { x_typed_join(3, 'x') }, 'Types on slurpy params are checked';
}
@@ -250,7 +250,6 @@ eval_dies_ok 'sub rt65324(*@x, $oops) { say $oops }',
# used to be RT #69424
#?rakudo skip 'types on slurpy params'
-#?niecza skip 'Nominal type check failed in binding Int *@a in typed-slurpy; got List, needed Int'
{
sub typed-slurpy(Int *@a) { 5 } #OK not used
my Int @b;
@@ -312,7 +312,6 @@ is Foo7e.new.attr, 42, "default attribute value (1)";
# Tests for clone.
-#?niecza skip "Unable to resolve method clone in class CloneTest"
{
class CloneTest { has $.x is rw; has $.y is rw; }
my $a = CloneTest.new(x => 1, y => 2);
@@ -322,10 +321,12 @@ is Foo7e.new.attr, 42, "default attribute value (1)";
$b.x = 3;
is $b.x, 3, 'changed attribute on clone...';
#?rakudo 2 todo 'clone'
+ #?niecza todo "original not affected"
is $a.x, 1, '...and original not affected';
my $c = $a.clone(x => 42);
is $c.x, 42, 'clone with parameters...';
#?rakudo todo 'clone'
+ #?niecza todo "original not affected"
is $a.x, 1, '...leaves original intact...';
is $c.y, 2, '...and copies what we did not change.';
}
View
@@ -10,7 +10,6 @@ plan 252;
isa_ok(FatRat.new(1,4), FatRat, "FatRat.new makes a FatRat");
isa_ok( (1/4).FatRat, FatRat, "cast of Rat makes a FatRat");
isa_ok( 1.Int.FatRat, FatRat, "cast of Int makes a FatRat");
-#?niecza todo
isa_ok( 1.Num.FatRat, FatRat, "cast of Num makes a FatRat");
isa_ok(1 / 4, Rat, "/ makes a Rat");

0 comments on commit 42626ba

Please sign in to comment.