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

Diff of /gcl/ansi-tests/nsubstitute.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 836  Line 836 
836      result)      result)
837    #*01111)    #*01111)
838    
839    ;;; Keyword tests
840    
841    (deftest nsubstitute.allow-other-keys.1
842      (nsubstitute 'a 0 (list 1 2 0 3 1 0 3) :allow-other-keys t :bad t)
843      (1 2 a 3 1 a 3))
844    
845    (deftest nsubstitute.allow-other-keys.2
846      (nsubstitute 'a 0 (list 1 2 0 3 1 0 3) :bad t :allow-other-keys t)
847      (1 2 a 3 1 a 3))
848    
849    (deftest nsubstitute.allow-other-keys.3
850      (nsubstitute 'a 0 (list 1 2 0 3 1 0 3) :allow-other-keys t
851                      :allow-other-keys nil :bad t)
852      (1 2 a 3 1 a 3))
853    
854    (deftest nsubstitute.allow-other-keys.4
855      (nsubstitute 'a 0 (list 1 2 0 3 1 0 3) :bad t
856                      :allow-other-keys t :allow-other-keys nil)
857      (1 2 a 3 1 a 3))
858    
859    (deftest nsubstitute.allow-other-keys.5
860      (nsubstitute 'a 0 (list 1 2 0 3 1 0 3)
861                      :allow-other-keys t :key #'1-)
862      (a 2 0 3 a 0 3))
863    
864    (deftest nsubstitute.keywords.6
865      (nsubstitute 'a 0 (list 1 2 0 3 1 0 3) :key #'1- :key #'identity)
866      (a 2 0 3 a 0 3))
867    
868    (deftest nsubstitute.allow-other-keys.7
869      (nsubstitute 'a 0 (list 1 2 0 3 1 0 3) :allow-other-keys t
870                      :bad t :allow-other-keys nil)
871      (1 2 a 3 1 a 3))
872    
873    (deftest nsubstitute.allow-other-keys.8
874      (nsubstitute 'a 0 (list 1 2 0 3 1 0 3) :allow-other-keys nil)
875      (1 2 a 3 1 a 3))
876    
877    
878  ;;; Error cases  ;;; Error cases
879    
880  (deftest nsubstitute.error.1  (deftest nsubstitute.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