diff options
| -rw-r--r-- | Lisp/tests.lisp | 8 |
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."))) |