diff options
Diffstat (limited to 'new-luxc/test')
| -rw-r--r-- | new-luxc/test/test/luxc/analyser/procedure/host.jvm.lux | 30 |
1 files changed, 26 insertions, 4 deletions
diff --git a/new-luxc/test/test/luxc/analyser/procedure/host.jvm.lux b/new-luxc/test/test/luxc/analyser/procedure/host.jvm.lux index c5afe701b..87c315750 100644 --- a/new-luxc/test/test/luxc/analyser/procedure/host.jvm.lux +++ b/new-luxc/test/test/luxc/analyser/procedure/host.jvm.lux @@ -41,10 +41,7 @@ <success> (#R;Error error) - (exec (if <success> - (log! error) - []) - <failure>))))] + <failure>)))] [success true false] [failure false true] @@ -455,3 +452,28 @@ ("jvm object null")))) Unit)) )) + +(context: "Boxing/Unboxing." + ($_ seq + (test "jvm member static get" + (success "jvm member static get" + (list (code;text "java.util.GregorianCalendar") + (code;text "AD")) + (#;Host "java.lang.Integer" (list)))) + (test "jvm member virtual get" + (success "jvm member virtual get" + (list (code;text "javax.accessibility.AccessibleAttributeSequence") + (code;text "startIndex") + (`' (_lux_check (+0 "javax.accessibility.AccessibleAttributeSequence" (+0)) + ("jvm object null")))) + (#;Host "java.lang.Integer" (list)))) + (test "jvm member virtual put" + (success "jvm member virtual put" + (list (code;text "javax.accessibility.AccessibleAttributeSequence") + (code;text "startIndex") + (`' (_lux_check (+0 "java.lang.Integer" (+0)) + ("jvm object null"))) + (`' (_lux_check (+0 "javax.accessibility.AccessibleAttributeSequence" (+0)) + ("jvm object null")))) + Unit)) + )) |