5 |
|
|
6 |
(in-package :cl-test) |
(in-package :cl-test) |
7 |
|
|
8 |
(deftest fill-error.1 |
(deftest fill.error.1 |
9 |
(classify-error (fill 'a 'b)) |
(classify-error (fill 'a 'b)) |
10 |
type-error) |
type-error) |
11 |
|
|
12 |
|
(deftest fill.error.2 |
13 |
|
(classify-error (fill)) |
14 |
|
program-error) |
15 |
|
|
16 |
|
(deftest fill.error.3 |
17 |
|
(classify-error (fill (list 'a 'b))) |
18 |
|
program-error) |
19 |
|
|
20 |
|
(deftest fill.error.4 |
21 |
|
(classify-error (fill (list 'a 'b) 'c :bad t)) |
22 |
|
program-error) |
23 |
|
|
24 |
|
(deftest fill.error.5 |
25 |
|
(classify-error (fill (list 'a 'b) 'c :bad t :allow-other-keys nil)) |
26 |
|
program-error) |
27 |
|
|
28 |
|
(deftest fill.error.6 |
29 |
|
(classify-error (fill (list 'a 'b) 'c :start)) |
30 |
|
program-error) |
31 |
|
|
32 |
|
(deftest fill.error.7 |
33 |
|
(classify-error (fill (list 'a 'b) 'c :end)) |
34 |
|
program-error) |
35 |
|
|
36 |
|
(deftest fill.error.8 |
37 |
|
(classify-error (fill (list 'a 'b) 'c 1 2)) |
38 |
|
program-error) |
39 |
|
|
40 |
;;; Fill on arrays |
;;; Fill on arrays |
41 |
|
|
42 |
(deftest array-fill-1 |
(deftest array-fill-1 |