/[gcl]/gcl/ansi-tests/reduce.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/reduce.lsp

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

revision 1.5 by pfdietz, Mon Jan 13 14:11:51 2003 UTC revision 1.6 by pfdietz, Fri Jan 17 13:29:23 2003 UTC
# Line 371  Line 371 
371                         :element-type 'bit)))                         :element-type 'bit)))
372      (reduce #'+ s :start 2 :end 4))      (reduce #'+ s :start 2 :end 4))
373    2)    2)
374    
375    ;;; Keyword tests
376    
377    (deftest reduce.allow-other-keys.1
378      (reduce #'+ '(1 2 3) :allow-other-keys t)
379      6)
380    
381    (deftest reduce.allow-other-keys.2
382      (reduce #'+ '(1 2 3) :allow-other-keys nil)
383      6)
384    
385    (deftest reduce.allow-other-keys.3
386      (reduce #'+ '(1 2 3) :bad t :allow-other-keys t)
387      6)
388    
389    (deftest reduce.allow-other-keys.4
390      (reduce #'+ '(1 2 3) :allow-other-keys t :bad t)
391      6)
392    
393    (deftest reduce.allow-other-keys.5
394      (reduce #'+ '(1 2 3) :allow-other-keys t :allow-other-keys nil :bad t)
395      6)
396    
397    (deftest reduce.allow-other-keys.6
398      (reduce #'+ '(1 2 3) :allow-other-keys t :bad t :allow-other-keys nil)
399      6)
400    
401    (deftest reduce.allow-other-keys.7
402      (reduce #'+ '(1 2 3) :bad t :allow-other-keys t :allow-other-keys nil)
403      6)
404    
405    (deftest reduce.allow-other-keys.8
406      (reduce #'cons '(1 2 3) :allow-other-keys t :from-end t :bad t
407              :initial-value nil)
408      (1 2 3))
409    
410    (deftest reduce.keywords.9
411      (reduce #'cons '(1 2 3) :from-end t :from-end nil
412              :initial-value nil :initial-value 'a)
413      (1 2 3))

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