Commit 59e9e751 authored by pfdietz's avatar pfdietz

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

parent 2452288b
......@@ -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
......
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