diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-02-17 17:48:45 +0100 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-02-17 17:48:45 +0100 |
| commit | 17a432d4b02cc3df7f5697d9f4c6f1fce926e436 (patch) | |
| tree | b4cb2e0fb9d5b1afcfd74c085f258ab28bfd85d4 | |
| parent | be12be519eaa3a70f73e27b29f95dda491a37923 (diff) | |
Fix the CLASS-DEFINITION test.
darcs-hash:1df96c3bd336ea3dd7ee51a90b2ae6baac6adfd8
| -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."))) |