diff --git a/ansi-tests/gclload2.lsp b/ansi-tests/gclload2.lsp index fd31448b054439d36a2b93fb47a0873d841de45d..8033da280ecfed59d31d2ceed878ee3c3c1155c8 100644 --- a/ansi-tests/gclload2.lsp +++ b/ansi-tests/gclload2.lsp @@ -117,3 +117,4 @@ (load "string.lsp") (load "string-upcase.lsp") (load "string-downcase.lsp") +(load "string-capitalize.lsp") diff --git a/ansi-tests/string-capitalize.lsp b/ansi-tests/string-capitalize.lsp new file mode 100644 index 0000000000000000000000000000000000000000..a25d87d8b320aace7ec30b37a1a1d877b8aad1fd --- /dev/null +++ b/ansi-tests/string-capitalize.lsp @@ -0,0 +1,33 @@ +;-*- Mode: Lisp -*- +;;;; Author: Paul Dietz +;;;; Created: Thu Oct 3 20:08:26 2002 +;;;; Contains: Tests for STRING-CAPITALIZE + +(in-package :cl-test) + +(deftest string-capitalize.1 + (let ((s "abCd")) + (values (string-capitalize s) s)) + "Abcd" + "abCd") + + +(deftest string-capitalize.2 + (let ((s "0adA2Cdd3wXy")) + (values (string-capitalize s) s)) + "0adA2Cdd3wXy" + "0ada2cdd3wxy") + +(deftest string-capitalize.3 + (let ((s "1a")) + (values (string-capitalize s) s)) + "1a" + "1a") + +(deftest string-capitalize.4 + (let ((s "a1a")) + (values (string-capitalize s) s)) + "A1a" + "a1a") + +