diff options
| author | Eduardo Julian | 2018-12-28 21:50:28 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2018-12-28 21:50:28 -0400 |
| commit | 5cfe09efd2b2605aa023d69ebdb7e97d845caab4 (patch) | |
| tree | 3440c1ba5fc271fe3c314f250711c999a34d942f /stdlib/test | |
| parent | 013a71b684e8fd101980f32f54cf1046a7a45c31 (diff) | |
Re-organized the class machinery.
Diffstat (limited to 'stdlib/test')
| -rw-r--r-- | stdlib/test/test/lux/host/jvm.jvm.lux | 26 |
1 files changed, 13 insertions, 13 deletions
diff --git a/stdlib/test/test/lux/host/jvm.jvm.lux b/stdlib/test/test/lux/host/jvm.jvm.lux index 701286455..309deb800 100644 --- a/stdlib/test/test/lux/host/jvm.jvm.lux +++ b/stdlib/test/test/lux/host/jvm.jvm.lux @@ -18,13 +18,13 @@ ["." file (#+ File)] [binary (#+ Binary)]] [host - ["/" jvm + [jvm ["/." loader (#+ Library)] ["/." version] ["/." name] ["/." field] + ["/." class] [modifier - ["/.M" class] ["/.M" inner]]]] [math ["r" random]]] @@ -49,22 +49,22 @@ (let [package "my.package" name "MyClass" full-name (format package "." name) - class (/.class /version.v6_0 /classM.public - (/name.internal "java.lang.Object") - (/name.internal full-name) - (list (/name.internal "java.io.Serializable") - (/name.internal "java.lang.Runnable")) - (row.row) - (row.row) - (row.row)) - bytecode (binary.write /.format class) + class (/class.class /version.v6_0 /class.public + (/name.internal "java.lang.Object") + (/name.internal full-name) + (list (/name.internal "java.io.Serializable") + (/name.internal "java.lang.Runnable")) + (row.row) + (row.row) + (row.row)) + bytecode (binary.write /class.format class) loader (/loader.memory (/loader.new-library []))] (exec ## TODO: Remove 'write-class' call. (io.run (..write-class name)) ($_ seq - (test "Can read generated class." - (case (binary.read /.format bytecode) + (test "Can read a generated class." + (case (binary.read /class.format bytecode) (#error.Success class) true |