source: trunk/abcl/contrib/jss/tests.lisp @ 14239

Last change on this file since 14239 was 14239, checked in by Mark Evenson, 8 years ago

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

Added non-working test to putative JSS test suite.

File size: 742 bytes
Line 
1(require :abcl)
2(require :abcl-test-lisp) 
3(require :abcl-contrib)
4(require :jss)
5
6(in-package :abcl-test-lisp)
7
8;;; http://trac.common-lisp.net/armedbear/ticket/205
9(deftest jss.with-constant-signature.1 
10    (progn 
11      (jss:with-constant-signature ((substring "substring")) 
12        (substring "01234" 2)))
13  "234")
14
15;;; http://trac.common-lisp.net/armedbear/ticket/229
16(deftest jss.jcall.1
17    (let* ((headers (#"getHeaderFields" 
18                    (#"openConnection" 
19                     (jss::new 'java.net.url "http://google.com"))))
20
21           (second-header (#"get" *headers*
22                                  (second (jss::set-to-list (#"keySet"
23                                  *headers*))))))
24      (#"size" *ural*))
25-1)
26
27
Note: See TracBrowser for help on using the repository browser.