|
Last change
on this file was
14239,
checked in by Mark Evenson, 13 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.
