diff options
Diffstat (limited to 'test-suite/tests/srfi-13.test')
-rw-r--r-- | test-suite/tests/srfi-13.test | 19 |
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 ;;; |