1 ;;;; miscellaneous tests of STRING-related stuff
3 ;;;; This software is part of the SBCL system. See the README file for
6 ;;;; While most of SBCL is derived from the CMU CL system, the test
7 ;;;; files (like this one) were written from scratch after the fork
10 ;;;; This software is in the public domain and is provided with
11 ;;;; absolutely no warranty. See the COPYING and CREDITS files for
12 ;;;; more information.
14 (in-package "CL-USER")
16 (assert (string= (string-upcase "This is a test.") "THIS IS A TEST."))
17 (assert (string= (string-downcase "This is a test.") "this is a test."))
18 (assert (string= (string-capitalize "This is a test.") "This Is A Test."))
19 (assert (string= (string-upcase "Is this 900-Sex-hott, please?" :start 3)
20 "Is THIS 900-SEX-HOTT, PLEASE?"))
21 (assert (string= (string-downcase "Is this 900-Sex-hott, please?"
23 "Is this 900-sex-hott, please?"))
24 (assert (string= (string-capitalize "Is this 900-Sex-hott, please?")
25 "Is This 900-Sex-Hott, Please?"))