Skip to content
Snippets Groups Projects
Commit 94ea0f43 authored by pfdietz's avatar pfdietz
Browse files

Added tests for various unusual sequence type specifiers

parent 23ed51ad
No related branches found
No related tags found
No related merge requests found
...@@ -223,6 +223,29 @@ ...@@ -223,6 +223,29 @@
collect (list etype type vec))) collect (list etype type vec)))
nil) nil)
;;; Other type specifiers
(deftest make-sequence.31
(make-sequence '(simple-string) 10 :initial-element #\X)
"XXXXXXXXXX")
(deftest make-sequence.32
(make-sequence '(simple-string 10) 10 :initial-element #\X)
"XXXXXXXXXX")
(deftest make-sequence.33
(make-sequence '(string) 10 :initial-element #\X)
"XXXXXXXXXX")
(deftest make-sequence.34
(make-sequence '(vector) 10 :initial-element nil)
#(nil nil nil nil nil nil nil nil nil nil))
(deftest make-sequence.35
(make-sequence '(simple-vector) 10 :initial-element nil)
#(nil nil nil nil nil nil nil nil nil nil))
;;; Keyword tests ;;; Keyword tests
(deftest make-sequence.allow-other-keys.1 (deftest make-sequence.allow-other-keys.1
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment