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

More useful failure output from some upgraded-array-element-type tests

parent 2452288b
No related branches found
No related tags found
No related merge requests found
......@@ -55,8 +55,9 @@
(deftest upgraded-array-element-type.4
(loop for type in *upgraded-array-types-to-check*
for upgraded-type = (upgraded-array-element-type type)
always (empirical-subtypep type upgraded-type))
t)
unless (empirical-subtypep type upgraded-type)
collect (list type upgraded-type))
nil)
;; Include an environment (NIL, denoting the default null lexical
;; environment)
......@@ -64,8 +65,9 @@
(deftest upgraded-array-element-type.5
(loop for type in *upgraded-array-types-to-check*
for upgraded-type = (upgraded-array-element-type type nil)
always (empirical-subtypep type upgraded-type))
t)
unless (empirical-subtypep type upgraded-type)
collect (list type upgraded-type))
nil)
(deftest upgraded-array-element-type.6
(macrolet
......
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