Add a policy for distinguishing between char and BOOL return values.

darcs-hash:09dbdf5e230a28071f1933a48077d562065df71f

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)