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

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

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

revision 1.6 by pfdietz, Thu Jan 16 14:03:27 2003 UTC revision 1.7 by pfdietz, Fri Jan 17 13:29:23 2003 UTC
# Line 417  Line 417 
417              (count-if #'digit-char-p s :start 1 :end 2)))              (count-if #'digit-char-p s :start 1 :end 2)))
418    3 3 2 2 1)    3 3 2 2 1)
419    
420  ;;; Allow-other-keys tests  ;;; Keyword tests
421    
422  (deftest count-if.allow-other-keys.1  (deftest count-if.allow-other-keys.1
423    (count-if #'evenp '(1 2 3 4 5) :bad t :allow-other-keys t)    (count-if #'evenp '(1 2 3 4 5) :bad t :allow-other-keys t)
# Line 435  Line 435 
435              :bad t)              :bad t)
436    2)    2)
437    
438  (deftest count-if.allow-other-keys.4  (deftest count-if.keywords.4
439    (count-if #'evenp '(1 2 3 4 5) :key #'identity :key #'1+)    (count-if #'evenp '(1 2 3 4 5) :key #'identity :key #'1+)
440    2)    2)
441    
442    (deftest count-if.allow-other-keys.5
443      (count-if #'evenp '(1 2 3 4 5) :allow-other-keys nil)
444      2)
445    
446                            
447  ;;; Error tests  ;;; Error tests

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