diff --git a/test/fare-utils-test.asd b/test/fare-utils-test.asd index 58b5f1d44bddddc6b0e031eafe8cd70c24ba5ce6..a58f3994d08a027a97b43a1a7d884d6cfcb77aaf 100644 --- a/test/fare-utils-test.asd +++ b/test/fare-utils-test.asd @@ -4,5 +4,6 @@ :depends-on (:fare-utils :hu.dwim.stefil) :components ((:file "package") + (:file "strings" :depends-on ("package")) (:file "functional-map" :depends-on ("package")) (:file "updatef" :depends-on ("package")))) diff --git a/test/strings.lisp b/test/strings.lisp new file mode 100644 index 0000000000000000000000000000000000000000..5c47581d3a75afcf4a75b8e6bf1b1bcc8d73118f --- /dev/null +++ b/test/strings.lisp @@ -0,0 +1,12 @@ +(in-package :fare-utils-test) + +(defsuite* (test-strings + :in root-suite + :documentation "Test string functions")) + +(deftest test-strcat () + (is (equal (strcat "foo" "bar" "baz") "foobarbaz"))) + +(deftest test-join-strings () + (is (equal (join-strings ":" '("/bin" "/usr/bin" "/usr/local/bin")) + "/bin:/usr/bin:/usr/local/bin")))