diff options
Diffstat (limited to '')
-rw-r--r-- | stdlib/source/test/lux/meta/target/jvm.lux | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/stdlib/source/test/lux/meta/target/jvm.lux b/stdlib/source/test/lux/meta/target/jvm.lux index 0e0da91da..b7c487680 100644 --- a/stdlib/source/test/lux/meta/target/jvm.lux +++ b/stdlib/source/test/lux/meta/target/jvm.lux @@ -125,7 +125,7 @@ (do random.monad [class_name ..class_name method_name (random.upper_case 10)] - (in (case (do try.monad + (in (when (do try.monad [class (/class.class /version.v6_0 /class.public (/name.internal class_name) {.#None} @@ -914,7 +914,7 @@ (binary.result /class.format)) loader (/loader.memory (/loader.new_library []))]] (_.test "PUTSTATIC & PUTFIELD & GETFIELD & GETSTATIC" - (case (do try.monad + (when (do try.monad [_ (/loader.define class_name bytecode loader) class (io.run! (/loader.load class_name loader)) method (try (get_method static_method class)) @@ -1047,7 +1047,7 @@ .let [type (loop (again [dimensions dimensions type (is (Type Object) ..$Object)]) - (case dimensions + (when dimensions 0 type _ (again (-- dimensions) (/type.array type))))]] (<| (_.lifted "MULTIANEWARRAY") @@ -1351,7 +1351,7 @@ (random.only (|>> (text#= primitive_method_name) not))) expected (the #random primitive) .let [$Self (/type.class class_name (list))]] - (in (case (do try.monad + (in (when (do try.monad [class (/class.class /version.v6_0 /class.public (/name.internal class_name) {.#None} @@ -1371,7 +1371,7 @@ (list) {.#Some (do /.monad [_ (/.invokestatic $Self primitive_method_name primitive_method_type) - _ (case substitute + _ (when substitute {.#None} (in []) @@ -1734,7 +1734,7 @@ (binary.result /class.format)) loader (/loader.memory (/loader.new_library []))]] (_.test "Class & interface inheritance" - (case (do try.monad + (when (do try.monad [_ (/loader.define abstract_class abstract_bytecode loader) _ (/loader.define interface_class interface_bytecode loader) _ (/loader.define concrete_class concrete_bytecode loader) |