blob: a55e55891932b2d2bf9709ceec7a5e2b1cb9d6c9 (
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
|
(assert (equal "abc" (string #\a #\b #\c)))
(assert (equal "ABC" (string 65 66 67)))
(assert (string= "abc" (string #\a #\b #\c)))
(assert (string= "ABC" (string 65 66 67)))
(defvar s1 "a1s")
(defvar s2 "a2s")
(assert (string= s1 s1))
(assert (string>= s1 s1))
(assert (string<= s1 s1))
(assert (string> s2 s1))
(assert (string>= s2 s1))
(assert (string< s1 s2))
(assert (string<= s1 s2))
(assert (string/= s1 s2))
(assert (not (string/= s1 s1)))
(assert (not (string< s1 s1)))
(assert (not (string> s1 s1)))
(assert (not (string<= s2 s1)))
(assert (not (string< s2 s1)))
(assert (not (string>= s1 s2)))
(assert (not (string> s1 s2)))
(assert (string= "abc" (strip-string "\n\tabc \t\n")))
(assert (equal ("a" "b" "c") (split-string "a,b,c" #\,)))
|
