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
dc427410
Commit
dc427410
authored
Oct 02, 2002
by
pfdietz
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Fixed up some test problems, added comments, added simple-base-string.8
parent
fc06d64f
Changes
4
Hide whitespace changes
Inline
Side-by-side
Showing
4 changed files
with
11 additions
and
3 deletions
+11
-3
ansi-tests/char-schar.lsp
ansi-tests/char-schar.lsp
+3
-3
ansi-tests/map.lsp
ansi-tests/map.lsp
+2
-0
ansi-tests/reader-test.lsp
ansi-tests/reader-test.lsp
+2
-0
ansi-tests/string.lsp
ansi-tests/string.lsp
+4
-0
No files found.
ansi-tests/char-schar.lsp
View file @
dc427410
...
...
@@ -23,14 +23,14 @@
"Xbcd" "aXcd" "abXd" "abcX")
(deftest char.3
(let ((s (make-array 6 :element-type 'chara
ra
cter
(let ((s (make-array 6 :element-type 'character
:initial-contents '(#\a #\b #\c #\d #\e #\f))))
(setf (char s 3) #\X)
s)
"abcXef")
(deftest char.4
(let ((s (make-array 6 :element-type 'chara
ra
cter
(let ((s (make-array 6 :element-type 'character
:initial-contents '(#\a #\b #\c #\d #\e #\f)
:fill-pointer 4)))
(setf (char s 3) #\X)
...
...
@@ -56,7 +56,7 @@
"aaaXa")
(deftest char.8
(let ((s (make-array 6 :element-type 'chara
ra
cter
(let ((s (make-array 6 :element-type 'character
:initial-contents '(#\a #\b #\c #\d #\e #\f)
:fill-pointer 4)))
(setf (char s 5) #\X)
...
...
ansi-tests/map.lsp
View file @
dc427410
...
...
@@ -125,10 +125,12 @@
(map '(simple-vector character) #'identity '(#\a #\b #\c #\d #\e))
"abcde")
;;; Use a more elaborate form of the simple-array type specifier
(deftest map-string.31
(map '(simple-array character *) #'identity "abcde")
"abcde")
;;; Use a more elaborate form of the simple-array type specifier
(deftest map-string.32
(map '(simple-array character 5) #'identity "abcde")
"abcde")
...
...
ansi-tests/reader-test.lsp
View file @
dc427410
...
...
@@ -97,6 +97,7 @@
"ABCD"))))
t)
#|
(deftest read-symbol-8
(multiple-value-bind (s n)
(ignore-errors (read-from-string "::ABCD"))
...
...
@@ -107,6 +108,7 @@
(string-equal (symbol-name s)
"ABCD"))))
t)
|#
(defun read-symbol-9-body (natoms maxlen)
(let* ((chars (concatenate 'string
...
...
ansi-tests/string.lsp
View file @
dc427410
...
...
@@ -108,6 +108,10 @@
(subtypep 'simple-base-string 'simple-string)
t t)
(deftest simple-base-string.8
(subtypep 'simple-base-string 'simple-vector)
t t)
;;; Tests for simple-string-p
(deftest simple-string-p.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