Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Karsten Poeck
ansi-test
Commits
b9299a4e
Commit
b9299a4e
authored
Jan 07, 2003
by
pfdietz
Browse files
Added more make-array tests. Note that reading make-array.16 was breaking CMU CL.
parent
208e78b2
Changes
1
Hide whitespace changes
Inline
Side-by-side
ansi-tests/make-array.lsp
View file @
b9299a4e
...
@@ -192,24 +192,62 @@
...
@@ -192,24 +192,62 @@
(deftest make-array.10
(deftest make-array.10
(make-array-with-checks nil :initial-element 1)
(make-array-with-checks nil :initial-element 1)
#0
A
1)
#0
a
1)
(deftest make-array.11
(deftest make-array.11
(make-array-with-checks nil :initial-contents 2)
(make-array-with-checks nil :initial-contents 2)
#0
A
2)
#0
a
2)
(deftest make-array.12
(deftest make-array.12
(make-array-with-checks nil :element-type 'bit :initial-contents 1)
(make-array-with-checks nil :element-type 'bit :initial-contents 1)
#0
A
1)
#0
a
1)
(deftest make-array.13
(deftest make-array.13
(make-array-with-checks nil :element-type t :initial-contents 'a)
(make-array-with-checks nil :element-type t :initial-contents 'a)
#0
A
a)
#0
a
a)
;;; Higher dimensional arrays
(deftest make-array.14
(let ((a (make-array-with-checks '(2 3))))
(and (symbolp a) a))
nil)
(deftest make-array.15
(make-array-with-checks '(2 3) :initial-element 'x)
#2a((x x x) (x x x)))
(deftest make-array.16
(make-array-with-checks '(0 0))
#2a())
(deftest make-array.17
(make-array-with-checks '(2 3) :initial-contents '((a b c) (d e f)))
#2a((a b c) (d e f)))
(deftest make-array.18
(make-array-with-checks '(2 3) :initial-contents '(#(a b c) #(d e f)))
#2a((a b c) (d e f)))
;;; Adjustable arrays
(deftest make-array.adjustable.1
(let ((a (make-array-with-checks '(10) :adjustable t)))
(and (symbolp a) a))
nil)
(deftest make-array.adjustable.2
(make-array-with-checks '(4) :adjustable t
:initial-element 6)
#(6 6 6 6))
(deftest make-array.adjustable.3
(make-array-with-checks nil :adjustable t :initial-element 7)
#0a7)
(deftest make-array.adjustable.4
(make-array-with-checks '(2 3) :adjustable t :initial-element 7)
#2a((7 7 7) (7 7 7)))
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