mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-04 14:20:26 +02:00
Code Activity

(string-tokenize): Updated for fixed semantics.

Browse source
This commit is contained in:
Marius Vollmer 2002-04-26 19:20:46 +00:00
parent 65f5dbae9a
commit fc295f11d2
1 changed files with 6 additions and 18 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -905,35 +905,23 @@
(pass-if "empty string, no char/pred" (pass-if "empty string, no char/pred"
(zero? (length (string-tokenize "")))) (zero? (length (string-tokenize ""))))
(pass-if "empty string, char"
(zero? (length (string-tokenize "" #\.))))
(pass-if "empty string, charset" (pass-if "empty string, charset"
(zero? (length (string-tokenize "" char-set:punctuation)))) (zero? (length (string-tokenize "" char-set:punctuation))))
(pass-if "no char/pred" (pass-if "no char/pred"
(equal? '("foo" "bar" "!a") (string-tokenize "foo\tbar !a"))) (equal? '("foo" "bar" "!a") (string-tokenize "foo\tbar !a")))
(pass-if "char"
(equal? '("foo:bar" "!a") (string-tokenize "foo:bar.!a" #\.)))
(pass-if "charset" (pass-if "charset"
(equal? '("foo" "bar" "a") (string-tokenize "foo:bar.!a" (equal? '("foo" "bar" "!a") (string-tokenize "foo\tbar !a"
char-set:punctuation))) char-set:graphic)))
(pass-if "char, start index"
(equal? '("oo:bar" "!a") (string-tokenize "foo:bar.!a" #\. 1)))
(pass-if "charset, start index" (pass-if "charset, start index"
(equal? '("oo" "bar" "a") (string-tokenize "foo:bar.!a" (equal? '("oo" "bar" "!a") (string-tokenize "foo\tbar !a"
char-set:punctuation 1))) char-set:graphic 1)))
(pass-if "char, start and end index"
(equal? '("oo:bar" "!") (string-tokenize "foo:bar.!a" #\. 1 9)))
(pass-if "charset, start and end index" (pass-if "charset, start and end index"
(equal? '("oo" "bar") (string-tokenize "foo:bar.!a" (equal? '("oo" "bar" "!") (string-tokenize "foo\tbar !a"
char-set:punctuation 1 9)))) char-set:graphic 1 9))))
(with-test-prefix "string-filter" (with-test-prefix "string-filter"