134 |
collect pat)) |
collect pat)) |
135 |
nil) |
nil) |
136 |
|
|
137 |
|
;;; Error cases |
138 |
|
|
139 |
|
(deftest search.error.1 |
140 |
|
(classify-error (search)) |
141 |
|
program-error) |
142 |
|
|
143 |
|
(deftest search.error.2 |
144 |
|
(classify-error (search "a")) |
145 |
|
program-error) |
146 |
|
|
147 |
|
(deftest search.error.3 |
148 |
|
(classify-error (search "a" "a" :key)) |
149 |
|
program-error) |
150 |
|
|
151 |
|
(deftest search.error.4 |
152 |
|
(classify-error (search "a" "a" 'bad t)) |
153 |
|
program-error) |
154 |
|
|
155 |
|
(deftest search.error.5 |
156 |
|
(classify-error (search "a" "a" 'bad t :allow-other-keys nil)) |
157 |
|
program-error) |
158 |
|
|
159 |
|
(deftest search.error.6 |
160 |
|
(classify-error (search "a" "a" 1 2)) |
161 |
|
program-error) |
162 |
|
|
163 |
|
|