Fudge tests for typename in X::Assignment::RO on JVM

Raku · Nov 21, 2015 · b4b4dfa · b4b4dfa
1 parent 498ede8
commit b4b4dfa
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/S32-basics/xxKEY.t b/S32-basics/xxKEY.t
@@ -120,6 +120,7 @@ for $%h, Any, $%hi, Int, $%hia, Int -> \h, \T {
     throws-like { $b.DELETE-KEY("a") },
       X::Immutable, :method<DELETE-KEY>, :typename<Bag>, "\$b.DELETE-KEY";
     is $b.AT-KEY("a"), 1, "\$b.AT-KEY (after delete)";
+    #?rakudo.jvm todo 'still mentions "value" instead of "Int"'
     throws-like { $b.ASSIGN-KEY("a",42) },
       X::Assignment::RO, :typename<Int>, "\$b.ASSIGN-KEY";
     is $b.AT-KEY("a"), 1, "\$b.AT-KEY (after assignment)";
@@ -151,6 +152,7 @@ for $%h, Any, $%hi, Int, $%hia, Int -> \h, \T {
     throws-like { $m.DELETE-KEY("a") },
       X::Immutable, :method<DELETE-KEY>, :typename<Mix>, "\$m.DELETE-KEY";
     is $m.AT-KEY("a"), 1, "\$m.AT-KEY (after delete)";
+    #?rakudo.jvm todo 'still mentions "value" instead of "Int"'
     throws-like { $m.ASSIGN-KEY("a",42) },
       X::Assignment::RO, :typename<Int>, "\$m.ASSIGN-KEY";
     is $m.AT-KEY("a"), 1, "\$m.AT-KEY (after assignment)";