diff options
author | Eduardo Julian | 2019-11-14 01:09:33 -0400 |
---|---|---|
committer | Eduardo Julian | 2019-11-14 01:09:33 -0400 |
commit | d9433d243aad3b7a41af9dee06be1137cc720326 (patch) | |
tree | 1bd59cc5fb18fda5b7f127bb8e76ddccd95b1785 /stdlib/source/test | |
parent | 2a878363e00865c5c34a2f9fcc57e85ce1d4f771 (diff) |
Fixed the test for INVOKEINTERFACE.
Diffstat (limited to 'stdlib/source/test')
-rw-r--r-- | stdlib/source/test/lux/target/jvm.lux | 12 |
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)) ))) |