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

Diff of /gcl/ansi-tests/substitute.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:24 2003 UTC
# Line 966  Line 966 
966      result)      result)
967    #*01111)    #*01111)
968    
969    ;;; Keyword tests
970    
971    (deftest substitute.allow-other-keys.1
972      (substitute 'a 0 (list 1 2 0 3 1 0 3) :allow-other-keys t :bad t)
973      (1 2 a 3 1 a 3))
974    
975    (deftest substitute.allow-other-keys.2
976      (substitute 'a 0 (list 1 2 0 3 1 0 3) :bad t :allow-other-keys t)
977      (1 2 a 3 1 a 3))
978    
979    (deftest substitute.allow-other-keys.3
980      (substitute 'a 0 (list 1 2 0 3 1 0 3) :allow-other-keys t
981                      :allow-other-keys nil :bad t)
982      (1 2 a 3 1 a 3))
983    
984    (deftest substitute.allow-other-keys.4
985      (substitute 'a 0 (list 1 2 0 3 1 0 3) :bad t
986                      :allow-other-keys t :allow-other-keys nil)
987      (1 2 a 3 1 a 3))
988    
989    (deftest substitute.allow-other-keys.5
990      (substitute 'a 0 (list 1 2 0 3 1 0 3)
991                      :allow-other-keys t :key #'1-)
992      (a 2 0 3 a 0 3))
993    
994    (deftest substitute.keywords.6
995      (substitute 'a 0 (list 1 2 0 3 1 0 3) :key #'1- :key #'identity)
996      (a 2 0 3 a 0 3))
997    
998    (deftest substitute.allow-other-keys.7
999      (substitute 'a 0 (list 1 2 0 3 1 0 3) :allow-other-keys t
1000                      :bad t :allow-other-keys nil)
1001      (1 2 a 3 1 a 3))
1002    
1003    (deftest substitute.allow-other-keys.8
1004      (substitute 'a 0 (list 1 2 0 3 1 0 3) :allow-other-keys nil)
1005      (1 2 a 3 1 a 3))
1006    
1007  ;;; Error cases  ;;; Error cases
1008    
1009  (deftest substitute.error.1  (deftest substitute.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