Another bunch of JVM un-skip/un-todo from today.

Raku · Sep 25, 2013 · 0e6ed92 · 0e6ed92
1 parent 5f763f9
commit 0e6ed92
Show file tree

Hide file tree

Showing 5 changed files with 3 additions and 10 deletions.
diff --git a/S32-io/io-path-win.t b/S32-io/io-path-win.t
@@ -50,11 +50,10 @@ ok IO::Path::Win32.new("A:b").is-relative,	'"A:b" is relative';
 
 is $relpath.absolute,		IO::Spec::Win32.canonpath("$*CWD\\foo\\bar"),	"absolute path from \$*CWD";
 is $relpath.absolute("\\usr"),	"\\usr\\foo\\bar",		"absolute path specified";
-#?rakudo.jvm 4 skip "Method 'match' not found"
 is IO::Path::Win32.new("\\usr\\bin").relative("/usr"),	"bin",			"relative path specified";
 is $relpath.absolute.relative,  "foo\\bar",		"relative inverts absolute";
 is $relpath.absolute("/foo").relative("\\foo"), "foo\\bar","absolute inverts relative";
-#?rakudo.parrot 1 todo 'resolve NYI, needs nqp::readlink'
+#?rakudo 1 todo 'resolve NYI, needs nqp::readlink'
 is $abspath.relative.absolute.resolve, "\\foo\\bar",	"absolute inverts relative with resolve";
 
 is IO::Path::Win32.new("foo/bar").parent,		"foo",			"parent of 'foo/bar' is 'foo'";

diff --git a/S32-io/io-spec-win.t b/S32-io/io-spec-win.t
@@ -2,7 +2,7 @@ use v6;
 use Test;
 # L<S32::IO/IO::Spec>
 
-plan 206;
+plan 209;
 my $win32 = IO::Spec::Win32;
 
 my @canonpath = 
@@ -261,8 +261,6 @@ my @abs2rel =
 	#('C:\\one\\two\\t\\asd1\\', 't\\asd\\').item, '..\\asd1',
 	#('\\one\\two', 'A:\\foo').item,     'C:\\one\\two';
 
-#?rakudo.jvm skip "Method 'match' not found"
-#?DOES 19
 {
     for @abs2rel -> $in, $out {
 	    is $win32.abs2rel(|$in), $out, "abs2rel: {$in.perl} -> '$out'"

diff --git a/S32-list/roll.t b/S32-list/roll.t
@@ -123,7 +123,6 @@ ok ('a' .. 'z').roll ~~ /\w/, 'Str-Range roll';
 
 # RT 89972
 #?niecza skip "That's not the right way to spawn another Niecza"
-#?rakudo.jvm skip "Unhandled file open mode 'rp'"
 {
     my $a = qqx{$*EXECUTABLE_NAME -e "print ~(1..10).pick(5)"};
     my $b = qqx{$*EXECUTABLE_NAME -e "print ~(1..10).pick(5)"};

diff --git a/S32-scalar/perl.t b/S32-scalar/perl.t
@@ -10,7 +10,6 @@ plan 6;
       'can we serialize a simple scalar';
     my $ra = eval($a.perl);
     is_deeply $ra, $a, 'can we roundtrip simple scalar';
-    #?rakudo.jvm skip "Nominal type check failed for parameter 'null'"
     ok $ra.VAR.of =:= Mu, 'make sure any value can be stored';
 } #3
 
@@ -24,8 +23,7 @@ plan 6;
       'can we serialize a scalar with constrained values';
     my $ra = eval($a.perl);
     is_deeply $ra, $a, 'can we roundtrip scalar constrained values';
-    #?rakudo.jvm skip "Nominal type check failed for parameter 'null'"
-    #?rakudo.parrot todo "cannot roundtrip constrained scalars yet"
+    #?rakudo todo "cannot roundtrip constrained scalars yet"
     ok $ra.VAR.of =:= Int, 'make sure roundtripped values are Int';
 } #3
 

diff --git a/S32-temporal/DateTime-Instant-Duration.t b/S32-temporal/DateTime-Instant-Duration.t
@@ -115,7 +115,6 @@ is DateTime.new(dtpi 2006,  1,  1,    0,  0,  0.2).second,  0.2, 'Round-tripping
     is ~DateTime.new($i), ~DateTime.new($t), 'DateTime.new(now)';
 }
 
-#?rakudo.jvm skip "nigh - todo'ing this test is fiddly"
 {
     my $dt = DateTime.new(dsi('1999-12-31T23:59:59'),
         timezone => -(5*60*60 + 55*60),