diff options
| author | Mistivia <i@mistivia.com> | 2025-06-24 15:44:12 +0800 |
|---|---|---|
| committer | Mistivia <i@mistivia.com> | 2025-06-24 15:50:55 +0800 |
| commit | 65cd835954825568a432c2e62d8019269dcafd74 (patch) | |
| tree | 52724d76c7506e1acce6c20903ff18fbeda02c8f /tests/string.lisp | |
| parent | 60b8cd0df3ed844ea5c77286ac27afff5b3c9b37 (diff) | |
add list function
Diffstat (limited to 'tests/string.lisp')
| -rw-r--r-- | tests/string.lisp | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/string.lisp b/tests/string.lisp index a55e558..a323c96 100644 --- a/tests/string.lisp +++ b/tests/string.lisp @@ -1,5 +1,5 @@ -(assert (equal "abc" (string #\a #\b #\c))) -(assert (equal "ABC" (string 65 66 67))) +(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))) @@ -25,5 +25,5 @@ (assert (not (string> s1 s2))) (assert (string= "abc" (strip-string "\n\tabc \t\n"))) -(assert (equal ("a" "b" "c") (split-string "a,b,c" #\,))) +(assert (equal? (list "a" "b" "c") (split-string "a,b,c" #\,))) |