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