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