summaryrefslogtreecommitdiff
path: root/test-suite/tests/srfi-13.test
diff options
context:
space:
mode:
Diffstat (limited to 'test-suite/tests/srfi-13.test')
-rw-r--r--test-suite/tests/srfi-13.test19
1 files changed, 19 insertions, 0 deletions
diff --git a/test-suite/tests/srfi-13.test b/test-suite/tests/srfi-13.test
index 0d2ff59a0..6864287c2 100644
--- a/test-suite/tests/srfi-13.test
+++ b/test-suite/tests/srfi-13.test
@@ -148,6 +148,25 @@
(string-any char-upper-case? "abCDE" 1 4))))
;;;
+;;; string-titlecase
+;;;
+
+(with-test-prefix "string-titlecase"
+
+ (pass-if "all-lower"
+ (string=? "Foo" (string-titlecase "foo")))
+
+ (pass-if "all-upper"
+ (string=? "Foo" (string-titlecase "FOO")))
+
+ (pass-if "two-words"
+ (string=? "Hello, World!" (string-titlecase "hello, world!")))
+
+ (pass-if "titlecase-characters"
+ (string=? (list->string '(#\762))
+ (string-titlecase (list->string '(#\763))))))
+
+;;;
;;; string-append/shared
;;;