base-string.lsp 662 Bytes
Newer Older
pfdietz's avatar
pfdietz committed
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
;-*- Mode:     Lisp -*-
;;;; Author:   Paul Dietz
;;;; Created:  Sun Aug 29 17:26:57 2004
;;;; Contains: Tests associated with BASE-STRING

(in-package :cl-test)

(deftest base-string.1
  (subtypep* 'base-string 'string)
  t t)

(deftest base-string.2
  (subtypep* 'base-string 'vector)
  t t)

(deftest base-string.3
  (subtypep* 'base-string 'array)
  t t)

(deftest base-string.4
  (subtypep* 'base-string 'sequence)
  t t)

(deftest base-string.5
pfdietz's avatar
pfdietz committed
25
  :notes (:allow-nil-arrays :nil-vectors-are-strings)
pfdietz's avatar
pfdietz committed
26 27 28 29 30 31 32
  (subtypep* '(array nil (*)) 'base-string)
  nil t)

(deftest base-string.6
  :notes (:nil-vectors-are-strings)
  (subtypep* 'string 'base-string)
  nil t)