From: Lutz Euler <lutz.euler@freenet.de>
Date: Sun, 2 Jun 2013 12:58:49 +0000 (+0200)
Subject: Fix expected result for a character comparison test under non-unicode.
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=16197d4fb565e8e6984414bcb014d30ec302d003;p=sbcl.git

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

The test "character.pure.lisp / :case-insensitive-char-comparisons
:exhaustive" was marked as an expected failure as the unicode
implementation is not yet complete, but on a non-unicode build it
actually already succeeds.
---

diff --git a/tests/character.pure.lisp b/tests/character.pure.lisp
index c84b463..d2dd66c 100644
--- 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))