aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/test
diff options
context:
space:
mode:
Diffstat (limited to 'stdlib/source/test')
-rw-r--r--stdlib/source/test/lux/target/jvm.lux12
1 files changed, 4 insertions, 8 deletions
diff --git a/stdlib/source/test/lux/target/jvm.lux b/stdlib/source/test/lux/target/jvm.lux
index 13be558e5..1ab7ed5ab 100644
--- a/stdlib/source/test/lux/target/jvm.lux
+++ b/stdlib/source/test/lux/target/jvm.lux
@@ -739,16 +739,12 @@
(/.invokespecial ..$Double "<init>" (/type.method [(list /type.double) /type.void (list)]))))
(<| (_.lift "INVOKEINTERFACE")
(do random.monad
- [parameter ..$Double::random
- subject ..$Double::random])
+ [subject ..$String::random])
(..bytecode (|>> (:coerce java/lang/Long)
- ("jvm leq" (java/lang/Double::compare parameter subject))))
+ ("jvm leq" (text.size subject))))
(do /.monad
- [_ (/.double subject) _ ..$Double::wrap
- _ (/.double parameter) _ ..$Double::wrap
- _ (/.invokeinterface (/type.class "java.lang.Comparable" (list))
- "compareTo​"
- (/type.method [(list ..$Object) /type.int (list)]))
+ [_ (/.string subject)
+ _ (/.invokeinterface (/type.class "java.lang.CharSequence" (list)) "length" (/type.method [(list) /type.int (list)]))
_ /.i2l]
..$Long::wrap))
)))