Commit 1ec8d0a6 authored by pfdietz's avatar pfdietz

More fold tests

parent 3ccb26a9
...@@ -85,6 +85,8 @@ ...@@ -85,6 +85,8 @@
(equalt s ""))) (equalt s "")))
t t t) t t t)
(def-fold-test make-string.fold.1 (make-string 5 :initial-element #\a))
;;; Keyword tests ;;; Keyword tests
; ;
(deftest make-string.allow-other-keys.1 (deftest make-string.allow-other-keys.1
......
...@@ -138,6 +138,8 @@ ...@@ -138,6 +138,8 @@
i a b c)) i a b c))
"aBcdef" 3 1 2 3) "aBcdef" 3 1 2 3)
(def-fold-test string-capitalize.fold.1 (string-capitalize "ABCDE"))
;;; Error cases ;;; Error cases
(deftest string-capitalize.error.1 (deftest string-capitalize.error.1
......
...@@ -134,6 +134,8 @@ ...@@ -134,6 +134,8 @@
i a b c)) i a b c))
"AbcdEF" 3 1 2 3) "AbcdEF" 3 1 2 3)
(def-fold-test string-downcase.fold.1 (string-downcase "ABCDE"))
;;; Error cases ;;; Error cases
(deftest string-downcase.error.1 (deftest string-downcase.error.1
......
...@@ -214,6 +214,8 @@ ...@@ -214,6 +214,8 @@
i x y)) i x y))
"abc d e f " 2 1 2) "abc d e f " 2 1 2)
(def-fold-test string-left-trim.fold.1 (string-left-trim " " " abcd"))
;;; Error cases ;;; Error cases
(deftest string-left-trim.error.1 (deftest string-left-trim.error.1
......
...@@ -214,6 +214,8 @@ ...@@ -214,6 +214,8 @@
i x y)) i x y))
"abc d e f" 2 1 2) "abc d e f" 2 1 2)
(def-fold-test string-trim.fold.1 (string-trim " " " abcd "))
;;; Error cases ;;; Error cases
(deftest string-trim.error.1 (deftest string-trim.error.1
......
...@@ -133,6 +133,10 @@ ...@@ -133,6 +133,10 @@
:start (progn (setf c (incf i)) 1)) :start (progn (setf c (incf i)) 1))
i a b c)) i a b c))
"aBCDef" 3 1 2 3) "aBCDef" 3 1 2 3)
;;; Const fold tests
(def-fold-test string-upcase.fold.1 (string-upcase "abcde"))
;;; Error tests ;;; Error tests
......
...@@ -143,6 +143,8 @@ ...@@ -143,6 +143,8 @@
(values (string (progn (incf i) "")) i)) (values (string (progn (incf i) "")) i))
"" 1) "" 1)
(def-fold-test string.fold.1 (string #\A))
;;; Error tests ;;; Error tests
(deftest string.error.1 (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