Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
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
23202d54
Commit
23202d54
authored
Jan 28, 2003
by
pfdietz
Browse files
Added tests for env arguments to subtypep, typep, and upgraded-array-element-type.
parent
196d027e
Changes
2
Hide whitespace changes
Inline
Side-by-side
ansi-tests/types-and-class.lsp
View file @
23202d54
...
...
@@ -430,3 +430,63 @@
(type-error-expected-type c nil)))
program-error)
;;; Tests of env arguments to typep, subtypep
(deftest typep.env.1
(notnot-mv (typep 0 'bit nil))
t)
(deftest typep.env.2
(macrolet ((%foo (&environment env)
(notnot (typep 0 'bit env))))
(%foo))
t)
(deftest typep.env.3
(macrolet ((%foo (&environment env)
(notnot (typep env (type-of env)))))
(%foo))
t)
(deftest subtype.env.1
(mapcar #'notnot
(multiple-value-list (subtypep 'bit 'integer nil)))
(t t))
(deftest subtype.env.2
(macrolet
((%foo (&environment env)
(list 'quote
(mapcar #'notnot
(multiple-value-list
(subtypep 'bit 'integer env))))))
(%foo))
(t t))
(deftest subtype.env.3
(macrolet
((%foo (&environment env)
(multiple-value-bind (sub good)
(subtypep nil (type-of env))
(or (not good) (notnot sub)))))
(%foo))
t)
(deftest subtype.env.4
(macrolet
((%foo (&environment env)
(multiple-value-bind (sub good)
(subtypep (type-of env) (type-of env))
(or (not good) (notnot sub)))))
(%foo))
t)
(deftest subtype.env.5
(macrolet
((%foo (&environment env)
(multiple-value-bind (sub good)
(subtypep (type-of env) t)
(or (not good) (notnot sub)))))
(%foo))
t)
ansi-tests/upgraded-array-element-type.lsp
View file @
23202d54
...
...
@@ -62,6 +62,16 @@
for upgraded-type = (upgraded-array-element-type type nil)
always (empirical-subtypep type upgraded-type))
t)
(deftest upgraded-array-element-type.6
(macrolet
((%foo (&environment env)
(empirical-subtypep
'bit
(upgraded-array-element-type 'bit env))))
(%foo))
t)
;;; Error tests
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a 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