From fc295f11d2a784b4a7ba80c52bf7a66178d4c538 Mon Sep 17 00:00:00 2001 From: Marius Vollmer Date: Fri, 26 Apr 2002 19:20:46 +0000 Subject: [PATCH] (string-tokenize): Updated for fixed semantics. --- test-suite/tests/srfi-13.test | 24 ++++++------------------ 1 file changed, 6 insertions(+), 18 deletions(-) diff --git a/test-suite/tests/srfi-13.test b/test-suite/tests/srfi-13.test index bb2d0e24b..c74f06350 100644 --- a/test-suite/tests/srfi-13.test +++ b/test-suite/tests/srfi-13.test @@ -905,35 +905,23 @@ (pass-if "empty string, no char/pred" (zero? (length (string-tokenize "")))) - (pass-if "empty string, char" - (zero? (length (string-tokenize "" #\.)))) - (pass-if "empty string, charset" (zero? (length (string-tokenize "" char-set:punctuation)))) (pass-if "no char/pred" (equal? '("foo" "bar" "!a") (string-tokenize "foo\tbar !a"))) - (pass-if "char" - (equal? '("foo:bar" "!a") (string-tokenize "foo:bar.!a" #\.))) - (pass-if "charset" - (equal? '("foo" "bar" "a") (string-tokenize "foo:bar.!a" - char-set:punctuation))) - - (pass-if "char, start index" - (equal? '("oo:bar" "!a") (string-tokenize "foo:bar.!a" #\. 1))) + (equal? '("foo" "bar" "!a") (string-tokenize "foo\tbar !a" + char-set:graphic))) (pass-if "charset, start index" - (equal? '("oo" "bar" "a") (string-tokenize "foo:bar.!a" - char-set:punctuation 1))) - - (pass-if "char, start and end index" - (equal? '("oo:bar" "!") (string-tokenize "foo:bar.!a" #\. 1 9))) + (equal? '("oo" "bar" "!a") (string-tokenize "foo\tbar !a" + char-set:graphic 1))) (pass-if "charset, start and end index" - (equal? '("oo" "bar") (string-tokenize "foo:bar.!a" - char-set:punctuation 1 9)))) + (equal? '("oo" "bar" "!") (string-tokenize "foo\tbar !a" + char-set:graphic 1 9)))) (with-test-prefix "string-filter"