2
;;;; Author: Paul Dietz
3
;;;; Created: Tue Jan 21 06:55:14 2003
4
;;;; Contains: Tests of ARRAY-DIMENSION
8
;;; array-dimension is also tested by the tests in make-array.lsp
10
(deftest array-dimension.1
11
(array-dimension #(0 1 2 3) 0)
14
(deftest array-dimension.2
15
(array-dimension "abcdef" 0)
18
(deftest array-dimension.3
19
(array-dimension #2a((1 2 3 4)(5 6 7 8)) 0)
22
(deftest array-dimension.4
23
(array-dimension #2a((1 2 3 4)(5 6 7 8)) 1)
26
(deftest array-dimension.5
27
(let ((a (make-array '(10) :fill-pointer 5)))
28
(array-dimension a 0))
31
(deftest array-dimension.6
32
(let ((a (make-array '(10) :adjustable t)))
36
(adjust-array a '(20))
37
(array-dimension a 0))))
40
(deftest array-dimension.order.1
43
(array-dimension (progn (setf a (incf i)) #(a b c d))
44
(progn (setf b (incf i)) 0))
50
(deftest array-dimension.error.1
51
(signals-error (array-dimension) program-error)
54
(deftest array-dimension.error.2
55
(signals-error (array-dimension #(a b c)) program-error)
58
(deftest array-dimension.error.3
59
(signals-error (array-dimension #(a b c) 0 nil)