diff --git a/ansi-tests/string.lsp b/ansi-tests/string.lsp new file mode 100644 index 0000000000000000000000000000000000000000..245d660e73e31462ceb0ef8a5040b5ed75f90b87 --- /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) + + + +