1 (defpackage "KMRCL-TESTS-LIFT"
2 (:use
"COMMON-LISP" "KMRCL" "LIFT"))
3 (in-package #:kmrcl-tests-lift
)
5 (deftestsuite test-strings
() ())
7 (ensure-same (substitute-chars-strings "" nil
) ""))
9 (ensure-same (substitute-chars-strings "abcd" nil
) "abcd"))
11 (ensure-same (substitute-chars-strings "abcd" nil
) "abcde"))
