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