Skip to content
Snippets Groups Projects
Commit f51f975e authored by pfdietz's avatar pfdietz
Browse files

Added partial tests for STRING-CAPITALIZE.

parent dc427410
No related branches found
No related tags found
No related merge requests found
......@@ -117,3 +117,4 @@
(load "string.lsp")
(load "string-upcase.lsp")
(load "string-downcase.lsp")
(load "string-capitalize.lsp")
;-*- 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")
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment