Author: koutou
Date: Sat Mar 21 21:08:32 2009
New Revision: 5910
Modified:
trunk/test/util/test-list.scm
trunk/test/util/test-string.scm
Log:
* test/util/test-list.scm: move string related tests to ...
* test/util/test-string.scm: ... here.
Modified: trunk/test/util/test-list.scm
==============================================================================
--- trunk/test/util/test-list.scm (original)
+++ trunk/test/util/test-list.scm Sat Mar 21 21:08:32 2009
@@ -567,50 +567,4 @@
'(list-join '(() () ()) "/"))
#f)
-(define (test-string-join)
- (assert-uim-equal ""
- '(string-join () ()))
- (assert-uim-error '(string-join '(()) ()))
- (assert-uim-error '(string-join '(1) ()))
- (assert-uim-error '(string-join '(() ()) ()))
- (assert-uim-error '(string-join '(1 2) ()))
- (assert-uim-error '(string-join '(1 2 3) ()))
- (assert-uim-error '(string-join '(one two three) ()))
- (assert-uim-error '(string-join '("1" "2" "3") ()))
- (assert-uim-error '(string-join '(() () ()) ()))
-
- (assert-uim-equal ""
- '(string-join () "/"))
- (assert-uim-equal ""
- '(string-join '("") "/"))
- (assert-uim-equal "1"
- '(string-join '("1") "/"))
- (assert-uim-equal "1/2"
- '(string-join '("1" "2") "/"))
- (assert-uim-equal "1/2/3"
- '(string-join '("1" "2" "3") "/"))
-
- (assert-uim-equal ""
- '(string-join () "-sep-"))
- (assert-uim-equal ""
- '(string-join '("") "-sep-"))
- (assert-uim-equal "1"
- '(string-join '("1") "-sep-"))
- (assert-uim-equal "1-sep-2"
- '(string-join '("1" "2") "-sep-"))
- (assert-uim-equal "1-sep-2-sep-3"
- '(string-join '("1" "2" "3") "-sep-"))
- #f)
-
-(define (test-string-append-map)
- (assert-uim-equal ""
- '(string-append-map car ()))
- (assert-uim-equal "c"
- '(string-append-map car '(("c" "C"))))
- (assert-uim-equal "ca"
- '(string-append-map car '(("c" "C") ("a" "A"))))
- (assert-uim-equal "car"
- '(string-append-map car '(("c" "C") ("a" "A")
("r" "R"))))
- #f)
-
(provide "test/util/test-list")
Modified: trunk/test/util/test-string.scm
==============================================================================
--- trunk/test/util/test-string.scm (original)
+++ trunk/test/util/test-string.scm Sat Mar 21 21:08:32 2009
@@ -379,5 +379,50 @@
#f)
+(define (test-string-join)
+ (assert-uim-equal ""
+ '(string-join () ()))
+ (assert-uim-error '(string-join '(()) ()))
+ (assert-uim-error '(string-join '(1) ()))
+ (assert-uim-error '(string-join '(() ()) ()))
+ (assert-uim-error '(string-join '(1 2) ()))
+ (assert-uim-error '(string-join '(1 2 3) ()))
+ (assert-uim-error '(string-join '(one two three) ()))
+ (assert-uim-error '(string-join '("1" "2" "3") ()))
+ (assert-uim-error '(string-join '(() () ()) ()))
+
+ (assert-uim-equal ""
+ '(string-join () "/"))
+ (assert-uim-equal ""
+ '(string-join '("") "/"))
+ (assert-uim-equal "1"
+ '(string-join '("1") "/"))
+ (assert-uim-equal "1/2"
+ '(string-join '("1" "2") "/"))
+ (assert-uim-equal "1/2/3"
+ '(string-join '("1" "2" "3") "/"))
+
+ (assert-uim-equal ""
+ '(string-join () "-sep-"))
+ (assert-uim-equal ""
+ '(string-join '("") "-sep-"))
+ (assert-uim-equal "1"
+ '(string-join '("1") "-sep-"))
+ (assert-uim-equal "1-sep-2"
+ '(string-join '("1" "2") "-sep-"))
+ (assert-uim-equal "1-sep-2-sep-3"
+ '(string-join '("1" "2" "3") "-sep-"))
+ #f)
+
+(define (test-string-append-map)
+ (assert-uim-equal ""
+ '(string-append-map car ()))
+ (assert-uim-equal "c"
+ '(string-append-map car '(("c" "C"))))
+ (assert-uim-equal "ca"
+ '(string-append-map car '(("c" "C") ("a" "A"))))
+ (assert-uim-equal "car"
+ '(string-append-map car '(("c" "C") ("a" "A")
("r" "R"))))
+ #f)
(provide "test/util/test-string")
