rakudo.jvm fudges

Raku · Sep 8, 2013 · edae796 · edae796
1 parent 148f92c
commit edae796
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 0 deletions.
diff --git a/S04-declarations/constant.t b/S04-declarations/constant.t
@@ -171,6 +171,7 @@ use Test;
     $ok++ if $!;
     $ok++ if grtz == 42;
 
+    #?rakudo.jvm todo "nigh"
     is $ok, 3, "a constant declared using 'constant' is actually constant (1)";
 }
 

diff --git a/S04-phasers/rvalue.t b/S04-phasers/rvalue.t
@@ -59,6 +59,7 @@ plan 16;
     }
 
     #?niecza todo 'block returns no value'
+    #?rakudo.jvm 3 todo "nigh"
     is $check(), 'BC', 'CHECK {} runs only once';
     #?niecza todo 'block returns no value'
     is $check_val, 'BC', 'CHECK {} as rval is its ret val';

diff --git a/S05-mass/properties-general.t b/S05-mass/properties-general.t
@@ -1074,6 +1074,7 @@ ok("\x[6A3F]\x[FFFE]" ~~ m/<:C>/, q{Match unanchored <C> (Other)} );
 
 #?pugs todo
 #?niecza 3 todo "Tests are wrong by latest Unicode standard"
+#?rakudo.jvm 3 todo "nigh"
 ok("\x[A679]" ~~ m/^<:Other>$/, q{Match <:Other>} );
 ok(!( "\x[A679]" ~~ m/^<:!Other>$/ ), q{Don't match negated <Other>} );
 ok(!( "\x[A679]" ~~ m/^<-:Other>$/ ), q{Don't match inverted <Other>} );
@@ -1084,6 +1085,7 @@ ok("\x[AC00]"  ~~ m/^<:!Other>$/, q{Match unrelated negated <Other>} );
 ok("\x[AC00]"  ~~ m/^<-:Other>$/, q{Match unrelated inverted <Other>} );
 #?pugs todo
 #?niecza todo "Test is wrong by latest Unicode standard"
+#?rakudo.jvm todo "nigh"
 ok("\x[AC00]\x[A679]" ~~ m/<:Other>/, q{Match unanchored <Other>} );
 
 # Cc          Control