Changeset 15086 for trunk/abcl/contrib/jss/t/jss-tests.lisp

Timestamp:

06/17/17 06:52:37 (6 years ago)

Author:

Mark Evenson

Message:

jss: new macro WITH-CLASS-LOOKUP-DISAMBIGUATED
(Alan Ruttenberg)

(with-class-lookup-disambiguated (lang.object) (find-java-class 'object))

-> success (otherwise error: ambiguous)

From <​https://github.com/armedbear/abcl/pull/57>.

Merges
<​https://github.com/armedbear/abcl/pull/57/commits/5103d57822691d74c66b80c754f8438df6806bba>.

File:

• trunk/abcl/contrib/jss/t/jss-tests.lisp (modified) (2 diffs)

trunk/abcl/contrib/jss/t/jss-tests.lisp

@@ -1 +1 @@
 (in-package :cl-user)
 
-(prove:plan 6)
+(prove:plan 8)
 
 (prove:is
@@ -23 +23 @@
            (find "size" (#"getMethods" (find-java-class "java.util.Collections$UnmodifiableMap"))
                  :test 'string-equal :key #"getName"))
-    (#"toString" (java::jmethod "java.util.Collections$UnmodifiableMap" "size" )))
+    (#"toString" (java::jmethod "java.util.Collections$UnmodifiableMap" "size" )))
+
+(prove:is 
+ (jss::with-class-lookup-disambiguated (lang.object) (find-java-class 'object))
+ (find-java-class 'java.lang.object))
+
+;; Object is ambiguous in default java 
+(prove:is-error
+ (find-java-class 'object)
+ 'simple-error)
 
 ;; test that optimized jss is much faster than unoptimized