1 (defpackage "KMRCL-TESTS-5AM"
2 (:use
"COMMON-LISP" "KMRCL" "5AM"))
3 (in-package #:kmrcl-tests-5am
)
5 (def-suite test-strings
:description
"Test some KMRCL string tests.")
6 (in-suite test-strings
)
8 (is (substitute-chars-strings "" nil
) ""))
10 (is (substitute-chars-strings "abcd" nil
) "abcd"))
12 (is (substitute-chars-strings "abcd" nil
) "abcde"))