diff options
| -rw-r--r-- | Lisp/tests.lisp | 3 |
1 files changed, 2 insertions, 1 deletions
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:") |