aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/test
diff options
context:
space:
mode:
authorEduardo Julian2020-07-01 19:09:53 -0400
committerEduardo Julian2020-07-01 19:09:53 -0400
commit23ad698f1ad87f9e9838c1e7df1809991c6a1d18 (patch)
tree752c4cb6fdb709c88e7c82fffd838ac49f836aa4 /stdlib/source/test
parent5d2512af61ac17bca25a4790ea01c24f7d2415da (diff)
WIP: Leiningen integration with the new JVM compiler.
Diffstat (limited to '')
-rw-r--r--stdlib/source/test/lux/extension.lux5
-rw-r--r--stdlib/source/test/lux/target/jvm.lux2
2 files changed, 5 insertions, 2 deletions
diff --git a/stdlib/source/test/lux/extension.lux b/stdlib/source/test/lux/extension.lux
index da6f89187..9aa8ae987 100644
--- a/stdlib/source/test/lux/extension.lux
+++ b/stdlib/source/test/lux/extension.lux
@@ -50,7 +50,10 @@
(wrap (#synthesis.Extension self (list)))))
))
-(for {@.jvm
+(for {@.old
+ (as-is)
+
+ @.jvm
(as-is (generation: (..my-generation self phase archive {parameters (<>.some <s>.any)})
(do phase.monad
[]
diff --git a/stdlib/source/test/lux/target/jvm.lux b/stdlib/source/test/lux/target/jvm.lux
index f572b7e1e..18366de69 100644
--- a/stdlib/source/test/lux/target/jvm.lux
+++ b/stdlib/source/test/lux/target/jvm.lux
@@ -963,7 +963,7 @@
(array (/.newarray /instruction.t-int) $Integer::random $Integer::literal [/.iastore /.iaload $Integer::wrap]
(function (_ expected)
(for {@.old
- (|>> (:coerce java/lang/Integer) ("jvm ieq" (host.int-to-long expected)))
+ (|>> (:coerce java/lang/Integer) ("jvm ieq" (:coerce java/lang/Integer expected)))
@.jvm
(|>> (:coerce java/lang/Integer) "jvm object cast" ("jvm int =" ("jvm object cast" (:coerce java/lang/Integer expected))))}))))