From f51f975e9622095057581fe0db8d8b64dde7e22a Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Fri, 4 Oct 2002 01:26:48 +0000 Subject: [PATCH] Added partial tests for STRING-CAPITALIZE. --- ansi-tests/gclload2.lsp | 1 + ansi-tests/string-capitalize.lsp | 33 ++++++++++++++++++++++++++++++++ 2 files changed, 34 insertions(+) create mode 100644 ansi-tests/string-capitalize.lsp diff --git a/ansi-tests/gclload2.lsp b/ansi-tests/gclload2.lsp index fd31448b..8033da28 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 00000000..a25d87d8 --- /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") + + -- GitLab