Line | |
---|
1 | (in-package #:abcl.test.lisp) |
---|
2 | |
---|
3 | (deftest java.truth.1 |
---|
4 | (let ((java.lang.boolean.compare-to |
---|
5 | (java:jmethod "java.lang.Boolean" "compareTo" "java.lang.Boolean")) |
---|
6 | (java.lang.boolean.equals |
---|
7 | (java:jmethod "java.lang.Boolean" "equals" "java.lang.Object"))) |
---|
8 | (values |
---|
9 | (java:jcall java.lang.Boolean.compare-to java:+true+ t) |
---|
10 | (java:jcall java.lang.Boolean.compare-to java:+false+ nil) |
---|
11 | (java:jcall java.lang.Boolean.equals java:+true+ t) |
---|
12 | (java:jcall java.lang.Boolean.equals java:+false+ nil) |
---|
13 | (java:jcall java.lang.Boolean.compare-to java:+false+ t) |
---|
14 | (java:jcall java.lang.Boolean.compare-to java:+false+ t) |
---|
15 | (java:jcall java.lang.Boolean.equals java:+true+ nil) |
---|
16 | (java:jcall java.lang.Boolean.equals java:+false+ t))) |
---|
17 | 0 0 t t -1 -1 nil nil) |
---|
18 | |
---|
Note: See
TracBrowser
for help on using the repository browser.