/[gcl]/gcl/ansi-tests/substitute-if-not.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/substitute-if-not.lsp

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

revision 1.4 by pfdietz, Mon Jan 13 14:11:51 2003 UTC revision 1.5 by pfdietz, Fri Jan 17 13:29:23 2003 UTC
# Line 711  Line 711 
711      result)      result)
712    #*01111)    #*01111)
713    
714    ;;; Keyword tests
715    
716    (deftest substitute-if-not.allow-other-keys.1
717      (substitute-if-not 'a #'zerop (list 1 2 0 3 1 0 3)
718                          :allow-other-keys t :bad t)
719      (a a 0 a a 0 a))
720    
721    (deftest substitute-if-not.allow-other-keys.2
722      (substitute-if-not 'a #'zerop (list 1 2 0 3 1 0 3)
723                          :bad t :allow-other-keys t)
724      (a a 0 a a 0 a))
725    
726    (deftest substitute-if-not.allow-other-keys.3
727      (substitute-if-not 'a #'zerop (list 1 2 0 3 1 0 3) :allow-other-keys t
728                      :allow-other-keys nil :bad t)
729      (a a 0 a a 0 a))
730    
731    (deftest substitute-if-not.allow-other-keys.4
732      (substitute-if-not 'a #'zerop (list 1 2 0 3 1 0 3) :bad t
733                      :allow-other-keys t :allow-other-keys nil)
734      (a a 0 a a 0 a))
735    
736    (deftest substitute-if-not.allow-other-keys.5
737      (substitute-if-not 'a #'zerop (list 1 2 0 3 1 0 3)
738                      :allow-other-keys t :key #'1-)
739      (1 a a a 1 a a))
740    
741    (deftest substitute-if-not.keywords.6
742      (substitute-if-not 'a #'zerop (list 1 2 0 3 1 0 3)
743                          :key #'1- :key #'identity)
744      (1 a a a 1 a a))
745    
746    (deftest substitute-if-not.allow-other-keys.7
747      (substitute-if-not 'a #'zerop (list 1 2 0 3 1 0 3) :allow-other-keys t
748                      :bad t :allow-other-keys nil)
749      (a a 0 a a 0 a))
750    
751    (deftest substitute-if-not.allow-other-keys.8
752      (substitute-if-not 'a #'zerop (list 1 2 0 3 1 0 3) :allow-other-keys nil)
753      (a a 0 a a 0 a))
754    
755  ;;; Error cases  ;;; Error cases
756    
757  (deftest substitute-if-not.error.1  (deftest substitute-if-not.error.1

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

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