add string functions

1 files changed, 29 insertions, 0 deletions

diff --git a/tests/string.lisp b/tests/string.lisp
new file mode 100644
index 0000000..a55e558
--- /dev/null
+++ b/tests/string.lisp
@@ -0,0 +1,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" #\,)))
+