Skip to content
Snippets Groups Projects
strings.lisp 417 B
Newer Older
#+xcvb (module (:depends-on ("package")))
(in-package :fare-utils-test)

(defsuite* (test-strings
            :documentation "Test string functions"))

(deftest test-strcat ()
  (is (equal (strcat "foo" "bar" "baz") "foobarbaz")))
  (is (equal (join-strings '("/bin" "/usr/bin" "/usr/local/bin") :separator ":")
             "/bin:/usr/bin:/usr/local/bin")))