From c12ec3958000d943fc275870d1938918b06cb6f0 Mon Sep 17 00:00:00 2001 From: Francois-Rene Rideau <tunes@google.com> Date: Wed, 20 Mar 2013 01:42:26 -0400 Subject: [PATCH] Fix strcat tests on ECL. --- test/test-utilities.script | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/test/test-utilities.script b/test/test-utilities.script index 0ce8eb37..3a022906 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)))) -- GitLab