From c97b1bd4f1bfb26c47fd9c05f9f266405ae9075d Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Sat, 25 Sep 2004 21:47:32 +0000
Subject: [PATCH] Tests with various other string type specifiers

---
 ansi-tests/map.lsp | 46 ++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 46 insertions(+)

diff --git a/ansi-tests/map.lsp b/ansi-tests/map.lsp
index b553334f..c54388d1 100644
--- a/ansi-tests/map.lsp
+++ b/ansi-tests/map.lsp
@@ -163,6 +163,52 @@
   (map 'cons #'identity '(a b c))
   (a b c))
 
+(deftest map.37
+  (map 'simple-string #'identity '(#\a #\b #\c))
+  "abc")
+
+(deftest map.38
+  (map '(simple-string) #'identity '(#\a #\b #\c))
+  "abc")
+
+(deftest map.39
+  (map '(simple-string *) #'identity '(#\a #\b #\c))
+  "abc")
+
+(deftest map.40
+  (map '(simple-string 3) #'identity '(#\a #\b #\c))
+  "abc")
+
+(deftest map.41
+  (map '(base-string) #'identity '(#\a #\b #\c))
+  "abc")
+
+(deftest map.42
+  (map '(base-string *) #'identity '(#\a #\b #\c))
+  "abc")
+
+(deftest map.43
+  (map '(base-string 3) #'identity '(#\a #\b #\c))
+  "abc")
+
+(deftest map.44
+  (map 'simple-base-string #'identity '(#\a #\b #\c))
+  "abc")
+
+(deftest map.45
+  (map '(simple-base-string) #'identity '(#\a #\b #\c))
+  "abc")
+
+(deftest map.46
+  (map '(simple-base-string *) #'identity '(#\a #\b #\c))
+  "abc")
+
+(deftest map.47
+  (map '(simple-base-string 3) #'identity '(#\a #\b #\c))
+  "abc")
+
+;;; Error tests
+
 (deftest map.error.1
   (handler-case (progn (proclaim '(optimize (safety 3)))
 		       (eval '(map 'symbol #'identity '(a b c))))
-- 
GitLab