39 |
test-inputs))) |
test-inputs))) |
40 |
nil) |
nil) |
41 |
|
|
42 |
|
(deftest member-if-5 |
43 |
|
(member-if #'identity '(1 2 3 4 5) :key #'evenp) |
44 |
|
(2 3 4 5)) |
45 |
|
|
46 |
|
(deftest member-if-6 |
47 |
|
(member-if #'identity '(1 2 3 4 5) :key #'evenp :key #'oddp) |
48 |
|
(2 3 4 5)) |
49 |
|
|
50 |
|
(deftest member-if-7 |
51 |
|
(member-if #'identity '(nil 2 3 4 5) :allow-other-keys t :bad t) |
52 |
|
(2 3 4 5)) |
53 |
|
|
54 |
|
(deftest member-if-8 |
55 |
|
(member-if #'identity '(nil 2 3 4 5) :bad t :allow-other-keys t) |
56 |
|
(2 3 4 5)) |
57 |
|
|
58 |
|
|
59 |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
60 |
;;; member-if-not |
;;; member-if-not |
87 |
nil)))) |
nil)))) |
88 |
test-inputs))) |
test-inputs))) |
89 |
nil) |
nil) |
90 |
|
|
91 |
|
(deftest member-if-not-5 |
92 |
|
(member-if-not #'not '(1 2 3 4 5) :key #'evenp) |
93 |
|
(2 3 4 5)) |
94 |
|
|
95 |
|
(deftest member-if-not-6 |
96 |
|
(member-if-not #'not '(1 2 3 4 5) :key #'evenp :key #'oddp) |
97 |
|
(2 3 4 5)) |
98 |
|
|
99 |
|
(deftest member-if-not-7 |
100 |
|
(member-if-not #'not '(nil 2 3 4 5) :allow-other-keys t :bad t) |
101 |
|
(2 3 4 5)) |
102 |
|
|
103 |
|
(deftest member-if-not-8 |
104 |
|
(member-if-not #'not '(nil 2 3 4 5) :bad t :allow-other-keys t) |
105 |
|
(2 3 4 5)) |
106 |
|
|
107 |
|
;;; Error cases |
108 |
|
|
109 |
|
(deftest member-if.error.1 |
110 |
|
(classify-error (member-if #'identity 'a)) |
111 |
|
type-error) |
112 |
|
|
113 |
|
(deftest member-if.error.2 |
114 |
|
(classify-error (member-if)) |
115 |
|
program-error) |
116 |
|
|
117 |
|
(deftest member-if.error.3 |
118 |
|
(classify-error (member-if #'null)) |
119 |
|
program-error) |
120 |
|
|
121 |
|
(deftest member-if.error.4 |
122 |
|
(classify-error (member-if #'null '(a b c) :bad t)) |
123 |
|
program-error) |
124 |
|
|
125 |
|
(deftest member-if.error.5 |
126 |
|
(classify-error (member-if #'null '(a b c) :bad t :allow-other-keys nil)) |
127 |
|
program-error) |
128 |
|
|
129 |
|
(deftest member-if.error.6 |
130 |
|
(classify-error (member-if #'null '(a b c) :key)) |
131 |
|
program-error) |
132 |
|
|
133 |
|
(deftest member-if.error.7 |
134 |
|
(classify-error (member-if #'null '(a b c) 1 2)) |
135 |
|
program-error) |
136 |
|
|
137 |
|
(deftest member-if-not.error.1 |
138 |
|
(classify-error (member-if-not #'identity 'a)) |
139 |
|
type-error) |
140 |
|
|
141 |
|
(deftest member-if-not.error.2 |
142 |
|
(classify-error (member-if-not)) |
143 |
|
program-error) |
144 |
|
|
145 |
|
(deftest member-if-not.error.3 |
146 |
|
(classify-error (member-if-not #'null)) |
147 |
|
program-error) |
148 |
|
|
149 |
|
(deftest member-if-not.error.4 |
150 |
|
(classify-error (member-if-not #'null '(a b c) :bad t)) |
151 |
|
program-error) |
152 |
|
|
153 |
|
(deftest member-if-not.error.5 |
154 |
|
(classify-error (member-if-not #'null '(a b c) :bad t :allow-other-keys nil)) |
155 |
|
program-error) |
156 |
|
|
157 |
|
(deftest member-if-not.error.6 |
158 |
|
(classify-error (member-if-not #'null '(a b c) :key)) |
159 |
|
program-error) |
160 |
|
|
161 |
|
(deftest member-if-not.error.7 |
162 |
|
(classify-error (member-if-not #'null '(a b c) 1 2)) |
163 |
|
program-error) |
164 |
|
|
165 |
|
|