diff options
Diffstat (limited to 'Lisp/tests.lisp')
| -rw-r--r-- | Lisp/tests.lisp | 18 |
1 files changed, 8 insertions, 10 deletions
diff --git a/Lisp/tests.lisp b/Lisp/tests.lisp index 7a6d6d8..941e95b 100644 --- a/Lisp/tests.lisp +++ b/Lisp/tests.lisp @@ -106,19 +106,17 @@ (primitive-invoke (find-objc-class 'ns-string) :string-with-u-t-f-8-string 'id "Klum."))) - ((ensure-same +yes+ - (primitive-invoke (find-objc-class 'ns-string) - :is-subclass-of-class - (first (parse-typespec "c" t)) - (find-objc-class 'ns-object)))) + ((ensure (primitive-invoke (find-objc-class 'ns-string) + :is-subclass-of-class + (first (parse-typespec "c" t)) + (find-objc-class 'ns-object)))) ;; performSelector:withObject: cannot be used with non-id return ;; types. #+(or) - ((ensure-same +yes+ - (primitive-invoke (find-objc-class 'ns-string) - '(:perform-selector :with-object) :char - (selector "isSubclassOfClass:") - (find-objc-class 'ns-object)))))) + ((ensure (primitive-invoke (find-objc-class 'ns-string) + '(:perform-selector :with-object) :char + (selector "isSubclassOfClass:") + (find-objc-class 'ns-object)))))) (deftestsuite method-invocation (objective-cl) |