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
Karsten Poeck
ansi-test
Commits
e6a59b6f
Commit
e6a59b6f
authored
Jul 27, 2003
by
pfdietz
Browse files
More annotations for (vector nil) tests.
parent
eb9f2878
Changes
2
Hide whitespace changes
Inline
Side-by-side
ansi-tests/string.lsp
View file @
e6a59b6f
...
...
@@ -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)
ansi-tests/subtypep-array.lsp
View file @
e6a59b6f
...
...
@@ -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)
...
...
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