mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 14:00:21 +02:00
Code Activity

(string-filter): A few more tests.

Browse source
This commit is contained in:
Kevin Ryde 2005-06-10 22:37:01 +00:00
parent 8753a993c1
commit f29749529b
1 changed files with 43 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

44
test-suite/tests/srfi-13.test
View file

@ -1102,9 +1102,20 @@
(pass-if "charset, start and end index"
(equal? '("oo" "bar" "!") (string-tokenize "foo\tbar !a"
char-set:graphic 1 9))))
;;;
;;; string-filter
;;;
(with-test-prefix "string-filter"
(with-test-prefix "bad char_pred"
(pass-if-exception "integer" exception:wrong-type-arg
(string-filter 123 "abcde"))
(pass-if-exception "string" exception:wrong-type-arg
(string-filter "zzz" "abcde")))
(pass-if "empty string, char"
(string=? "" (string-filter "" #\.)))
@ -1139,7 +1150,38 @@
(string=? "" (string-filter ".foo.bar." char-set:punctuation 2 4)))
(pass-if "pred, start and end index"
(string=? "oo" (string-filter ".foo.bar." char-alphabetic? 2 4))))
(string=? "oo" (string-filter ".foo.bar." char-alphabetic? 2 4)))
(with-test-prefix "char"
(pass-if (equal? "x" (string-filter "x" #\x)))
(pass-if (equal? "xx" (string-filter "xx" #\x)))
(pass-if (equal? "xx" (string-filter "xyx" #\x)))
(pass-if (equal? "x" (string-filter "xyyy" #\x)))
(pass-if (equal? "x" (string-filter "yyyx" #\x)))
(pass-if (equal? "xx" (string-filter "xxx" #\x 1)))
(pass-if (equal? "xx" (string-filter "xxx" #\x 0 2)))
(pass-if (equal? "x" (string-filter "xyx" #\x 1)))
(pass-if (equal? "x" (string-filter "yxx" #\x 0 2))))
(with-test-prefix "charset"
(let ((charset (char-set #\x #\y)))
(pass-if (equal? "x" (string-filter "x" charset)))
(pass-if (equal? "xx" (string-filter "xx" charset)))
(pass-if (equal? "xy" (string-filter "xy" charset)))
(pass-if (equal? "x" (string-filter "xaaa" charset)))
(pass-if (equal? "y" (string-filter "aaay" charset)))
(pass-if (equal? "yx" (string-filter "xyx" charset 1)))
(pass-if (equal? "xy" (string-filter "xyx" charset 0 2)))
(pass-if (equal? "x" (string-filter "xax" charset 1)))
(pass-if (equal? "x" (string-filter "axx" charset 0 2))))))
;;;
;;; string-delete
;;;
(with-test-prefix "string-delete"