From 37222b85b82a8152dbf5223cb346e3114f167624 Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Thu, 4 Oct 2007 17:37:29 +0200 Subject: Unit tests: Don't expect FIND-SELECTOR to return NIL. darcs-hash:152c854a73df5076049538ef29a58ab93c3dabdb --- Lisp/tests.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'Lisp/tests.lisp') diff --git a/Lisp/tests.lisp b/Lisp/tests.lisp index c3e6e5a..69bfe4d 100644 --- a/Lisp/tests.lisp +++ b/Lisp/tests.lisp @@ -55,7 +55,8 @@ ((ensure-null (find-objc-class 'nsobject))) ((ensure-same (find-objc-class 'ns-method-invocation) (find-objc-class "NSMethodInvocation"))) - ((ensure-null (find-selector "mulkyStuff:withMagic:"))) + ((ensure (typep (find-selector "mulkyStuff:withMagic:") + '(or null selector)))) ((ensure-same (find-selector "self") (find-selector '(self)))) ((ensure-same (find-selector "stringWithUTF8String:") -- cgit v1.2.3