Lots of unskip for Rakudo JVM thanks to VAR fix.

Raku · Sep 25, 2013 · f0d78db · f0d78db
1 parent 8e1c86c
commit f0d78db
Show file tree

Hide file tree

Showing 4 changed files with 0 additions and 42 deletions.
diff --git a/S02-names/caller.t b/S02-names/caller.t
@@ -4,7 +4,6 @@ use Test;
 
 plan 15;
 
-#?rakudo.jvm skip "Nominal type check failed for parameter 'null'"
 {
   my $a is dynamic = 9;
   my $sub = sub { $CALLER::a };
@@ -15,7 +14,6 @@ plan 15;
   }
 } #1
 
-#?rakudo.jvm skip "Nominal type check failed for parameter 'null'"
 {
   my $a is dynamic = 9;
   my $sub2 = sub { $CALLER::a };
@@ -51,7 +49,6 @@ plan 15;
 } #2
 
 # L<S02/Names/The CALLER package refers to the lexical scope>
-#?rakudo.jvm skip "Nominal type check failed for parameter 'null'"
 {
   # $_ is always implicitly declared "is dynamic".
   my sub foo () { $CALLER::_ }
@@ -64,7 +61,6 @@ plan 15;
   is bar(), 42, '$_ is implicitly declared "is dynamic" (1)';
 } #1
 
-#?rakudo.jvm skip "Nominal type check failed for parameter 'null'"
 {
   # $_ is always implicitly declared "is dynamic".
   # (And, BTW, $_ is lexical.)
@@ -115,15 +111,13 @@ plan 15;
   nok (try modify()) eq 'success', '"::=" vars are ro when accessed with $CALLER::';
 } #1
 
-#?rakudo.jvm skip "Nominal type check failed for parameter 'null'"
 {
   my sub modify { $CALLER::_++ }
   $_ = 42;
   modify();
   is $_, 43,             '$_ is implicitly rw (2)';
 } #1
 
-#?rakudo.jvm skip "Nominal type check failed for parameter 'null'"
 {
   my sub modify { $CALLER::foo++ }
   my $foo is dynamic = 42;

diff --git a/S02-names/is_default.t b/S02-names/is_default.t
@@ -11,7 +11,6 @@ plan 114;
 {
     my $a is default(42);
     is $a, 42, "uninitialized untyped variable should have its default";
-    #?rakudo.jvm skip "oh no, .VAR does not work on JVM"
     is $a.VAR.default, 42, 'is the default set correctly for $a';
     lives_ok { $a++ }, "should be able to update untyped variable";
     is $a, 43, "update of untyped variable to 43 was successful";
@@ -24,11 +23,9 @@ plan 114;
 
     my $b is default(42) = 768;
     is $b, 768, "untyped variable should be initialized";
-    #?rakudo.jvm skip "oh no, .VAR does not work on JVM"
     is $b.VAR.default, 42, 'is the default set correctly for $b';
 
     my $c is default(Nil);
-    #?rakudo.jvm skip "oh no, .VAR does not work on JVM"
     ok $c.VAR.default === Nil, 'is the default set correctly for $c';
     lives_ok { $c++ }, 'should be able to increment untyped variable';
     is $c, 1, "untyped variable should be incremented";
@@ -37,7 +34,6 @@ plan 114;
 
     my $d is default(Nil) = 353;
     is $d, 353, "untyped variable should be initialized";
-    #?rakudo.jvm skip "oh no, .VAR does not work on JVM"
     ok $d.VAR.default === Nil, 'is the default set correctly for $d';
 } #19
 
@@ -47,7 +43,6 @@ plan 114;
 {
     my Int $a is default(42);
     is $a, 42, "uninitialized typed variable should have its default";
-    #?rakudo.jvm skip "oh no, .VAR does not work on JVM"
     is $a.VAR.default, 42, 'is the default set correctly for Int $a';
     lives_ok { $a++ }, "should be able to update typed variable";
     is $a, 43, "update of typed variable to 43 was successful";
@@ -60,7 +55,6 @@ plan 114;
 
     my Int $b is default(42) = 768;
     is $b, 768, "typed variable should be initialized";
-    #?rakudo.jvm skip "oh no, .VAR does not work on JVM"
     is $b.VAR.default, 42, 'is the default set correctly for Int $b';
 
     #?rakudo.jvm emit #
@@ -85,7 +79,6 @@ plan 114;
 {
     my @a is default(42);
     is @a[0], 42, "uninitialized untyped array element should have its default";
-    #?rakudo.jvm skip "oh no, .VAR does not work on JVM"
     is @a.VAR.default, 42, 'is the default set correctly for @a';
     lives_ok { @a[0]++ }, "should be able to update untyped array element";
     is @a[0], 43, "update of untyped array element to 43 was successful";
@@ -98,11 +91,9 @@ plan 114;
 
     my @b is default(42) = 768;
     is @b[0], 768, "untyped array element should be initialized";
-    #?rakudo.jvm skip "oh no, .VAR does not work on JVM"
     is @b.VAR.default, 42, 'is the default set correctly for @b';
 
     my @c is default(Nil);
-    #?rakudo.jvm skip "oh no, .VAR does not work on JVM"
     ok @c.VAR.default === Nil, 'is the default set correctly for @c';
     lives_ok { @c[0]++ }, 'should be able to increment untyped variable';
     is @c[0], 1, "untyped variable should be incremented";
@@ -111,7 +102,6 @@ plan 114;
 
     my @d is default(Nil) = 353;
     is @d[0], 353, "untyped variable should be initialized";
-    #?rakudo.jvm skip "oh no, .VAR does not work on JVM"
     ok @d.VAR.default === Nil, 'is the default set correctly for @d';
 } #19
 
@@ -121,7 +111,6 @@ plan 114;
 {
     my Int @a is default(42);
     is @a[0], 42, "uninitialized typed array element should have its default";
-    #?rakudo.jvm skip "oh no, .VAR does not work on JVM"
     is @a.VAR.default, 42, 'is the default set correctly for Int @a';
     lives_ok { @a[0]++ }, "should be able to update typed array element";
     is @a[0], 43, "update of typed array element to 43 was successful";
@@ -134,11 +123,9 @@ plan 114;
 
     my Int @b is default(42) = 768;
     is @b[0], 768, "typed array element should be initialized";
-    #?rakudo.jvm skip "oh no, .VAR does not work on JVM"
     is @b.VAR.default, 42, 'is the default set correctly for Int @b';
 
     my Int @c is default(Nil);
-    #?rakudo.jvm skip "oh no, .VAR does not work on JVM"
     ok @c.VAR.default === Nil, 'is the default set correctly for Int @c';
     lives_ok { @c[0]++ }, 'should be able to increment typed variable';
     is @c[0], 1, "typed variable should be incremented";
@@ -148,7 +135,6 @@ plan 114;
 
     my Int @d is default(Nil) = 353;
     is @d[0], 353, "typed variable should be initialized";
-    #?rakudo.jvm skip "oh no, .VAR does not work on JVM"
     ok @d.VAR.default === Nil, 'is the default set correctly for Int @d';
 } #19
 
@@ -158,7 +144,6 @@ plan 114;
 {
     my %a is default(42);
     is %a<o>, 42, "uninitialized untyped hash element should have its default";
-    #?rakudo.jvm skip "oh no, .VAR does not work on JVM"
     is %a.VAR.default, 42, 'is the default set correctly for %a';
     lives_ok { %a<o>++ }, "should be able to update untyped hash element";
     is %a<o>, 43, "update of untyped hash element to 43 was successful";
@@ -171,11 +156,9 @@ plan 114;
 
     my %b is default(42) = o => 768;
     is %b<o>, 768, "untyped hash element should be initialized";
-    #?rakudo.jvm skip "oh no, .VAR does not work on JVM"
     is %b.VAR.default, 42, 'is the default set correctly for %b';
 
     my %c is default(Nil);
-    #?rakudo.jvm skip "oh no, .VAR does not work on JVM"
     ok %c.VAR.default === Nil, 'is the default set correctly for %c';
     lives_ok { %c<o>++ }, 'should be able to increment untyped variable';
     is %c<o>, 1, "untyped variable should be incremented";
@@ -184,7 +167,6 @@ plan 114;
 
     my %d is default(Nil) = o => 353;
     is %d<o>, 353, "untyped variable should be initialized";
-    #?rakudo.jvm skip "oh no, .VAR does not work on JVM"
     ok %d.VAR.default === Nil, 'is the default set correctly for %d';
 } #19
 
@@ -194,7 +176,6 @@ plan 114;
 {
     my Int %a is default(42);
     is %a<o>, 42, "uninitialized typed hash element should have its default";
-    #?rakudo.jvm skip "oh no, .VAR does not work on JVM"
     is %a.VAR.default, 42, 'is the default set correctly for Int %a';
     lives_ok { %a<o>++ }, "should be able to update typed hash element";
     is %a<o>, 43, "update of hash array element to 43 was successful";
@@ -207,11 +188,9 @@ plan 114;
 
     my Int %b is default(42) = o => 768;
     is %b<o>, 768, "typed hash element should be initialized";
-    #?rakudo.jvm skip "oh no, .VAR does not work on JVM"
     is %b.VAR.default, 42, 'is the default set correctly for Int %b';
 
     my Int %c is default(Nil);
-    #?rakudo.jvm skip "oh no, .VAR does not work on JVM"
     ok %c.VAR.default === Nil, 'is the default set correctly for Int %c';
     lives_ok { %c<o>++ }, 'should be able to increment typed variable';
     is %c<o>, 1, "typed variable should be incremented";
@@ -221,7 +200,6 @@ plan 114;
 
     my Int %d is default(Nil) = o => 353;
     is %d<o>, 353, "typed variable should be initialized";
-    #?rakudo.jvm skip "oh no, .VAR does not work on JVM"
     ok %d.VAR.default === Nil, 'is the default set correctly for Int %d';
 } #19
 

diff --git a/S02-names/is_dynamic.t b/S02-names/is_dynamic.t
@@ -5,7 +5,6 @@ plan 22;
 
 #?pugs   skip "is dynamic NYI"
 #?niecza skip "is dynamic NYI"
-#?rakudo.jvm skip "oh no, .VAR does not work on JVM"
 # not specifically typed
 {
     my $a is dynamic;
@@ -18,7 +17,6 @@ plan 22;
 
 #?pugs   skip "Int is dynamic NYI"
 #?niecza skip "Int is dynamic NYI"
-#?rakudo.jvm skip "oh no, .VAR does not work on JVM"
 # typed
 {
     my Int $a is dynamic;
@@ -31,7 +29,6 @@ plan 22;
 
 #?pugs   skip "is dynamic NYI"
 #?niecza skip "is dynamic NYI"
-#?rakudo.jvm skip "oh no, .VAR does not work on JVM"
 # not specifically typed
 {
     my @a is dynamic;
@@ -45,7 +42,6 @@ plan 22;
 
 #?pugs   skip "Int is dynamic NYI"
 #?niecza skip "Int is dynamic NYI"
-#?rakudo.jvm skip "oh no, .VAR does not work on JVM"
 # typed
 {
     my Int @a is dynamic(42);
@@ -59,7 +55,6 @@ plan 22;
 
 #?pugs   skip "is dynamic NYI"
 #?niecza skip "is dynamic NYI"
-#?rakudo.jvm skip "oh no, .VAR does not work on JVM"
 # not specifically typed
 {
     my %a is dynamic;
@@ -73,7 +68,6 @@ plan 22;
 
 #?pugs   skip "Int is dynamic NYI"
 #?niecza skip "Int is dynamic NYI"
-#?rakudo.jvm skip "oh no, .VAR does not work on JVM"
 # typed
 {
     my Int %a is dynamic(42);

diff --git a/S02-names/name.t b/S02-names/name.t
@@ -5,7 +5,6 @@ plan 15;
 
 #?pugs   skip "$a.VAR.name NYI"
 #?niecza skip "$a.VAR.name NYI"
-#?rakudo.jvm skip "oh no, .VAR does not work on JVM"
 # not specifically typed
 {
     my $a;
@@ -16,7 +15,6 @@ plan 15;
 
 #?pugs   skip "Int $a.VAR.name NYI"
 #?niecza skip "Int $a.VAR.name NYI"
-#?rakudo.jvm skip "oh no, .VAR does not work on JVM"
 # typed
 {
     my Int $a;
@@ -27,7 +25,6 @@ plan 15;
 
 #?pugs   skip "@a.VAR.name NYI"
 #?niecza skip "@a.VAR.name NYI"
-#?rakudo.jvm skip "oh no, .VAR does not work on JVM"
 # not specifically typed
 {
     my @a;
@@ -38,7 +35,6 @@ plan 15;
 
 #?pugs   skip "Int @a.VAR.name NYI"
 #?niecza skip "Int @a.VAR.name NYI"
-#?rakudo.jvm skip "oh no, .VAR does not work on JVM"
 # typed
 {
     my Int @a;
@@ -49,7 +45,6 @@ plan 15;
 
 #?pugs   skip "%a.VAR.name NYI"
 #?niecza skip "%a.VAR.name NYI"
-#?rakudo.jvm skip "oh no, .VAR does not work on JVM"
 # not specifically typed
 {
     my %a;
@@ -60,7 +55,6 @@ plan 15;
 
 #?pugs   skip "Int %a.VAR.name NYI"
 #?niecza skip "Int %a.VAR.name NYI"
-#?rakudo.jvm skip "oh no, .VAR does not work on JVM"
 # typed
 {
     my Int %a;
@@ -71,7 +65,6 @@ plan 15;
 
 #?pugs   skip "&a.VAR.name NYI"
 #?niecza skip "&a.VAR.name NYI"
-#?rakudo.jvm skip "oh no, .VAR does not work on JVM"
 # not specifically typed
 {
     my &a;
@@ -82,7 +75,6 @@ plan 15;
 
 #?pugs   skip "Int &a.VAR.name NYI"
 #?niecza skip "Int &a.VAR.name NYI"
-#?rakudo.jvm skip "oh no, .VAR does not work on JVM"
 # typed
 {
     my Int &a;