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