From bf6acad37e74599a5b9091326f6f0ba33063b8b4 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sun, 8 Oct 2017 22:12:14 -0400
Subject: - WIP: Added support for inheritance.

---
 .../test/test/luxc/analyser/procedure/host.jvm.lux | 39 ++++++++++++++++++++--
 1 file changed, 37 insertions(+), 2 deletions(-)

(limited to 'new-luxc/test')

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))
       ))
-- 
cgit v1.2.3