diff options
Diffstat (limited to '')
| -rw-r--r-- | stdlib/test/test/lux/host/jvm.jvm.lux | 23 |
1 files changed, 14 insertions, 9 deletions
diff --git a/stdlib/test/test/lux/host/jvm.jvm.lux b/stdlib/test/test/lux/host/jvm.jvm.lux index 692e5eeda..701286455 100644 --- a/stdlib/test/test/lux/host/jvm.jvm.lux +++ b/stdlib/test/test/lux/host/jvm.jvm.lux @@ -11,7 +11,8 @@ [format ["." binary]] [collection - ["." dictionary]]] + ["." dictionary] + ["." row]]] ["." io (#+ IO)] [world ["." file (#+ File)] @@ -21,10 +22,9 @@ ["/." loader (#+ Library)] ["/." version] ["/." name] + ["/." field] [modifier ["/.M" class] - ["/.M" field] - ["/.M" method] ["/.M" inner]]]] [math ["r" random]]] @@ -53,18 +53,23 @@ (/name.internal "java.lang.Object") (/name.internal full-name) (list (/name.internal "java.io.Serializable") - (/name.internal "java.lang.Runnable"))) - bytecode (binary.write /.classF class) + (/name.internal "java.lang.Runnable")) + (row.row) + (row.row) + (row.row)) + bytecode (binary.write /.format class) loader (/loader.memory (/loader.new-library []))] - (exec (io.run (..write-class name)) + (exec + ## TODO: Remove 'write-class' call. + (io.run (..write-class name)) ($_ seq (test "Can read generated class." - (case (binary.read /.classF bytecode) + (case (binary.read /.format bytecode) (#error.Success class) true (#error.Failure error) - ## TODO: Remove log! + ## TODO: Remove 'log!' call. (exec (log! error) false))) (test "Can generate a class." @@ -73,7 +78,7 @@ true (#error.Failure error) - ## TODO: Remove log! + ## TODO: Remove 'log!' call. (exec (log! error) false))) )))) |