projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
double->single float conversion isn't a no-op on x87 anymore
[sbcl.git]
/
tests
/
unicode-normalization.impure.lisp
diff --git
a/tests/unicode-normalization.impure.lisp
b/tests/unicode-normalization.impure.lisp
index
e62fd93
..
49aa69a
100644
(file)
--- a/
tests/unicode-normalization.impure.lisp
+++ b/
tests/unicode-normalization.impure.lisp
@@
-79,7
+79,8
@@
(assert (string= "@Part0" line :end2 6))
(assert (char= #\# (char (read-line s) 0)))))
;; Part0: specific cases
(assert (string= "@Part0" line :end2 6))
(assert (char= #\# (char (read-line s) 0)))))
;; Part0: specific cases
- (with-test (:name (:unicode-normalization :part0))
+ (with-test (:name (:unicode-normalization :part0)
+ :skipped-on '(not :sb-unicode))
(do ((line (read-line s) (read-line s)))
((char= #\# (char line 0))
(assert (string= "@Part1" (read-line s) :end2 6))
(do ((line (read-line s) (read-line s)))
((char= #\# (char line 0))
(assert (string= "@Part1" (read-line s) :end2 6))
@@
-90,7
+91,8
@@
(test-line c1 c2 c3 c4 c5))))
;; Part1: single characters. (Extra work to check for conformance
;; on unlisted entries)
(test-line c1 c2 c3 c4 c5))))
;; Part1: single characters. (Extra work to check for conformance
;; on unlisted entries)
- (with-test (:name (:unicode-normalization :part1))
+ (with-test (:name (:unicode-normalization :part1)
+ :skipped-on '(not :sb-unicode))
(do ((line (read-line s) (read-line s))
(code 0))
((char= #\# (char line 0))
(do ((line (read-line s) (read-line s))
(code 0))
((char= #\# (char line 0))
@@
-107,7
+109,8
@@
(setf code (1+ c)))
(test-no-normalization (string (code-char code)))))))
;; Part2: Canonical Order Test
(setf code (1+ c)))
(test-no-normalization (string (code-char code)))))))
;; Part2: Canonical Order Test
- (with-test (:name (:unicode-normalization :part2))
+ (with-test (:name (:unicode-normalization :part2)
+ :skipped-on '(not :sb-unicode))
(do ((line (read-line s) (read-line s)))
((char= #\# (char line 0))
(assert (string= "@Part3" (read-line s) :end2 6))
(do ((line (read-line s) (read-line s)))
((char= #\# (char line 0))
(assert (string= "@Part3" (read-line s) :end2 6))
@@
-116,7
+119,8
@@
(parse-one-line line)
(test-line c1 c2 c3 c4 c5))))
;; Part3: PRI #29 Test
(parse-one-line line)
(test-line c1 c2 c3 c4 c5))))
;; Part3: PRI #29 Test
- (with-test (:name (:unicode-normalization :part3))
+ (with-test (:name (:unicode-normalization :part3)
+ :skipped-on '(not :sb-unicode))
(do ((line (read-line s) (read-line s)))
((char= #\# (char line 0))
(assert (char= #\# (char (read-line s) 0)))
(do ((line (read-line s) (read-line s)))
((char= #\# (char line 0))
(assert (char= #\# (char (read-line s) 0)))