diff options
| author | Eduardo Julian | 2017-10-09 01:46:36 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2017-10-09 01:46:36 -0400 |
| commit | ede56371f52b63b92cf0dc35a22ae243053268c3 (patch) | |
| tree | d862ca3246fa34b88e8bddbc541e9272e1a85879 /new-luxc/test | |
| parent | 2b310f8ad1050774e5cc60839e56a042e27bf570 (diff) | |
- Improved polymorphism and inheritance support.
- Added casting support for automatic boxing/unboxing.
Diffstat (limited to '')
| -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)) + )) |