Skip to content
Snippets Groups Projects
Commit 4c392b26 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

A few trivial string tests (moved from xcvb unit tests)

parent 5d3e92c0
No related branches found
No related tags found
No related merge requests found
......@@ -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"))))
(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")))
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment