/[guile]/guile/guile-core/test-suite/tests/srfi-13.test
ViewVC logotype

Diff of /guile/guile-core/test-suite/tests/srfi-13.test

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.6 by ttn, Fri Aug 24 22:06:05 2001 UTC revision 1.7 by mvo, Fri Apr 26 18:35:34 2002 UTC
# Line 905  Line 905 
905    (pass-if "empty string, no char/pred"    (pass-if "empty string, no char/pred"
906      (zero? (length (string-tokenize ""))))      (zero? (length (string-tokenize ""))))
907    
   (pass-if "empty string, char"  
     (zero? (length (string-tokenize "" #\.))))  
   
908    (pass-if "empty string, charset"    (pass-if "empty string, charset"
909      (zero? (length (string-tokenize "" char-set:punctuation))))      (zero? (length (string-tokenize "" char-set:punctuation))))
910    
911    (pass-if "no char/pred"    (pass-if "no char/pred"
912      (equal? '("foo" "bar" "!a") (string-tokenize "foo\tbar !a")))      (equal? '("foo" "bar" "!a") (string-tokenize "foo\tbar !a")))
913    
   (pass-if "char"  
     (equal? '("foo:bar" "!a") (string-tokenize "foo:bar.!a" #\.)))  
   
914    (pass-if "charset"    (pass-if "charset"
915      (equal? '("foo" "bar" "a") (string-tokenize "foo:bar.!a"      (equal? '("foo" "bar" "!a") (string-tokenize "foo\tbar !a"
916                                                  char-set:punctuation)))                                                  char-set:graphic)))
   
   (pass-if "char, start index"  
     (equal? '("oo:bar" "!a") (string-tokenize "foo:bar.!a" #\. 1)))  
917    
918    (pass-if "charset, start index"    (pass-if "charset, start index"
919      (equal? '("oo" "bar" "a") (string-tokenize "foo:bar.!a"      (equal? '("oo" "bar" "!a") (string-tokenize "foo\tbar !a"
920                                                  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)))  
921    
922    (pass-if "charset, start and end index"    (pass-if "charset, start and end index"
923      (equal? '("oo" "bar") (string-tokenize "foo:bar.!a"      (equal? '("oo" "bar" "!") (string-tokenize "foo\tbar !a"
924                                                  char-set:punctuation 1 9))))                                                 char-set:graphic 1 9))))
925    
926  (with-test-prefix "string-filter"  (with-test-prefix "string-filter"
927    

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

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