72 |
)) |
)) |
73 |
t) |
t) |
74 |
|
|
75 |
;;; Error cases |
;;; Keyword tests |
76 |
|
; |
77 |
|
(deftest make-string.allow-other-keys.1 |
78 |
|
(make-string 5 :allow-other-keys t :initial-element #\a) |
79 |
|
"aaaaa") |
80 |
|
|
81 |
|
(deftest make-string.allow-other-keys.2 |
82 |
|
(make-string 5 :initial-element #\a :allow-other-keys t) |
83 |
|
"aaaaa") |
84 |
|
|
85 |
|
(deftest make-string.allow-other-keys.3 |
86 |
|
(make-string 5 :initial-element #\a :allow-other-keys t |
87 |
|
:bad t) |
88 |
|
"aaaaa") |
89 |
|
|
90 |
|
(deftest make-string.allow-other-keys.4 |
91 |
|
(make-string 5 :bad t :allow-other-keys t :allow-other-keys nil |
92 |
|
:initial-element #\a) |
93 |
|
"aaaaa") |
94 |
|
|
95 |
|
(deftest make-string.allow-other-keys.5 |
96 |
|
(make-string 5 :allow-other-keys t :bad t :allow-other-keys nil |
97 |
|
:initial-element #\a) |
98 |
|
"aaaaa") |
99 |
|
|
100 |
|
(deftest make-string.allow-other-keys.6 |
101 |
|
(make-string 5 :allow-other-keys t :allow-other-keys nil :bad nil |
102 |
|
:initial-element #\a) |
103 |
|
"aaaaa") |
104 |
|
|
105 |
|
(deftest make-string.keywords.7 |
106 |
|
(make-string 5 :initial-element #\a :initial-element #\b) |
107 |
|
"aaaaa") |
108 |
|
|
109 |
|
;; Error cases |
110 |
|
|
111 |
(deftest make-string.error.1 |
(deftest make-string.error.1 |
112 |
(classify-error (make-string)) |
(classify-error (make-string)) |