72 |
)) |
)) |
73 |
t) |
t) |
74 |
|
|
75 |
|
;;; Error cases |
76 |
|
|
77 |
|
(deftest make-string.error.1 |
78 |
|
(classify-error (make-string)) |
79 |
|
program-error) |
80 |
|
|
81 |
|
(deftest make-string.error.2 |
82 |
|
(classify-error (make-string 10 :bad t)) |
83 |
|
program-error) |
84 |
|
|
85 |
|
(deftest make-string.error.3 |
86 |
|
(classify-error (make-string 10 :bad t :allow-other-keys nil)) |
87 |
|
program-error) |
88 |
|
|
89 |
|
(deftest make-string.error.4 |
90 |
|
(classify-error (make-string 10 :initial-element)) |
91 |
|
program-error) |
92 |
|
|
93 |
|
(deftest make-string.error.5 |
94 |
|
(classify-error (make-string 10 1 1)) |
95 |
|
program-error) |
96 |
|
|
97 |
|
(deftest make-string.error.6 |
98 |
|
(classify-error (make-string 10 :element-type)) |
99 |
|
program-error) |