/[gcl]/gcl/ansi-tests/cons-test-20.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/cons-test-20.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.5 by pfdietz, Mon Jan 13 14:11:49 2003 UTC revision 1.6 by pfdietz, Tue Jan 14 14:01:21 2003 UTC
# Line 187  Line 187 
187          #'<))))          #'<))))
188    (1 4 6 10 44 101))    (1 4 6 10 44 101))
189    
190  ;; Check that union uses eql, not equal or eq  ;;; Check that union uses eql, not equal or eq
191    
192  (deftest union-26  (deftest union-26
193    (let ((x 1000)    (let ((x 1000)
# Line 264  Line 264 
264         #'<))         #'<))
265    (1 2 3 4 5 6))    (1 2 3 4 5 6))
266    
267    (deftest union-32
268      (sort (union (list 7 9 1 5) (list 10 11 9 20 1 2) :bad t
269                   :allow-other-keys "yes")
270            #'<)
271      (1 2 5 7 9 10 11 20))
272    
273    (deftest union-33
274      (sort (union (list 7 9 1 5) (list 10 11 9 20 1 2)
275                   :allow-other-keys t :also-bad t)
276            #'<)
277      (1 2 5 7 9 10 11 20))
278    
279    (deftest union-34
280      (sort (union (list 1 2 3) (list 1 2 3)
281                   :allow-other-keys t :also-bad t
282                   :test #'(lambda (x y) (= x (+ y 100))))
283            #'<)
284      (1 1 2 2 3 3))
285    
286    
287  (deftest union.error.1  (deftest union.error.1
288    (classify-error (union))    (classify-error (union))
289    program-error)    program-error)

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26