parent 0521a0d1
(in-package #:abcl.test.lisp)
(deftest java.truth.1
(let ((java.lang.boolean.compare
(java:jmethod "java.lang.Boolean" "compare" "boolean" "boolean"))
(let ((java.lang.boolean.compare-to
(java:jmethod "java.lang.Boolean" "compareTo" "java.lang.Boolean"))
(java.lang.boolean.equals
(java:jmethod "java.lang.Boolean" "equals" "java.lang.Object")))
(values
(java:jstatic java.lang.Boolean.compare "java.lang.Boolean" java:+true+ t)
(java:jstatic java.lang.Boolean.compare "java.lang.Boolean" java:+false+ nil)
(java:jcall java.lang.Boolean.compare-to java:+true+ t)
(java:jcall java.lang.Boolean.compare-to java:+false+ nil)
(java:jcall java.lang.Boolean.equals java:+true+ t)
(java:jcall java.lang.Boolean.equals java:+false+ nil)
(java:jstatic java.lang.Boolean.compare "java.lang.Boolean" java:+false+ t)
(java:jstatic java.lang.Boolean.compare "java.lang.Boolean" java:+false+ t)
(java:jcall java.lang.Boolean.compare-to java:+false+ t)
(java:jcall java.lang.Boolean.compare-to java:+false+ t)
(java:jcall java.lang.Boolean.equals java:+true+ nil)
(java:jcall java.lang.Boolean.equals java:+false+ t)))
0 0 t t -1 -1 nil nil)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment