diff options
Diffstat (limited to 'stdlib/source/test')
| -rw-r--r-- | stdlib/source/test/lux/target/jvm.lux | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/stdlib/source/test/lux/target/jvm.lux b/stdlib/source/test/lux/target/jvm.lux index 4dd3ee4b3..9437fb38a 100644 --- a/stdlib/source/test/lux/target/jvm.lux +++ b/stdlib/source/test/lux/target/jvm.lux @@ -75,7 +75,7 @@ (#static TYPE (java/lang/Class java/lang/Long))) (def: descriptor - (Random (Descriptor (Value Any))) + (Random (Descriptor Value)) (random.rec (function (_ descriptor) ($_ random.either @@ -87,13 +87,13 @@ (random@wrap /descriptor.float) (random@wrap /descriptor.double) (random@wrap /descriptor.char) - (random@map (|>> (text.join-with /name.external-separator) /descriptor.object) + (random@map (|>> (text.join-with /name.external-separator) /descriptor.class) (random.list 3 (random.ascii/upper-alpha 10))) (random@map /descriptor.array descriptor) )))) (def: field - (Random [Text (Descriptor (Value Any))]) + (Random [Text (Descriptor Value)]) ($_ random.and (random.ascii/lower-alpha 10) ..descriptor @@ -120,7 +120,7 @@ method-name (random.ascii/upper-alpha 10) expected random.int #let [inputsJT (list) - outputJT (/descriptor.object "java.lang.Object")]] + outputJT (/descriptor.class "java.lang.Object")]] (_.test "Can compile a method." (let [bytecode (|> (/class.class /version.v6_0 /class.public (/name.internal class-name) @@ -137,7 +137,7 @@ [_ (/instruction.ldc/long (/constant.long expected)) _ (/instruction.invokestatic "java.lang.Long" "valueOf" [(list /descriptor.long) - (/descriptor.object "java.lang.Long")])] + (/descriptor.class "java.lang.Long")])] /instruction.areturn))) (row.row)) (binaryF.run /class.writer)) |