/[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.12 by pfdietz, Sat Jan 17 12:05:41 2004 UTC revision 1.13 by pfdietz, Tue Sep 21 13:07:11 2004 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    (deftest count-if-not-string.18
422      (do-special-strings
423       (s "a1ha^%&%#( 873ff83nfa!" nil)
424       (assert (= (count-if-not #'alpha-char-p s) 14)))
425      nil)
426    
427  ;;; Argument order tests  ;;; Argument order tests
428    
429  (deftest count-if-not.order.1  (deftest count-if-not.order.1

Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13

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