From 4c392b267e5a1c6df6cdf2b82dd445851fe285b1 Mon Sep 17 00:00:00 2001
From: Francois-Rene Rideau <fare@tunes.org>
Date: Tue, 31 May 2011 14:54:58 -0400
Subject: [PATCH] A few trivial string tests (moved from xcvb unit tests)

---
 test/fare-utils-test.asd |  1 +
 test/strings.lisp        | 12 ++++++++++++
 2 files changed, 13 insertions(+)
 create mode 100644 test/strings.lisp

diff --git a/test/fare-utils-test.asd b/test/fare-utils-test.asd
index 58b5f1d..a58f399 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 0000000..5c47581
--- /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")))
-- 
GitLab