summaryrefslogtreecommitdiff
path: root/Lisp/tests.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'Lisp/tests.lisp')
-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.")))