diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2007-10-04 17:37:29 +0200 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2007-10-04 17:37:29 +0200 |
| commit | 37222b85b82a8152dbf5223cb346e3114f167624 (patch) | |
| tree | ca3573c8790beebcee09ee5acb96c0394899b3ba | |
| parent | 9a3ec83a6db3ca95be8a4bf11620f93bfa348a4b (diff) | |
Unit tests: Don't expect FIND-SELECTOR to return NIL.
darcs-hash:152c854a73df5076049538ef29a58ab93c3dabdb
| -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:") |