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")))