2 (defpackage #:kmrcl-tests-xlunit
3 (:use
#:kmrcl
#:cl
#:xlunit
))
4 (in-package #:kmrcl-tests-xlunit
)
6 (defclass string-test-case
(test-case)
8 (def-test-method :str
.0 ((test string-test-case
) :run nil
)
9 (assert-true (string-equal (substitute-chars-strings "" nil
) "")))
10 (def-test-method :str
.1 ((test string-test-case
) :run nil
)
11 (assert-true (string-equal (substitute-chars-strings "abcd" nil
) "abcd")))
12 (def-test-method :str
.1 ((test string-test-case
) :run nil
)
13 (assert-true (string-equal (substitute-chars-strings "abcd" nil
) "abcde")))
15 (textui-test-run (get-suite string-test-case
))
