Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
asdf
asdf
Commits
c12ec395
Commit
c12ec395
authored
Mar 20, 2013
by
Francois-Rene Rideau
Browse files
Fix strcat tests on ECL.
parent
039449d4
Changes
1
Hide whitespace changes
Inline
Side-by-side
test/test-utilities.script
View file @
c12ec395
...
...
@@ -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))))
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment