Commit 1c4cb31f authored by sds's avatar sds
Browse files

use `collect' instead of `always' to display problematic objects in the error

parent 6327aaed
...@@ -39,7 +39,7 @@ ...@@ -39,7 +39,7 @@
(deftest standard-char.5 (deftest standard-char.5
(standard-char.5.body) (standard-char.5.body)
t) ())
(deftest extended-char.1 (deftest extended-char.1
(subtypep* 'extended-char 'character) (subtypep* 'extended-char 'character)
...@@ -51,13 +51,13 @@ ...@@ -51,13 +51,13 @@
(deftest extended-char.3 (deftest extended-char.3
(extended-char.3.body) (extended-char.3.body)
t) ())
;;; ;;;
(deftest character.1 (deftest character.1
(character.1.body) (character.1.body)
t) ())
(deftest character.2 (deftest character.2
(character.2.body) (character.2.body)
...@@ -86,11 +86,11 @@ ...@@ -86,11 +86,11 @@
(deftest characterp.2 (deftest characterp.2
(characterp.2.body) (characterp.2.body)
t) ())
(deftest characterp.3 (deftest characterp.3
(characterp.3.body) (characterp.3.body)
t) ())
(deftest characterp.order.1 (deftest characterp.order.1
(let ((i 0)) (let ((i 0))
...@@ -110,10 +110,10 @@ ...@@ -110,10 +110,10 @@
(deftest alpha-char-p.1 (deftest alpha-char-p.1
(loop for c across +standard-chars+ (loop for c across +standard-chars+
always unless (or (find c +alpha-chars+)
(or (find c +alpha-chars+) (not (alpha-char-p c)))
(not (alpha-char-p c)))) collect c)
t) ())
;;; ;;;
...@@ -148,10 +148,10 @@ ...@@ -148,10 +148,10 @@
(deftest alphanumericp.1 (deftest alphanumericp.1
(loop for c across +standard-chars+ (loop for c across +standard-chars+
always unless (or (find c +alphanumeric-chars+)
(or (find c +alphanumeric-chars+) (not (alphanumericp c)))
(not (alphanumericp c)))) collect c)
t) ())
(deftest alphanumericp.2 (deftest alphanumericp.2
(every #'alphanumericp +alphanumeric-chars+) (every #'alphanumericp +alphanumeric-chars+)
...@@ -163,11 +163,11 @@ ...@@ -163,11 +163,11 @@
(deftest alphanumericp.4 (deftest alphanumericp.4
(alphanumericp.4.body) (alphanumericp.4.body)
t) ())
(deftest alphanumericp.5 (deftest alphanumericp.5
(alphanumericp.5.body) (alphanumericp.5.body)
t) ())
(deftest alphanumbericp.6 (deftest alphanumbericp.6
(macrolet ((%m (z) z)) (alphanumericp (expand-in-current-env (%m #\=)))) (macrolet ((%m (z) z)) (alphanumericp (expand-in-current-env (%m #\=))))
...@@ -227,32 +227,34 @@ ...@@ -227,32 +227,34 @@
(deftest digit-char-p.1 (deftest digit-char-p.1
(digit-char-p.1.body) (digit-char-p.1.body)
t) ())
(deftest digit-char-p.2 (deftest digit-char-p.2
(digit-char-p.2.body) (digit-char-p.2.body)
t) ())
(deftest digit-char-p.3 (deftest digit-char-p.3
(digit-char-p.3.body) (digit-char-p.3.body)
t) ())
(deftest digit-char-p.4 (deftest digit-char-p.4
(digit-char-p.4.body) (digit-char-p.4.body)
t) ())
(deftest digit-char-p.5 (deftest digit-char-p.5
(loop for i from 10 to 35 (loop for i from 10 to 35
for c = (char +extended-digit-chars+ i) for c = (char +extended-digit-chars+ i)
never (or (digit-char-p c) when (or (digit-char-p c)
(digit-char-p (char-downcase c)))) (digit-char-p (char-downcase c)))
t) collect c)
())
(deftest digit-char-p.6 (deftest digit-char-p.6
(loop for i from 0 below 10 (loop for i from 0 below 10
for c = (char +extended-digit-chars+ i) for c = (char +extended-digit-chars+ i)
always (eqlt (digit-char-p c) i)) unless (eqlt (digit-char-p c) i)
t) collect i)
())
(deftest digit-char-p.order.1 (deftest digit-char-p.order.1
(let ((i 0)) (let ((i 0))
...@@ -281,10 +283,11 @@ ...@@ -281,10 +283,11 @@
(deftest graphic-char-p.1 (deftest graphic-char-p.1
(loop for c across +standard-chars+ (loop for c across +standard-chars+
always (if (eqlt c #\Newline) unless (if (eqlt c #\Newline)
(not (graphic-char-p c)) (not (graphic-char-p c))
(graphic-char-p c))) (graphic-char-p c))
t) collect c)
())
(deftest graphic-char-p.2 (deftest graphic-char-p.2
(loop (loop
...@@ -320,11 +323,11 @@ ...@@ -320,11 +323,11 @@
(deftest standard-char-p.2 (deftest standard-char-p.2
(standard-char-p.2.body) (standard-char-p.2.body)
t) ())
(deftest standard-char-p.2a (deftest standard-char-p.2a
(standard-char-p.2a.body) (standard-char-p.2a.body)
t) ())
(deftest standard-char-p.3 (deftest standard-char-p.3
(char-type-error-check #'standard-char-p) (char-type-error-check #'standard-char-p)
...@@ -360,12 +363,12 @@ ...@@ -360,12 +363,12 @@
#-abcl #-abcl
(deftest char-upcase.1 (deftest char-upcase.1
(char-upcase.1.body) (char-upcase.1.body)
t) ())
#-abcl #-abcl
(deftest char-upcase.2 (deftest char-upcase.2
(char-upcase.2.body) (char-upcase.2.body)
t) ())
(deftest char-upcase.3 (deftest char-upcase.3
(map 'string #'char-upcase +alpha-chars+) (map 'string #'char-upcase +alpha-chars+)
...@@ -396,12 +399,12 @@ ...@@ -396,12 +399,12 @@
#-abcl #-abcl
(deftest char-downcase.1 (deftest char-downcase.1
(char-downcase.1.body) (char-downcase.1.body)
t) ())
#-abcl #-abcl
(deftest char-downcase.2 (deftest char-downcase.2
(char-downcase.2.body) (char-downcase.2.body)
t) ())
(deftest char-downcase.3 (deftest char-downcase.3
(map 'string #'char-downcase +alpha-chars+) (map 'string #'char-downcase +alpha-chars+)
...@@ -492,11 +495,11 @@ ...@@ -492,11 +495,11 @@
(deftest both-case-p.1 (deftest both-case-p.1
(both-case-p.1.body) (both-case-p.1.body)
t) ())
(deftest both-case-p.2 (deftest both-case-p.2
(both-case-p.2.body) (both-case-p.2.body)
t) ())
(deftest both-case-p.3 (deftest both-case-p.3
(char-type-error-check #'both-case-p) (char-type-error-check #'both-case-p)
...@@ -529,7 +532,7 @@ ...@@ -529,7 +532,7 @@
(deftest char-code.2 (deftest char-code.2
(char-code.2.body) (char-code.2.body)
t) ())
(deftest char-code.order.1 (deftest char-code.order.1
(let ((i 0)) (let ((i 0))
...@@ -550,8 +553,9 @@ ...@@ -550,8 +553,9 @@
(deftest code-char.1 (deftest code-char.1
(loop for x across +standard-chars+ (loop for x across +standard-chars+
always (eqlt (code-char (char-code x)) x)) unless (eqlt (code-char (char-code x)) x)
t) collect x)
())
(deftest code-char.order.1 (deftest code-char.order.1
(let ((i 0)) (let ((i 0))
...@@ -572,8 +576,9 @@ ...@@ -572,8 +576,9 @@
(deftest char-int.1 (deftest char-int.1
(loop for x across +standard-chars+ (loop for x across +standard-chars+
always (eqlt (char-int x) (char-code x))) unless (eqlt (char-int x) (char-code x))
t) collect x)
())
(deftest char-int.2 (deftest char-int.2
(char-int.2.fn) (char-int.2.fn)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment