From 94ea0f43a6c219ef1d9d203dc75b712a1159a086 Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Sat, 25 Sep 2004 20:32:52 +0000 Subject: [PATCH] Added tests for various unusual sequence type specifiers --- ansi-tests/make-sequence.lsp | 23 +++++++++++++++++++++++ 1 file changed, 23 insertions(+) diff --git a/ansi-tests/make-sequence.lsp b/ansi-tests/make-sequence.lsp index a79dd75a..b603f7cd 100644 --- a/ansi-tests/make-sequence.lsp +++ b/ansi-tests/make-sequence.lsp @@ -223,6 +223,29 @@ collect (list etype type vec))) 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 (deftest make-sequence.allow-other-keys.1 -- GitLab