From sds at common-lisp.net Sat Apr 3 19:39:26 2010 From: sds at common-lisp.net (sds at common-lisp.net) Date: Sat, 03 Apr 2010 15:39:26 -0400 Subject: [ansi-test-cvs] r2154 - trunk/ansi-tests Message-ID: Author: sds Date: Mon Mar 1 18:24:03 2010 New Revision: 2154 Log: format.justify.30, format.justify.32: restore a trailing space, lost during untabification Modified: trunk/ansi-tests/format-justify.lsp Modified: trunk/ansi-tests/format-justify.lsp ============================================================================== --- trunk/ansi-tests/format-justify.lsp (original) +++ trunk/ansi-tests/format-justify.lsp Mon Mar 1 18:24:03 2010 @@ -213,7 +213,7 @@ (def-pprint-test format.justify.30 (format nil "~%X ~<~%X ~0,3:;AAA~>~<~%X ~0,3:;BBB~>~<~%X ~0,3:;CCC~>") " -X +X X AAA X BBB X CCC") @@ -226,7 +226,7 @@ (def-pprint-test format.justify.32 (format nil "~%X ~<~%X ~0,3:;AAA~>,~<~%X ~0,3:;BBB~>,~<~%X ~0,3:;CCC~>") " -X +X X AAA, X BBB, X CCC") From ehuelsmann at common-lisp.net Sat Apr 3 23:10:02 2010 From: ehuelsmann at common-lisp.net (Erik Huelsmann) Date: Sat, 03 Apr 2010 19:10:02 -0400 Subject: [ansi-test-cvs] r2155 - trunk/ansi-tests Message-ID: Author: ehuelsmann Date: Sat Apr 3 19:10:02 2010 New Revision: 2155 Log: On ABCL, disable -in my opinion outdated- tests for pairwise case requirement of characters-with-case: Unicode has simply superseeded the knowledge from back then. Modified: trunk/ansi-tests/character.lsp Modified: trunk/ansi-tests/character.lsp ============================================================================== --- trunk/ansi-tests/character.lsp (original) +++ trunk/ansi-tests/character.lsp Sat Apr 3 19:10:02 2010 @@ -347,10 +347,21 @@ ;;; +;; based on http://unicode.org/faq/casemap_charprop.html#2 +;; ABCL doesn't implement the pairwise case mappings +;; ABCL deems Unicode conformance more important than CLHS conformance +;; SBCL's solution to make these tests work is by declaring +;; characters to be without case, even though Unicode does declare +;; a case mapping +;; +;; this comment applies to char-upcase.1 and char-upcase.2 + +#-abcl (deftest char-upcase.1 (char-upcase.1.body) t) +#-abcl (deftest char-upcase.2 (char-upcase.2.body) t) From ehuelsmann at common-lisp.net Sat Apr 3 23:17:57 2010 From: ehuelsmann at common-lisp.net (Erik Huelsmann) Date: Sat, 03 Apr 2010 19:17:57 -0400 Subject: [ansi-test-cvs] r2156 - trunk/ansi-tests Message-ID: Author: ehuelsmann Date: Sat Apr 3 19:17:57 2010 New Revision: 2156 Log: Followup regarding the upcase tests: do the same for downcase tests. Modified: trunk/ansi-tests/character.lsp Modified: trunk/ansi-tests/character.lsp ============================================================================== --- trunk/ansi-tests/character.lsp (original) +++ trunk/ansi-tests/character.lsp Sat Apr 3 19:17:57 2010 @@ -355,6 +355,7 @@ ;; a case mapping ;; ;; this comment applies to char-upcase.1 and char-upcase.2 +;; and char-downcase.1 and char-downcase.2 #-abcl (deftest char-upcase.1 @@ -391,10 +392,13 @@ ;;; +;; see char-upcase.1 why this test is commented out for ABCL +#-abcl (deftest char-downcase.1 (char-downcase.1.body) t) +#-abcl (deftest char-downcase.2 (char-downcase.2.body) t)