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 @@ ...@@ -23,14 +23,14 @@
"Xbcd" "aXcd" "abXd" "abcX") "Xbcd" "aXcd" "abXd" "abcX")
(deftest char.3 (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)))) :initial-contents '(#\a #\b #\c #\d #\e #\f))))
(setf (char s 3) #\X) (setf (char s 3) #\X)
s) s)
"abcXef") "abcXef")
(deftest char.4 (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) :initial-contents '(#\a #\b #\c #\d #\e #\f)
:fill-pointer 4))) :fill-pointer 4)))
(setf (char s 3) #\X) (setf (char s 3) #\X)
...@@ -56,7 +56,7 @@ ...@@ -56,7 +56,7 @@
"aaaXa") "aaaXa")
(deftest char.8 (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) :initial-contents '(#\a #\b #\c #\d #\e #\f)
:fill-pointer 4))) :fill-pointer 4)))
(setf (char s 5) #\X) (setf (char s 5) #\X)
......
...@@ -125,10 +125,12 @@ ...@@ -125,10 +125,12 @@
(map '(simple-vector character) #'identity '(#\a #\b #\c #\d #\e)) (map '(simple-vector character) #'identity '(#\a #\b #\c #\d #\e))
"abcde") "abcde")
;;; Use a more elaborate form of the simple-array type specifier
(deftest map-string.31 (deftest map-string.31
(map '(simple-array character *) #'identity "abcde") (map '(simple-array character *) #'identity "abcde")
"abcde") "abcde")
;;; Use a more elaborate form of the simple-array type specifier
(deftest map-string.32 (deftest map-string.32
(map '(simple-array character 5) #'identity "abcde") (map '(simple-array character 5) #'identity "abcde")
"abcde") "abcde")
......
...@@ -97,6 +97,7 @@ ...@@ -97,6 +97,7 @@
"ABCD")))) "ABCD"))))
t) t)
#|
(deftest read-symbol-8 (deftest read-symbol-8
(multiple-value-bind (s n) (multiple-value-bind (s n)
(ignore-errors (read-from-string "::ABCD")) (ignore-errors (read-from-string "::ABCD"))
...@@ -107,6 +108,7 @@ ...@@ -107,6 +108,7 @@
(string-equal (symbol-name s) (string-equal (symbol-name s)
"ABCD")))) "ABCD"))))
t) t)
|#
(defun read-symbol-9-body (natoms maxlen) (defun read-symbol-9-body (natoms maxlen)
(let* ((chars (concatenate 'string (let* ((chars (concatenate 'string
......
...@@ -108,6 +108,10 @@ ...@@ -108,6 +108,10 @@
(subtypep 'simple-base-string 'simple-string) (subtypep 'simple-base-string 'simple-string)
t t) t t)
(deftest simple-base-string.8
(subtypep 'simple-base-string 'simple-vector)
t t)
;;; Tests for simple-string-p ;;; Tests for simple-string-p
(deftest simple-string-p.1 (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