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

Diff of /gcl/ansi-tests/nsubstitute-if.lsp

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

revision 1.4 by pfdietz, Mon Jan 13 14:11:50 2003 UTC revision 1.5 by pfdietz, Fri Jan 17 13:29:23 2003 UTC
# Line 630  Line 630 
630      result)      result)
631    #*01111)    #*01111)
632    
633    ;;; Keyword tests
634    
635    (deftest nsubstitute-if.allow-other-keys.1
636      (nsubstitute-if 'a #'zerop (list 1 2 0 3 1 0 3) :allow-other-keys t :bad t)
637      (1 2 a 3 1 a 3))
638    
639    (deftest nsubstitute-if.allow-other-keys.2
640      (nsubstitute-if 'a #'zerop (list 1 2 0 3 1 0 3) :bad t :allow-other-keys t)
641      (1 2 a 3 1 a 3))
642    
643    (deftest nsubstitute-if.allow-other-keys.3
644      (nsubstitute-if 'a #'zerop (list 1 2 0 3 1 0 3) :allow-other-keys t
645                      :allow-other-keys nil :bad t)
646      (1 2 a 3 1 a 3))
647    
648    (deftest nsubstitute-if.allow-other-keys.4
649      (nsubstitute-if 'a #'zerop (list 1 2 0 3 1 0 3) :bad t
650                      :allow-other-keys t :allow-other-keys nil)
651      (1 2 a 3 1 a 3))
652    
653    (deftest nsubstitute-if.allow-other-keys.5
654      (nsubstitute-if 'a #'zerop (list 1 2 0 3 1 0 3)
655                      :allow-other-keys t :key #'1-)
656      (a 2 0 3 a 0 3))
657    
658    (deftest nsubstitute-if.keywords.6
659      (nsubstitute-if 'a #'zerop (list 1 2 0 3 1 0 3) :key #'1- :key #'identity)
660      (a 2 0 3 a 0 3))
661    
662    (deftest nsubstitute-if.allow-other-keys.7
663      (nsubstitute-if 'a #'zerop (list 1 2 0 3 1 0 3) :allow-other-keys t
664                      :bad t :allow-other-keys nil)
665      (1 2 a 3 1 a 3))
666    
667    (deftest nsubstitute-if.allow-other-keys.8
668      (nsubstitute-if 'a #'zerop (list 1 2 0 3 1 0 3) :allow-other-keys nil)
669      (1 2 a 3 1 a 3))
670    
671  ;;; Error cases  ;;; Error cases
672    
673  (deftest nsubstitute-if.error.1  (deftest nsubstitute-if.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