Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
Rakudo unfudges
only tested on MoarVM
  • Loading branch information
moritz committed Oct 29, 2014
1 parent 640aee1 commit c7d9b73
Show file tree
Hide file tree
Showing 4 changed files with 0 additions and 6 deletions.
1 change: 0 additions & 1 deletion S02-types/int-uint.t
Expand Up @@ -50,7 +50,6 @@ for @inttypes -> $type {
Exception,
"$type cannot be NaN";

#?rakudo 2 skip "Cannot modify an immutable value"
is(EVAL("my $type \$var = 0; \$var++; \$var"), 1, "$type \$var++ works");
is(EVAL("my $type \$var = 1; \$var--; \$var"), 0, "$type \$var-- works");
}
Expand Down
1 change: 0 additions & 1 deletion S16-filehandles/mkdir_rmdir.t
Expand Up @@ -16,7 +16,6 @@ ok mkdir("$root/green"), "mkdir $root/green returns true";
ok "$root/green".IO ~~ :e, "$root/green now exists";
ok "$root/green".IO ~~ :d, "... and is a directory";

#?rakudo skip 'deviation from spec because we do not have sink yet'
nok rmdir($root), "Get false when we try to rmdir a directory with something in it";
ok $root.IO ~~ :e, "$root still exists";

Expand Down
3 changes: 0 additions & 3 deletions S32-list/uniq.t
Expand Up @@ -127,13 +127,10 @@ This test tests the C<uniq> builtin.
my $with = &[eqv];
is_deeply @array.uniq(:$with), ({:a<1>}, {:b<1>}).list.item,
"method form of uniq with [eqv] and objects works";
#?rakudo.moar skip "segfault"
is_deeply uniq(@array,:$with), ({:a<1>}, {:b<1>}).list.item,
"subroutine form of uniq with [eqv] and objects works";
#?rakudo.moar skip "segfault"
is_deeply @array .= uniq(:$with), [{:a<1>}, {:b<1>}],
"inplace form of uniq with [eqv] and objects works";
#?rakudo.moar skip "segfault"
is_deeply @array, [{:a<1>}, {:b<1>}],
"final result with [eqv] and objects in place";
} #4
Expand Down
1 change: 0 additions & 1 deletion S32-temporal/DateTime-Instant-Duration.t
Expand Up @@ -123,7 +123,6 @@ is DateTime.new(dtpi 2006, 1, 1, 0, 0, 0.2).second, 0.2, 'Round-tripping
is ~$dt, '31/12/1999 59s4m18h', 'DateTime.new(Instant) with time zone and formatter';
}

#?rakudo skip 'nom regression'
{
my $i = dtpi 1988, 11, 22, 18, 42, 15.9;
is $i.perl.EVAL, $i, 'Round-tripping Instant.perl';
Expand Down

0 comments on commit c7d9b73

Please sign in to comment.