Permalink
Browse files

rakudo unfudges

  • Loading branch information...
1 parent 0d5bc79 commit dbbbce7d44afbed4ca9dd43c9f3677f35cecc434 @moritz moritz committed Apr 23, 2012
@@ -77,7 +77,6 @@ my $outer = 'outside';
}
-#?rakudo skip 'NYI'
{
$pugs::is::cool = 42;
my $cool = "cool";
@@ -145,7 +144,6 @@ my $outer = 'outside';
"symbolic dereferentiation of type vars works (1)";
}
-#?rakudo skip 'NYI'
{
class A::B::C {};
my $ok = ::A::B::C === ::A::("B")::C;
View
@@ -245,7 +245,6 @@ lives_ok { Hash.new("a" => "b") }, 'Hash.new($pair) lives';
# RT #58372
# By collective knowledge of #perl6 and @larry, .{ } is actually defined in
# Any
-#?rakudo skip 'RT 58372'
{
my $x;
lives_ok { $x{'a'} }, 'can index a variable that defaults to Any';
@@ -173,7 +173,6 @@ Some deeper tests were already added.
isa_ok($h<a>.WHAT, Array, "array nested in hashref in one declaration");
}
-#?rakudo 18 skip "nom regression: 'Cannot assign to a non-container'"
{ # structures deeper than 2 levels
my @array;
@array[0][0][0][0][0] = 5;
@@ -615,7 +615,6 @@ sub l () { 1, 2 };
is(@z.elems, 3, 'lhs treats $Foo::c as scalar (2)');
}
-#?rakudo skip 'Cannot assign to a non-container'
{
my @a;
my @z = ($(@a[0]) = l, l);
@@ -802,7 +801,6 @@ sub l () { 1, 2 };
ok(!defined(@z[1]), 'lhs treats foo()[$b,] as list');
}
-#?rakudo skip 'Cannot assign to a non-container'
{
my @a;
my $b = 0;
@@ -206,7 +206,6 @@ my $z = 42; #OK not used
{
#?pugs todo
ok eval('not OUTER::<$x>.defined'), 'OUTER::<$x>';
- #?rakudo skip 'SETTING'
#?pugs todo
ok eval('not SETTING::<$x>.defined'), 'SETTING::<$x>';
my $x; #OK not used
View
@@ -198,7 +198,6 @@ Perl6-specific tests
is(+$hash_r.keys, 0, "dangling hash reference");
}
-#?rakudo skip 'autovivification'
#?niecza skip 'push does not vivify'
{
my Array $an_ary;
@@ -209,7 +208,6 @@ Perl6-specific tests
nok(defined($an_ary.pop), "comes to shove");
}
-#?rakudo skip 'Autovivify hashes'
{
my Hash $a_hash;

0 comments on commit dbbbce7

Please sign in to comment.