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

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

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

revision 1.8 by pfdietz, Wed Jan 29 02:11:54 2003 UTC revision 1.9 by pfdietz, Mon Feb 10 03:09:37 2003 UTC
# Line 418  Line 418 
418                     (count-if-not #'%onep a :from-end t)))))                     (count-if-not #'%onep a :from-end t)))))
419    2 3 2 3)    2 3 2 3)
420    
421    ;;; Argument order tests
422    
423    (deftest count-if-not-order.1
424      (let ((i 0) c1 c2 c3 c4 c5 c6)
425        (values
426         (count-if-not
427          (progn (setf c1 (incf i)) #'null)
428          (progn (setf c2 (incf i)) '(a nil b c nil d e))
429          :start (progn (setf c3 (incf i)) 0)
430          :end (progn (setf c4 (incf i)) 3)
431          :key (progn (setf c5 (incf i)) #'not)
432          :from-end (progn (setf c6 (incf i)) nil)
433          )
434         i c1 c2 c3 c4 c5 c6))
435      1 6 1 2 3 4 5 6)
436    
437    (deftest count-if-not-order.2
438      (let ((i 0) c1 c2 c3 c4 c5 c6)
439        (values
440         (count-if-not
441          (progn (setf c1 (incf i)) #'null)
442          (progn (setf c2 (incf i)) '(a nil b c nil d e))
443          :from-end (progn (setf c3 (incf i)) nil)
444          :key (progn (setf c4 (incf i)) #'not)
445          :end (progn (setf c5 (incf i)) 3)
446          :start (progn (setf c6 (incf i)) 0)
447          )
448         i c1 c2 c3 c4 c5 c6))
449      1 6 1 2 3 4 5 6)
450    
451  ;;; Keyword tests  ;;; Keyword tests
452    
453  (deftest count-if-not.keywords.1  (deftest count-if-not.keywords.1

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

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