Parent Directory | Revision Log | 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 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |