summaryrefslogtreecommitdiff
path: root/Lisp
diff options
context:
space:
mode:
authorMatthias Benkard <code@mail.matthias.benkard.de>2007-10-04 17:37:29 +0200
committerMatthias Benkard <code@mail.matthias.benkard.de>2007-10-04 17:37:29 +0200
commit37222b85b82a8152dbf5223cb346e3114f167624 (patch)
treeca3573c8790beebcee09ee5acb96c0394899b3ba /Lisp
parent9a3ec83a6db3ca95be8a4bf11620f93bfa348a4b (diff)
Unit tests: Don't expect FIND-SELECTOR to return NIL.
darcs-hash:152c854a73df5076049538ef29a58ab93c3dabdb
Diffstat (limited to 'Lisp')
-rw-r--r--Lisp/tests.lisp3
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:")