diff --git a/ansi-tests/make-string.lsp b/ansi-tests/make-string.lsp index d692100ebebe60eb5337aa6818e1a208b9a857bf..d47f487c7e199bb9c00f9d178927db54231f0c77 100644 --- a/ansi-tests/make-string.lsp +++ b/ansi-tests/make-string.lsp @@ -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 diff --git a/ansi-tests/string-capitalize.lsp b/ansi-tests/string-capitalize.lsp index c7f515ff9b86aba382567b4069b9f3ded1345ae8..639614c6b6f7da4c25221b5ec45ea80be13cadc4 100644 --- a/ansi-tests/string-capitalize.lsp +++ b/ansi-tests/string-capitalize.lsp @@ -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 diff --git a/ansi-tests/string-downcase.lsp b/ansi-tests/string-downcase.lsp index fcfac4c0b5d968066e8f28e10a34b09656700fe0..193471caed144a8897dcde3cc60c8d2963dda39f 100644 --- a/ansi-tests/string-downcase.lsp +++ b/ansi-tests/string-downcase.lsp @@ -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 diff --git a/ansi-tests/string-left-trim.lsp b/ansi-tests/string-left-trim.lsp index 4ebbdfcb9d200de9846715321f9bc9a7355bf733..a036879392db74ea540b147c8ffcdda393df0afb 100644 --- a/ansi-tests/string-left-trim.lsp +++ b/ansi-tests/string-left-trim.lsp @@ -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 diff --git a/ansi-tests/string-trim.lsp b/ansi-tests/string-trim.lsp index d855bd49a2acce05096951c67c936f14f1983ddd..3283f5f5264804d133a528ca92262c874ac54716 100644 --- a/ansi-tests/string-trim.lsp +++ b/ansi-tests/string-trim.lsp @@ -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 diff --git a/ansi-tests/string-upcase.lsp b/ansi-tests/string-upcase.lsp index 38d91ca6925f0318edbcab9651d8085306a3d55c..1ecbd2e5c1eadaa1fdee64cd4c65242605e517aa 100644 --- a/ansi-tests/string-upcase.lsp +++ b/ansi-tests/string-upcase.lsp @@ -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 diff --git a/ansi-tests/string.lsp b/ansi-tests/string.lsp index a2ade16a86e160f51354329cdfefc14062c6c6ad..b97ca2fc320ec9910cb0e3dd0015afebb446e5dc 100644 --- a/ansi-tests/string.lsp +++ b/ansi-tests/string.lsp @@ -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