7 |
|
|
8 |
;;; Most tests of this function are in files for other package-related operators |
;;; Most tests of this function are in files for other package-related operators |
9 |
|
|
10 |
|
;;; Specialized sequence tests |
11 |
|
|
12 |
|
(defmacro def-package-used-by-list-test (test-name name-form) |
13 |
|
`(deftest ,test-name |
14 |
|
(let ((name ,name-form)) |
15 |
|
(safely-delete-package name) |
16 |
|
(let ((p (make-package name :use nil))) |
17 |
|
(package-used-by-list p))) |
18 |
|
nil)) |
19 |
|
|
20 |
|
(def-package-used-by-list-test package-used-by-list.1 |
21 |
|
(make-array 5 :element-type 'base-char :initial-contents "TEST1")) |
22 |
|
|
23 |
|
(def-package-used-by-list-test package-used-by-list.2 |
24 |
|
(make-array 10 :element-type 'base-char |
25 |
|
:fill-pointer 5 |
26 |
|
:initial-contents "TEST1?????")) |
27 |
|
|
28 |
|
(def-package-used-by-list-test package-used-by-list.3 |
29 |
|
(make-array 10 :element-type 'character |
30 |
|
:fill-pointer 5 |
31 |
|
:initial-contents "TEST1?????")) |
32 |
|
|
33 |
|
(def-package-used-by-list-test package-used-by-list.4 |
34 |
|
(make-array 5 :element-type 'base-char :adjustable t |
35 |
|
:initial-contents "TEST1")) |
36 |
|
|
37 |
|
(def-package-used-by-list-test package-used-by-list.5 |
38 |
|
(make-array 5 :element-type 'character :adjustable t |
39 |
|
:initial-contents "TEST1")) |
40 |
|
|
41 |
|
(def-package-used-by-list-test package-used-by-list.6 |
42 |
|
(let* ((etype 'base-char) |
43 |
|
(name0 (make-array 10 :element-type etype |
44 |
|
:initial-contents "XXTEST1XXX"))) |
45 |
|
(make-array 5 :element-type etype :displaced-to name0 |
46 |
|
:displaced-index-offset 2))) |
47 |
|
|
48 |
|
(def-package-used-by-list-test package-used-by-list.7 |
49 |
|
(let* ((etype 'character) |
50 |
|
(name0 (make-array 10 :element-type etype |
51 |
|
:initial-contents "XXTEST1XXX"))) |
52 |
|
(make-array 5 :element-type etype :displaced-to name0 |
53 |
|
:displaced-index-offset 2))) |
54 |
|
|
55 |
|
;;; Error tests |
56 |
|
|
57 |
(deftest package-used-by-list.error.1 |
(deftest package-used-by-list.error.1 |
58 |
(signals-error (package-used-by-list) program-error) |
(signals-error (package-used-by-list) program-error) |
59 |
t) |
t) |