107 lines
2.8 KiB
Scheme
107 lines
2.8 KiB
Scheme
|
; test integer->char function
|
|||
|
|
|
|||
|
|
; Is R5RS, but ScriptFu supports unicode
|
|||
|
|
|
|||
|
|
; Also test the inverse operation: char->integer
|
|||
|
|
|
|||
|
|
; TinyScheme does not implement some char functions in MIT Scheme.
|
|||
|
|
; For example char->name char->digit
|
|||
|
|
|
|||
|
|
; TODO test char=? char-upcase
|
|||
|
|
|
|||
|
|
; General test strategy:
|
|||
|
|
; Generate char atom using integer->char.
|
|||
|
|
; Convert each such char atom to string.
|
|||
|
|
; In all cases where it was possible to create such a string, test length is 1.
|
|||
|
|
|
|||
|
|
; See also number->string which is similar to (atom->string (integer->char <foo>) <base>)
|
|||
|
|
|
|||
|
|
|
|||
|
|
; integer->char takes only unsigned (positive or zero) codepoints
|
|||
|
|
; -1 in twos complement is out of range of UTF-8
|
|||
|
|
(assert-error `(integer->char -1)
|
|||
|
|
"integer->char: argument 1 must be: non-negative integer")
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
; ASCII NUL character.
|
|||
|
|
|
|||
|
|
; 0 is a valid codepoint.
|
|||
|
|
; But ASCII null terminates the string early, so to speak.
|
|||
|
|
|
|||
|
|
; Since null byte terminates string early
|
|||
|
|
; the repr in the REPL of codepoint 0 is #\
|
|||
|
|
|
|||
|
|
; re-test
|
|||
|
|
; (integer->char 0)
|
|||
|
|
; #\
|
|||
|
|
|
|||
|
|
(assert (= (char->integer (integer->char 0))
|
|||
|
|
0))
|
|||
|
|
|
|||
|
|
; codepoint zero equals its sharp char hex repr
|
|||
|
|
(assert (equal? (integer->char 0)
|
|||
|
|
#\x0))
|
|||
|
|
|
|||
|
|
; Converting the atom to string yields an empty string
|
|||
|
|
(assert `(string=? (atom->string (integer->char 0))
|
|||
|
|
""))
|
|||
|
|
|
|||
|
|
; You can also represent as escaped hex "x\00"
|
|||
|
|
(assert `(string=? "\x00"
|
|||
|
|
""))
|
|||
|
|
|
|||
|
|
; Escaped hex must have more than one hex digit.
|
|||
|
|
; Testing framework can't test: (assert-error `(string? "\x0") "Error reading string ")
|
|||
|
|
|
|||
|
|
; re-test REPL
|
|||
|
|
; (null? "\x0")
|
|||
|
|
; Error: Error reading string
|
|||
|
|
|
|||
|
|
|
|||
|
|
; the first non-ASCII character (often the euro sign)
|
|||
|
|
|
|||
|
|
(assert (integer->char 128))
|
|||
|
|
|
|||
|
|
; converted string is equivalent to a string literal that displays
|
|||
|
|
(assert `(string=? (atom->string (integer->char 128))
|
|||
|
|
""))
|
|||
|
|
|
|||
|
|
; first Unicode character outside the 8-bit range
|
|||
|
|
|
|||
|
|
; evaluates without complaint
|
|||
|
|
(assert (integer->char 256))
|
|||
|
|
|
|||
|
|
(assert (= (char->integer (integer->char 256))
|
|||
|
|
256))
|
|||
|
|
|
|||
|
|
; length of converted string is 1
|
|||
|
|
; The length is count of characters, not the count of bytes.
|
|||
|
|
(assert `(= (string-length (atom->string (integer->char 256)))
|
|||
|
|
1))
|
|||
|
|
|
|||
|
|
; converted string is equivalent to a string literal that displays
|
|||
|
|
(assert `(string=? (atom->string (integer->char 256))
|
|||
|
|
"Ā"))
|
|||
|
|
|
|||
|
|
|
|||
|
|
; first Unicode character outside the Basic Multilingual Plane
|
|||
|
|
(assert (integer->char 65536))
|
|||
|
|
|
|||
|
|
(assert (= (char->integer (integer->char 65536))
|
|||
|
|
65536))
|
|||
|
|
|
|||
|
|
(assert `(= (string-length (atom->string (integer->char 65536)))
|
|||
|
|
1))
|
|||
|
|
|
|||
|
|
; The usual glyph in some editors is a wide box with these digits inside:
|
|||
|
|
; 010
|
|||
|
|
; 000
|
|||
|
|
; Other editors may display a small empty box.
|
|||
|
|
(assert `(string=? (atom->string (integer->char 65536))
|
|||
|
|
"𐀀"))
|
|||
|
|
|
|||
|
|
; re-test REPL yields a sharp char expr
|
|||
|
|
; (integer->char 65536)
|
|||
|
|
; #\𐀀
|
