diff --git a/test/test-utilities.script b/test/test-utilities.script index 0ce8eb373c2fb7d0aa7224f61ed63c52266fc312..3a02290699d004e1ee009a7547ff477a15144dd1 100644 --- a/test/test-utilities.script +++ b/test/test-utilities.script @@ -210,14 +210,15 @@ (assert (base-string-p (make-string 10 :element-type 'character)))) (defun basify (s) (coerce s 'base-string)) +(defun unbasify (s) (coerce s '(array character (*)))) ; on ECL, literals are base strings (!) #+non-base-chars-exist-p (progn (assert (not (base-string-p (make-string 10 :element-type 'character)))) - (assert (not (base-string-p "abc"))) + (assert (not (base-string-p (unbasify "abc")))) (assert (base-string-p (basify "abc"))) - (assert (not (base-string-p (strcat "a" NIL #\b "cd")))) + (assert (not (base-string-p (strcat "a" NIL #\b (unbasify "cd"))))) (assert (base-string-p (reduce/strcat (mapcar 'basify '("a" "b" NIL "cd"))))) (assert (base-string-p (strcat (basify "ab") (basify "cd")))) - (assert (not (base-string-p (strcat (basify "ab") #\c "d")))) + (assert (not (base-string-p (strcat (basify "ab") #\c (unbasify "d"))))) (assert (base-string-p (strcat (basify "ab") #\c #\d))))