2
;;;; Author: Paul Dietz
3
;;;; Created: Tue Jan 21 22:01:09 2003
4
;;;; Contains: Tests of ARRAY-TOTAL-SIZE
8
;;; More tests of ARRAY-TOTAL-SIZE are in make-array.lsp
10
(deftest array-total-size.1
11
(array-total-size #0aNIL)
14
(deftest array-total-size.2
15
(array-total-size "abcdef")
18
(deftest array-total-size.3
19
(array-total-size #(a b c))
22
(deftest array-total-size.4
23
(array-total-size #*0011010)
26
(deftest array-total-size.5
27
(array-total-size #2a((1 2 3)(4 5 6)(7 8 9)(a b c)))
30
(deftest array-total-size.order.1
33
(array-total-size (progn (setf a (incf i)) #(a b c d)))
39
(deftest array-total-size.error.1
40
(signals-error (array-total-size) program-error)
43
(deftest array-total-size.error.2
44
(signals-error (array-total-size #(a b c) nil) program-error)
47
(deftest array-total-size.error.3
48
(loop for e in *mini-universe*
49
unless (or (typep e 'array)
50
(eval `(signals-error (array-total-size ',e)
55
(deftest array-total-size.error.4
56
(signals-error (array-total-size 0) type-error)
59
(deftest array-total-size.error.5
60
(signals-error (locally (array-total-size 0) t)