Commit e6a59b6f authored by pfdietz's avatar pfdietz

More annotations for (vector nil) tests.

parent eb9f2878
......@@ -38,15 +38,18 @@
(type-error () :caught)))
t)
(deftest string.8
(deftest string.8
:notes (:nil-vectors-are-strings)
(subtypep* '(array nil (*)) 'string)
t t)
(deftest string.9
:notes (:nil-vectors-are-strings)
(subtypep* '(array nil 1) 'string)
t t)
(deftest string.10
:notes (:nil-vectors-are-strings)
(string (make-array '(0) :element-type nil))
"")
......@@ -59,6 +62,7 @@
t)
(deftest string.13
:notes (:nil-vectors-are-strings)
(typep* (make-array '(0) :element-type nil) 'string)
t)
......@@ -130,15 +134,18 @@
(subtypep* 'simple-string 'simple-base-string)
nil t)
(deftest simple-string.11
(deftest simple-string.11
:notes (:nil-vectors-are-strings)
(subtypep* '(simple-array nil (*)) 'simple-string)
t t)
(deftest simple-string.12
:notes (:nil-vectors-are-strings)
(typep* (make-array '(0) :element-type nil) 'simple-string)
t)
(deftest simple-string.13
:notes (:nil-vectors-are-strings)
(typep* (make-array '(12) :element-type nil) 'simple-string)
t)
......@@ -235,10 +242,12 @@
nil)
(deftest simple-string-p.8
:notes (:nil-vectors-are-strings)
(notnot-mv (simple-string-p (make-array '(0) :element-type nil)))
t)
(deftest simple-string-p.9
:notes (:nil-vectors-are-strings)
(notnot-mv (simple-string-p (make-array '(37) :element-type nil)))
t)
......@@ -288,9 +297,11 @@
t)
(deftest stringp.9
:notes (:nil-vectors-are-strings)
(notnot-mv (stringp (make-array '(0) :element-type nil)))
t)
(deftest stringp.10
:notes (:nil-vectors-are-strings)
(notnot-mv (stringp (make-array '(37) :element-type nil)))
t)
......@@ -99,6 +99,7 @@
;;;; Tests on the definitions of various vector types
(deftest string-is-not-vector-of-character.1
:notes (:nil-vectors-are-strings)
(subtypep* 'string '(vector character))
nil t)
......@@ -107,6 +108,7 @@
t t)
(deftest string-is-not-vector-of-character.3
:notes (:nil-vectors-are-strings)
(subtypep* '(string *) '(vector character))
nil t)
......@@ -115,6 +117,7 @@
t t)
(deftest string-is-not-vector-of-character.5
:notes (:nil-vectors-are-strings)
(subtypep* '(string 17) '(vector character 17))
nil t)
......@@ -171,6 +174,7 @@
t t)
(deftest simple-string-is-not-simple-1d-array-of-character.1
:notes (:nil-vectors-are-strings)
(subtypep* 'simple-string '(simple-array character (*)))
nil t)
......@@ -179,6 +183,7 @@
t t)
(deftest simple-string-is-not-simple-1d-array-of-character.3
:notes (:nil-vectors-are-strings)
(subtypep* '(simple-string *) '(simple-array character (*)))
nil t)
......@@ -187,6 +192,7 @@
t t)
(deftest simple-string-is-not-simple-1d-array-of-character.5
:notes (:nil-vectors-are-strings)
(subtypep* '(simple-string 17) '(simple-array character (17)))
nil t)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment