Commit 1ec8d0a6 authored by pfdietz's avatar pfdietz

More fold tests

parent 3ccb26a9
......@@ -85,6 +85,8 @@
(equalt s "")))
t t t)
(def-fold-test make-string.fold.1 (make-string 5 :initial-element #\a))
;;; Keyword tests
;
(deftest make-string.allow-other-keys.1
......
......@@ -138,6 +138,8 @@
i a b c))
"aBcdef" 3 1 2 3)
(def-fold-test string-capitalize.fold.1 (string-capitalize "ABCDE"))
;;; Error cases
(deftest string-capitalize.error.1
......
......@@ -134,6 +134,8 @@
i a b c))
"AbcdEF" 3 1 2 3)
(def-fold-test string-downcase.fold.1 (string-downcase "ABCDE"))
;;; Error cases
(deftest string-downcase.error.1
......
......@@ -214,6 +214,8 @@
i x y))
"abc d e f " 2 1 2)
(def-fold-test string-left-trim.fold.1 (string-left-trim " " " abcd"))
;;; Error cases
(deftest string-left-trim.error.1
......
......@@ -214,6 +214,8 @@
i x y))
"abc d e f" 2 1 2)
(def-fold-test string-trim.fold.1 (string-trim " " " abcd "))
;;; Error cases
(deftest string-trim.error.1
......
......@@ -133,6 +133,10 @@
:start (progn (setf c (incf i)) 1))
i a b c))
"aBCDef" 3 1 2 3)
;;; Const fold tests
(def-fold-test string-upcase.fold.1 (string-upcase "abcde"))
;;; Error tests
......
......@@ -143,6 +143,8 @@
(values (string (progn (incf i) "")) i))
"" 1)
(def-fold-test string.fold.1 (string #\A))
;;; Error tests
(deftest string.error.1
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment