1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
|
;-*- Mode: Lisp -*-
;;;; Author: Paul Dietz
;;;; Created: Tue Jan 21 06:55:14 2003
;;;; Contains: Tests of ARRAY-DIMENSION
(in-package :cl-test)
;;; array-dimension is also tested by the tests in make-array.lsp
(deftest array-dimension.1
(array-dimension #(0 1 2 3) 0)
4)
(deftest array-dimension.2
(array-dimension "abcdef" 0)
6)
(deftest array-dimension.3
(array-dimension #2a((1 2 3 4)(5 6 7 8)) 0)
2)
(deftest array-dimension.4
(array-dimension #2a((1 2 3 4)(5 6 7 8)) 1)
4)
(deftest array-dimension.5
(let ((a (make-array '(10) :fill-pointer 5)))
(array-dimension a 0))
10)
(deftest array-dimension.6
(let ((a (make-array '(10) :adjustable t)))
(values
(array-dimension a 0)
(progn
(adjust-array a '(20))
(array-dimension a 0))))
10 20)
(deftest array-dimension.7
(macrolet ((%m (z) z))
(array-dimension (expand-in-current-env (%m "abc")) 0))
3)
(deftest array-dimension.8
(macrolet ((%m (z) z))
(array-dimension #2a((a b)(c d)(e f))
(expand-in-current-env (%m 0))))
3)
(deftest array-dimension.order.1
(let ((i 0) a b)
(values
(array-dimension (progn (setf a (incf i)) #(a b c d))
(progn (setf b (incf i)) 0))
i a b))
4 2 1 2)
;;; Error tests
(deftest array-dimension.error.1
(signals-error (array-dimension) program-error)
t)
(deftest array-dimension.error.2
(signals-error (array-dimension #(a b c)) program-error)
t)
(deftest array-dimension.error.3
(signals-error (array-dimension #(a b c) 0 nil)
program-error)
t)
|
