Commit 78ffcc30 authored by pfdietz's avatar pfdietz
Browse files

Added tests for structures whose slots are CL constant symbols.

parent bc03b6e5
......@@ -408,6 +408,71 @@
(defstruct-with-tests :struct-test-63 a63 b63 c63)
(defstruct-with-tests struct-test-64 :a63 :b63 :c63)
(defstruct-with-tests struct-test-65
array-dimension-limit
array-rank-limit
array-total-size-limit
boole-1
boole-2
boole-and
boole-andc1
boole-andc2
boole-c1
boole-c2
boole-clr
boole-eqv
boole-ior
boole-nand
boole-nor
boole-orc1
boole-orc2
boole-set
boole-xor
call-arguments-limit
char-code-limit
double-float-epsilon
double-float-negative-epsilon
internal-time-units-per-second
lambda-list-keywords
lambda-parameters-limit
least-negative-double-float
least-negative-long-float
least-negative-normalized-double-float
least-negative-normalized-long-float
least-negative-normalized-short-float
least-negative-normalized-single-float
least-negative-short-float
least-negative-single-float
least-positive-double-float
least-positive-long-float
least-positive-normalized-double-float
least-positive-normalized-long-float
least-positive-normalized-short-float
least-positive-normalized-single-float
least-positive-short-float
least-positive-single-float
long-float-epsilon
long-float-negative-epsilon
most-negative-double-float
most-negative-fixnum
most-negative-long-float
most-negative-short-float
most-negative-single-float
most-positive-double-float
most-positive-fixnum
most-positive-long-float
most-positive-short-float
most-positive-single-float
multiple-values-limit
pi
short-float-epsilon
short-float-negative-epsilon
single-float-epsilon
single-float-negative-epsilon
t)
(defstruct-with-tests struct-test-66 nil)
;;; Error tests
(deftest copy-structure.error.1
......
......@@ -79,7 +79,7 @@
(defstruct (struct-include-03b (:include struct-include-03a (a))))
(deftest struct-include.5
(deftest struct-include.5a
(let ((obj (make-struct-include-03b :a 100)))
(values
(typep obj 'struct-include-03a)
......
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