From f35f00839f0966ec7e0064603a9c82aa042ecb5a Mon Sep 17 00:00:00 2001 From: William Harold Newman Date: Mon, 8 Jan 2001 03:50:57 +0000 Subject: [PATCH] (0.6.9.21, continued:) checked in overlooked file --- tests/string.pure.lisp | 25 +++++++++++++++++++++++++ 1 file changed, 25 insertions(+) create mode 100644 tests/string.pure.lisp diff --git a/tests/string.pure.lisp b/tests/string.pure.lisp new file mode 100644 index 0000000..c44ffb3 --- /dev/null +++ b/tests/string.pure.lisp @@ -0,0 +1,25 @@ +;;;; miscellaneous tests of STRING-related stuff + +;;;; This software is part of the SBCL system. See the README file for +;;;; more information. +;;;; +;;;; While most of SBCL is derived from the CMU CL system, the test +;;;; files (like this one) were written from scratch after the fork +;;;; from CMU CL. +;;;; +;;;; This software is in the public domain and is provided with +;;;; absolutely no warranty. See the COPYING and CREDITS files for +;;;; more information. + +(in-package "CL-USER") + +(assert (string= (string-upcase "This is a test.") "THIS IS A TEST.")) +(assert (string= (string-downcase "This is a test.") "this is a test.")) +(assert (string= (string-capitalize "This is a test.") "This Is A Test.")) +(assert (string= (string-upcase "Is this 900-Sex-hott, please?" :start 3) + "Is THIS 900-SEX-HOTT, PLEASE?")) +(assert (string= (string-downcase "Is this 900-Sex-hott, please?" + :start 10 :end 16) + "Is this 900-sex-hott, please?")) +(assert (string= (string-capitalize "Is this 900-Sex-hott, please?") + "Is This 900-Sex-Hott, Please?")) -- 1.7.10.4