Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
ansi-test
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
0
Issues
0
List
Boards
Labels
Service Desk
Milestones
Merge Requests
0
Merge Requests
0
Operations
Operations
Incidents
Analytics
Analytics
Repository
Value Stream
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Commits
Issue Boards
Open sidebar
Karsten Poeck
ansi-test
Commits
1ec8d0a6
Commit
1ec8d0a6
authored
Jun 13, 2005
by
pfdietz
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
More fold tests
parent
3ccb26a9
Changes
7
Hide whitespace changes
Inline
Side-by-side
Showing
7 changed files
with
16 additions
and
0 deletions
+16
-0
ansi-tests/make-string.lsp
ansi-tests/make-string.lsp
+2
-0
ansi-tests/string-capitalize.lsp
ansi-tests/string-capitalize.lsp
+2
-0
ansi-tests/string-downcase.lsp
ansi-tests/string-downcase.lsp
+2
-0
ansi-tests/string-left-trim.lsp
ansi-tests/string-left-trim.lsp
+2
-0
ansi-tests/string-trim.lsp
ansi-tests/string-trim.lsp
+2
-0
ansi-tests/string-upcase.lsp
ansi-tests/string-upcase.lsp
+4
-0
ansi-tests/string.lsp
ansi-tests/string.lsp
+2
-0
No files found.
ansi-tests/make-string.lsp
View file @
1ec8d0a6
...
...
@@ -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
...
...
ansi-tests/string-capitalize.lsp
View file @
1ec8d0a6
...
...
@@ -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
...
...
ansi-tests/string-downcase.lsp
View file @
1ec8d0a6
...
...
@@ -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
...
...
ansi-tests/string-left-trim.lsp
View file @
1ec8d0a6
...
...
@@ -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
...
...
ansi-tests/string-trim.lsp
View file @
1ec8d0a6
...
...
@@ -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
...
...
ansi-tests/string-upcase.lsp
View file @
1ec8d0a6
...
...
@@ -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
...
...
ansi-tests/string.lsp
View file @
1ec8d0a6
...
...
@@ -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
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment