Changeset 14239 for trunk/abcl/contrib/jss/tests.lisp

Timestamp:

11/09/12 17:28:12 (8 years ago)

Author:

Mark Evenson

Message:

Fixes #229 so that JCALL works with static member classes.

Added non-working test to putative JSS test suite.

File:

• trunk/abcl/contrib/jss/tests.lisp (modified) (1 diff)

trunk/abcl/contrib/jss/tests.lisp

@@ -13 +13 @@
   "234")
 
+;;; http://trac.common-lisp.net/armedbear/ticket/229
+(deftest jss.jcall.1
+    (let* ((headers (#"getHeaderFields" 
+                    (#"openConnection" 
+                     (jss::new 'java.net.url "http://google.com"))))
 
+           (second-header (#"get" *headers*
+                                  (second (jss::set-to-list (#"keySet"
+                                  *headers*))))))
+      (#"size" *ural*))
+-1)
+
+