source: trunk/abcl/test/lisp/abcl/java.lisp

Last change on this file was 15057, checked in by Mark Evenson, 7 years ago

Fix test on Java 6

(Olof-Joachim Frahm)

From <https://github.com/armedbear/abcl/pull/49/commits/358502d258722d008f37ed1b49eaf4537ca93a6e>.

Merges <https://github.com/armedbear/abcl/pull/49>.

File size: 801 bytes
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.