diff options
Diffstat (limited to 'stdlib/source/test/lux/meta/compiler/language/lux/phase/translation/jvm/host.lux')
| -rw-r--r-- | stdlib/source/test/lux/meta/compiler/language/lux/phase/translation/jvm/host.lux | 21 |
1 files changed, 10 insertions, 11 deletions
diff --git a/stdlib/source/test/lux/meta/compiler/language/lux/phase/translation/jvm/host.lux b/stdlib/source/test/lux/meta/compiler/language/lux/phase/translation/jvm/host.lux index e175d3202..8272618f6 100644 --- a/stdlib/source/test/lux/meta/compiler/language/lux/phase/translation/jvm/host.lux +++ b/stdlib/source/test/lux/meta/compiler/language/lux/phase/translation/jvm/host.lux @@ -28,13 +28,12 @@ Test (<| (_.covering /._) (do [! random.monad] - [.let [$unit [0 0]] - expected (random.upper_cased 1)]) + [expected (random.upper_cased 1)]) (all _.and (_.coverage [/.host] (io.run! (do io.monad [[class_loader host] /.host] - (in (when (of host evaluate $unit [{.#None} (bytecode.string expected)]) + (in (when (of host evaluate [{.#None} (bytecode.string expected)]) {try.#Success actual} (text#= expected (as Text actual)) @@ -43,7 +42,7 @@ (_.coverage [/.invalid_value] (io.run! (do io.monad [[class_loader host] /.host] - (in (when (of host evaluate $unit [{.#None} bytecode.aconst_null]) + (in (when (of host evaluate [{.#None} bytecode.aconst_null]) {try.#Success _} false @@ -52,13 +51,13 @@ (_.coverage [/.cannot_load] (io.run! (do io.monad [[class_loader host] /.host] - (in (when (of host evaluate $unit [{.#None} (all bytecode.composite - bytecode.lconst_0 - bytecode.lconst_0 - bytecode.ldiv - bytecode.pop2 - (bytecode.string expected) - )]) + (in (when (of host evaluate [{.#None} (all bytecode.composite + bytecode.lconst_0 + bytecode.lconst_0 + bytecode.ldiv + bytecode.pop2 + (bytecode.string expected) + )]) {try.#Success _} false |