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
8ea11d00
Commit
8ea11d00
authored
Jan 22, 2003
by
pfdietz
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
More changes to array tests.
parent
549208d5
Changes
5
Show whitespace changes
Inline
Side-by-side
Showing
5 changed files
with
60 additions
and
33 deletions
+60
-33
ansi-tests/adjustable-array-p.lsp
ansi-tests/adjustable-array-p.lsp
+7
-4
ansi-tests/array-dimensions.lsp
ansi-tests/array-dimensions.lsp
+7
-5
ansi-tests/array-displacement.lsp
ansi-tests/array-displacement.lsp
+7
-5
ansi-tests/array-total-size.lsp
ansi-tests/array-total-size.lsp
+7
-15
ansi-tests/fill-pointer.lsp
ansi-tests/fill-pointer.lsp
+32
-4
No files found.
ansi-tests/adjustable-array-p.lsp
View file @
8ea11d00
...
...
@@ -40,8 +40,11 @@
type-error)
(deftest adjustable-array-p.error.4
(let (why)
(loop for e in *mini-universe*
unless (or (typep e 'array)
(eq 'type-error (classify-error** `(adjustable-array-p ',e))))
collect e)
(eq 'type-error
(setq why (classify-error**
`(adjustable-array-p ',e)))))
collect (list e why)))
nil)
ansi-tests/array-dimensions.lsp
View file @
8ea11d00
...
...
@@ -50,9 +50,11 @@
program-error)
(deftest array-dimensions.error.3
(let (why)
(loop for e in *mini-universe*
unless (or (typep e 'array)
(eq 'type-error
(classify-error** `(array-dimensions ',e))))
collect e)
(setq why (classify-error**
`(array-dimensions ',e)))))
collect (list e why)))
nil)
ansi-tests/array-displacement.lsp
View file @
8ea11d00
...
...
@@ -105,9 +105,11 @@
program-error)
(deftest array-displacement.error.3
(let (why)
(loop for e in *mini-universe*
unless (or (typep e 'array)
(eq 'type-error
(classify-error** `(array-displacement ',e))))
collect e)
(setq why (classify-error**
`(array-displacement ',e)))))
collect (list e why)))
nil)
ansi-tests/array-total-size.lsp
View file @
8ea11d00
...
...
@@ -38,23 +38,15 @@
program-error)
(deftest array-total-size.error.3
(let (why)
(loop for e in *mini-universe*
when (and (not (typep e 'array))
(not (eql (classify-error** `(array-total-size ',e))
(not (eql (setq why
(classify-error** `(array-total-size ',e)))
'type-error)))
collect
e
)
collect
(list e why))
)
nil)
(deftest array-total-size.error.4
(classify-error (array-total-size 0))
type-error)
ansi-tests/fill-pointer.lsp
View file @
8ea11d00
...
...
@@ -24,7 +24,35 @@
a))
5 6 #(1 2 3 4 5 6))
;;; Error tests
(deftest fill-pointer.error.1
(classify-error (fill-pointer))
program-error)
(deftest fill-pointer.error.2
(classify-error (fill-pointer (make-array '(10) :fill-pointer 4)
nil))
program-error)
(deftest fill-pointer.error.3
(classify-error (fill-pointer (make-array '(10) :fill-pointer nil)))
type-error)
(deftest fill-pointer.error.4
(classify-error (fill-pointer #0aNIL))
type-error)
(deftest fill-pointer.error.5
(classify-error (fill-pointer #2a((a b c)(d e f))))
type-error)
(deftest fill-pointer.error.6
(let (why)
(loop for e in *mini-universe*
when (and (or (not (typep e 'vector))
(not (array-has-fill-pointer-p e)))
(not (eql (setq why (classify-error** `(fill-pointer ',e)))
'type-error)))
collect (list e why)))
nil)
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