summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMatthias Benkard <code@mail.matthias.benkard.de>2008-02-17 17:48:45 +0100
committerMatthias Benkard <code@mail.matthias.benkard.de>2008-02-17 17:48:45 +0100
commit17a432d4b02cc3df7f5697d9f4c6f1fce926e436 (patch)
treeb4cb2e0fb9d5b1afcfd74c085f258ab28bfd85d4
parentbe12be519eaa3a70f73e27b29f95dda491a37923 (diff)
Fix the CLASS-DEFINITION test.
darcs-hash:1df96c3bd336ea3dd7ee51a90b2ae6baac6adfd8
-rw-r--r--Lisp/tests.lisp8
1 files changed, 5 insertions, 3 deletions
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.")))