Fix expected result for a character comparison test under non-unicode.

[sbcl.git] / tests / character.pure.lisp

diff --git a/tests/character.pure.lisp b/tests/character.pure.lisp
index c84b463..d2dd66c 100644 (file)
--- a/tests/character.pure.lisp
+++ b/tests/character.pure.lisp
@@ -131,7 +131,7 @@
   (assert (char-equal (code-char 201) (code-char 233))))
 
 (with-test (:name (:case-insensitive-char-comparisons :exhaustive)
-            :fails-on '(and))
+            :fails-on :sb-unicode)
   (dotimes (i char-code-limit)
     (let* ((char (code-char i))
            (down (char-downcase char))