blob: 2218671dc7c2bf7e1b37ce1816d37304a9a8f976 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
(assert (char? #\a))
(assert (not (char? 1)))
(assert (not (char? (cons 1 2))))
(assert (not (char? "a")))
(assert (char= #\a #\a))
(assert (char>= #\a #\a))
(assert (char<= #\a #\a))
(assert (char< #\a #\b))
(assert (char> #\b #\a))
(assert (char<= #\a #\b))
(assert (char>= #\b #\a))
(assert (char/= #\b #\a))
(assert (not (char/= #\a #\a)))
(assert (not (char< #\a #\a)))
(assert (not (char> #\a #\a)))
(assert (not (char>= #\a #\b)))
(assert (not (char<= #\b #\a)))
(assert (not (char> #\a #\b)))
(assert (not (char< #\b #\a)))
(assert (not (char= #\b #\a)))
(assert (= 97 (char->int #\a)))
(assert (char= #\a (int->char 97)))
(assert (alphabetic? #\a))
(assert (alphanum? #\a))
(assert (alphanum? #\1))
(assert (numeric? #\1))
(assert (not (numeric? #\a)))
(assert (not (alphabetic? #\1)))
(assert (not (alphanum? #\,)))
|
