Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

niecza (auto)unfudge

  • Loading branch information...
commit 7176c48c9885ea016ca70408ae8cefa7eef25dc2 1 parent 2fae5d6
@coke coke authored
View
2  S03-operators/arith.t
@@ -97,7 +97,6 @@ tryeq 2147483647 - 0, 2147483647;
tryeq 0 - -2147483647, 2147483647;
# No warnings should appear;
-#?niecza skip "undefine NYI"
{
my $a;
$a += 1;
@@ -119,7 +118,6 @@ tryeq 0 - -2147483647, 2147483647;
tryeq $a, -4294967297;
}
-#?niecza skip "undefine NYI"
{
my $s;
$s -= 1;
View
3  S03-operators/assign.t
@@ -101,7 +101,6 @@ plan 283;
}
#?pugs skip "skipping assignment with skipped values via * in lvalue"
-#?niecza skip "skipping assignment with skipped values via * in lvalue"
{
# testing list assignments with skipped values
my ($one, $two, $three, $four);
@@ -618,12 +617,12 @@ sub l () { 1, 2 };
is(@z.elems, 6, 'lhs treats ($a) as list');
}
-#?niecza skip 'assigning to ($a, *)'
{
my $a;
my @z = (($a, *) = l, l, l);
is($a.elems, 1, 'lhs treats ($a, *) as list (1)');
#?rakudo todo 'list assignment with ($var, *)'
+ #?niecza todo 'assigning to ($a, *)'
is(@z.elems, 6, 'lhs treats ($a, *) as list (2)');
}
View
1  S03-smartmatch/any-hash-pair.t
@@ -9,7 +9,6 @@ plan 7;
ok !(%a ~~ b => 'ugh'), '%hash ~~ Pair (Str, -)';
ok (%a ~~ a => 1.0), '%hash ~~ Pair (Num, +)';
ok (%a ~~ :b<foo>), '%hash ~~ Colonpair';
- #?niecza skip 'Nominal type check failed in binding anon_8 in MAIN C3_ANON'
ok (%a ~~ c => !*.defined), '%hash ~~ Pair (!*.defined, Mu)';
ok (%a ~~ d => !*.defined), '%hash ~~ Pair (!*.defined, Nil)';
ok !(%a ~~ a => 'foo'), '%hash ~~ Pair (key and val not paired)';
View
3  S05-match/capturing-contexts.t
@@ -8,10 +8,11 @@ plan 36;
# old: L<S05/Return values from matches/"A match always returns a Match object" >
# L<S05/Match objects/"A match always returns a " >
-#?niecza skip 'match returns match object'
{
my $match = 'abd' ~~ m/ (a) (b) c || (\w) b d /;
+ #?niecza todo 'match returns match object'
isa_ok( $match, 'Match', 'Match object returned');
+ #?niecza todo 'match returns match object'
isa_ok( $/, 'Match', 'Match object assigned to $/');
ok( $/ === $match, 'Same match objects');
}
View
7 S06-operator-overloading/sub.t
@@ -334,7 +334,6 @@ Testing operator overloading subroutines
# taken from S06-operator-overloading/method.t
#?rakudo skip 'unknown errors'
-#?niecza skip 'lots o errors'
{
class Bar {
has $.bar is rw;
@@ -357,6 +356,7 @@ Testing operator overloading subroutines
$foo.bar = 'software';
$val = $foo + $foo;
}, '... class methods work for class';
+ #?niecza todo '... basic infix operator overloading worked'
is($val, 'software software', '... basic infix operator overloading worked');
}
@@ -371,10 +371,13 @@ Testing operator overloading subroutines
my @foo = ($obj, $obj, $obj);
my $res;
+ #?niecza todo "stringification didn't die"
lives_ok { $res = ~@foo }, "stringification didn't die";
+ #?niecza todo "... worked in array stringification"
is $res, "pugs pugs pugs", "stringification overloading worked in array stringification";
-
+ #?niecza todo "... with hyperization"
lives_ok { $res = ~[@foo »~« "!"] }, "stringification with hyperization didn't die";
+ #?niecza todo "... was hyperized"
is $res, "pugs! pugs! pugs!", "stringification overloading was hyperized correctly";
}
View
1  S12-attributes/instance.t
@@ -522,7 +522,6 @@ is Foo7e.new.attr, 42, "default attribute value (1)";
is CodeAttr3.new.f, 'OH HAI', '&!m = method { ... } and self.&!m() work';
}
-#?niecza skip "Action method trait_mod:does not yet implemented"
{
# from t/oo/class_inclusion_with_inherited_class.t
# used to be a pugs regression
Please sign in to comment.
Something went wrong with that request. Please try again.