diff options
| author | Eduardo Julian | 2017-10-08 22:12:14 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2017-10-08 22:12:14 -0400 |
| commit | bf6acad37e74599a5b9091326f6f0ba33063b8b4 (patch) | |
| tree | e1d1bdc56bf34983d7a86e508411d5cf0e98eba5 /new-luxc/test | |
| parent | 272b8960b1247d04e1e1bdec6e0269114d5d1844 (diff) | |
- WIP: Added support for inheritance.
Diffstat (limited to 'new-luxc/test')
| -rw-r--r-- | new-luxc/test/test/luxc/analyser/procedure/host.jvm.lux | 39 |
1 files changed, 37 insertions, 2 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 b2aad9dd1..c5afe701b 100644 --- a/new-luxc/test/test/luxc/analyser/procedure/host.jvm.lux +++ b/new-luxc/test/test/luxc/analyser/procedure/host.jvm.lux @@ -41,7 +41,10 @@ <success> (#R;Error error) - <failure>)))] + (exec (if <success> + (log! error) + []) + <failure>))))] [success true false] [failure false true] @@ -373,13 +376,18 @@ Bool))) )) -(context: "Member [Field]." +(context: "Member [Static Field]." ($_ seq (test "jvm member static get" (success "jvm member static get" (list (code;text "java.lang.System") (code;text "out")) (#;Host "java.io.PrintStream" (list)))) + (test "jvm member static get (inheritance out)" + (success "jvm member static get" + (list (code;text "java.lang.System") + (code;text "out")) + (#;Host "java.lang.Object" (list)))) (test "jvm member static put" (success "jvm member static put" (list (code;text "java.awt.datatransfer.DataFlavor") @@ -394,6 +402,17 @@ (`' (_lux_check (+0 "java.io.PrintStream" (+0)) ("jvm object null")))) Unit)) + (test "jvm member static put (inheritance in)" + (success "jvm member static put" + (list (code;text "java.awt.datatransfer.DataFlavor") + (code;text "allHtmlFlavor") + (`' (_lux_check (+0 "javax.activation.ActivationDataFlavor" (+0)) + ("jvm object null")))) + Unit)) + )) + +(context: "Member [Virtual Field]." + ($_ seq (test "jvm member virtual get" (success "jvm member virtual get" (list (code;text "org.omg.CORBA.ValueMember") @@ -401,6 +420,13 @@ (`' (_lux_check (+0 "org.omg.CORBA.ValueMember" (+0)) ("jvm object null")))) (#;Host "java.lang.String" (list)))) + (test "jvm member virtual get (inheritance out)" + (success "jvm member virtual get" + (list (code;text "org.omg.CORBA.ValueMember") + (code;text "id") + (`' (_lux_check (+0 "org.omg.CORBA.ValueMember" (+0)) + ("jvm object null")))) + (#;Host "java.lang.Object" (list)))) (test "jvm member virtual put" (success "jvm member virtual put" (list (code;text "org.omg.CORBA.ValueMember") @@ -419,4 +445,13 @@ (`' (_lux_check (+0 "javax.swing.text.html.parser.DTD" (+0)) ("jvm object null")))) Unit)) + (test "jvm member virtual put (inheritance in)" + (success "jvm member virtual put" + (list (code;text "java.awt.GridBagConstraints") + (code;text "insets") + (`' (_lux_check (+0 "javax.swing.plaf.InsetsUIResource" (+0)) + ("jvm object null"))) + (`' (_lux_check (+0 "java.awt.GridBagConstraints" (+0)) + ("jvm object null")))) + Unit)) )) |