Support case-sensitive selector designators.

darcs-hash:da29e9f38c99f5a9e558edd20afff7400fced2e4

1 files changed, 12 insertions, 1 deletions

diff --git a/Lisp/tests.lisp b/Lisp/tests.lisp
index beff6f9..f7a6dbb 100644
--- a/Lisp/tests.lisp
+++ b/Lisp/tests.lisp
@@ -46,6 +46,10 @@
       (- (random (abs most-negative-double-float)))))
 
 
+#.(prog1 nil
+    (defparameter *readtable-backup* *readtable*)
+    (setq *readtable* (copy-readtable))
+    (setf (readtable-case *readtable*) :invert))
 (deftestsuite base-functions (objective-cl)
   ()
   (:equality-test #'objc-equal)
@@ -62,7 +66,14 @@
    ((ensure-same (find-selector "stringWithUTF8String:")
                  (find-selector '(:string-with-u-t-f-8-string))))
    ((ensure-same (find-selector "stringWithCString:encoding:")
-                 (find-selector '(:string-with-c-string :encoding))))))
+                 (find-selector '(:string-with-c-string :encoding))))
+   ;; Case-sensitivity.
+   ((ensure-same (find-selector "stringWithCString:encoding:")
+                 (find-selector '(:stringWithCString :encoding))))
+   ((ensure-same (find-selector "stringWithUTF8String:")
+                 (find-selector :stringWithUTF8String)))))
+#.(prog1 nil
+    (setq *readtable* *readtable-backup*))
 
 
 (deftestsuite primitive-method-invocation (objective-cl)