From 15cc9d3218f14e46d1097ecd65474583ef9e1918 Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Tue, 1 Oct 2002 00:30:34 +0000
Subject: [PATCH] Tests of the STRING type and function.

---
 ansi-tests/string.lsp | 43 +++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 43 insertions(+)
 create mode 100644 ansi-tests/string.lsp

diff --git a/ansi-tests/string.lsp b/ansi-tests/string.lsp
new file mode 100644
index 00000000..245d660e
--- /dev/null
+++ b/ansi-tests/string.lsp
@@ -0,0 +1,43 @@
+;-*- Mode:     Lisp -*-
+;;;; Author:   Paul Dietz
+;;;; Created:  Mon Sep 30 19:16:59 2002
+;;;; Contains: Tests for class and function STRING
+
+(in-package :cl-test)
+
+(deftest string.1
+  (subtypep 'string 'array)
+  t t)
+
+(deftest string.2
+  (subtypep 'string 'vector)
+  t t)
+
+(deftest string.3
+  (subtypep 'string 'sequence)
+  t t)
+
+(deftest string.4
+  (let ((s (string #\a)))
+    (values (stringp s) s))
+  t "a")
+
+(deftest string.5
+  (let ((s (string "")))
+    (values (stringp s) s))
+  t "")
+
+(deftest string.6
+  (let ((s (string '|FOO|)))
+    (values (stringp s) s))
+  t "FOO")
+
+(deftest string.7
+  (loop for x in *universe*
+	always (handler-case (stringp (string x))
+			     (type-error () :caught)))
+  t)
+
+
+		 
+
-- 
GitLab