Skip to content
Snippets Groups Projects
Commit dc427410 authored by pfdietz's avatar pfdietz
Browse files

Fixed up some test problems, added comments, added simple-base-string.8

parent fc06d64f
No related branches found
No related tags found
No related merge requests found
......@@ -23,14 +23,14 @@
"Xbcd" "aXcd" "abXd" "abcX")
(deftest char.3
(let ((s (make-array 6 :element-type 'chararacter
(let ((s (make-array 6 :element-type 'character
:initial-contents '(#\a #\b #\c #\d #\e #\f))))
(setf (char s 3) #\X)
s)
"abcXef")
(deftest char.4
(let ((s (make-array 6 :element-type 'chararacter
(let ((s (make-array 6 :element-type 'character
:initial-contents '(#\a #\b #\c #\d #\e #\f)
:fill-pointer 4)))
(setf (char s 3) #\X)
......@@ -56,7 +56,7 @@
"aaaXa")
(deftest char.8
(let ((s (make-array 6 :element-type 'chararacter
(let ((s (make-array 6 :element-type 'character
:initial-contents '(#\a #\b #\c #\d #\e #\f)
:fill-pointer 4)))
(setf (char s 5) #\X)
......
......@@ -125,10 +125,12 @@
(map '(simple-vector character) #'identity '(#\a #\b #\c #\d #\e))
"abcde")
;;; Use a more elaborate form of the simple-array type specifier
(deftest map-string.31
(map '(simple-array character *) #'identity "abcde")
"abcde")
;;; Use a more elaborate form of the simple-array type specifier
(deftest map-string.32
(map '(simple-array character 5) #'identity "abcde")
"abcde")
......
......@@ -97,6 +97,7 @@
"ABCD"))))
t)
#|
(deftest read-symbol-8
(multiple-value-bind (s n)
(ignore-errors (read-from-string "::ABCD"))
......@@ -107,6 +108,7 @@
(string-equal (symbol-name s)
"ABCD"))))
t)
|#
(defun read-symbol-9-body (natoms maxlen)
(let* ((chars (concatenate 'string
......
......@@ -108,6 +108,10 @@
(subtypep 'simple-base-string 'simple-string)
t t)
(deftest simple-base-string.8
(subtypep 'simple-base-string 'simple-vector)
t t)
;;; Tests for simple-string-p
(deftest simple-string-p.1
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment