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

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

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

revision 1.6 by pfdietz, Fri Jan 17 13:29:23 2003 UTC revision 1.7 by pfdietz, Sat Feb 15 05:11:11 2003 UTC
# Line 633  Line 633 
633      result)      result)
634    #*01111)    #*01111)
635    
636    (deftest nsubstitute-if-not.order.1
637      (let ((i 0) a b c d e f g h)
638        (values
639         (nsubstitute-if-not
640          (progn (setf a (incf i)) 'a)
641          (progn (setf b (incf i)) #'identity)
642          (progn (setf c (incf i)) (list nil 1 2 nil 3 4 nil 5))
643          :count (progn (setf d (incf i)) 2)
644          :start (progn (setf e (incf i)) 0)
645          :end (progn (setf f (incf i)) 7)
646          :key (progn (setf g (incf i)) #'identity)
647          :from-end (setf h (incf i))
648          )
649         i a b c d e f g h))
650      (nil 1 2 a 3 4 a 5)
651      8 1 2 3 4 5 6 7 8)
652    
653    (deftest nsubstitute-if-not.order.2
654      (let ((i 0) a b c d e f g h)
655        (values
656         (nsubstitute-if-not
657          (progn (setf a (incf i)) 'a)
658          (progn (setf b (incf i)) #'identity)
659          (progn (setf c (incf i)) (list nil 1 2 nil 3 4 nil 5))
660          :from-end (setf h (incf i))
661          :key (progn (setf g (incf i)) #'identity)
662          :end (progn (setf f (incf i)) 7)
663          :start (progn (setf e (incf i)) 0)
664          :count (progn (setf d (incf i)) 2)
665          )
666         i a b c d e f g h))
667      (nil 1 2 a 3 4 a 5)
668      8 1 2 3 8 7 6 5 4)
669    
670    
671  ;;; Keyword tests  ;;; Keyword tests
672    
673  (deftest nsubstitute-if-not.allow-other-keys.1  (deftest nsubstitute-if-not.allow-other-keys.1

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

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