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

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

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

revision 1.7 by pfdietz, Mon Jan 13 14:11:51 2003 UTC revision 1.8 by pfdietz, Fri Jan 17 13:29:23 2003 UTC
# Line 638  Line 638 
638              :from-end t)              :from-end t)
639    4)    4)
640    
641    ;;; Keyword tests
642    
643    (deftest position.allow-other-keys.1
644      (position 0 '(1 2 0 3 2 1) :allow-other-keys t)
645      2)
646    
647    (deftest position.allow-other-keys.2
648      (position 0 '(1 2 0 3 2 1) :allow-other-keys nil)
649      2)
650    
651    (deftest position.allow-other-keys.3
652      (position 0 '(1 2 0 3 2 1) :allow-other-keys t :bad t)
653      2)
654    
655    (deftest position.allow-other-keys.4
656      (position 0 '(1 2 0 3 2 1) :bad t :allow-other-keys t)
657      2)
658    
659    (deftest position.allow-other-keys.5
660      (position 0 '(1 2 0 3 2 1) :bad t :allow-other-keys t :key #'1-)
661      0)
662    
663    (deftest position.keywords.6
664      (position 0 '(1 2 0 3 2 1) :key #'1- :key #'identity)
665      0)
666    
667    (deftest position.allow-other-keys.7
668      (position 0 '(1 2 0 3 2 1) :bad t :allow-other-keys t
669                   :allow-other-keys nil)
670      2)
671    
672    (deftest position.allow-other-keys.8
673      (position 0 '(1 2 0 3 2 1) :allow-other-keys t :bad t
674                   :allow-other-keys nil)
675      2)
676    
677    (deftest position.allow-other-keys.9
678      (position 0 '(1 2 0 3 2 1) :allow-other-keys t
679                   :allow-other-keys nil :bad t)
680      2)
681    
682  ;;; Error tests  ;;; Error tests
683    
684  (deftest position.error.1  (deftest position.error.1

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

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