From 17a432d4b02cc3df7f5697d9f4c6f1fce926e436 Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Sun, 17 Feb 2008 17:48:45 +0100 Subject: Fix the CLASS-DEFINITION test. darcs-hash:1df96c3bd336ea3dd7ee51a90b2ae6baac6adfd8 --- Lisp/tests.lisp | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) (limited to 'Lisp') diff --git a/Lisp/tests.lisp b/Lisp/tests.lisp index 8c17ef5..1dffac0 100644 --- a/Lisp/tests.lisp +++ b/Lisp/tests.lisp @@ -368,7 +368,7 @@ (setq class (is (c2mop:ensure-class class-name :direct-superclasses - (list (find-objc-class "NSString")) + (list (find-objc-class "NSObject")) :direct-slots '((:name foos :type list :initform nil @@ -377,8 +377,10 @@ :foreign-type (:int ()))) :metaclass (find-objc-meta-class "NSObject")))) (is (typep class 'objective-c-class)) - (setq instance (is (invoke class :string-with-u-t-f-8-string "Mulk."))) - #+nil (is (typep instance class)) + (setq instance (is (invoke (invoke class 'alloc) 'init))) + #+(or) (setq instance (is (invoke class :string-with-u-t-f-8-string "Mulk."))) + #+(or) (is (typep instance class)) + #+(or) (is (objc-equal instance (invoke (find-objc-class 'ns-string) :string-with-u-t-f-8-string "Mulk."))) -- cgit v1.2.3