Commit 56c5d882 authored by pfdietz's avatar pfdietz

Add tests for READTABLEP

parent 30c8387f
......@@ -13,4 +13,5 @@
(load "read-delimited-list.lsp")
(load "read-from-string.lsp")
(load "readtable-case.lsp")
(load "readtablep.lsp")
;-*- Mode: Lisp -*-
;;;; Author: Paul Dietz
;;;; Created: Sat Jan 1 19:19:42 2005
;;;; Contains: Tests of READTABLEP
(in-package :cl-test)
(deftest readtablep.1
(notnot-mv (readtablep *readtable*))
t)
(deftest readtablep.2
(loop for x in *universe*
unless (if (readtablep x) (typep x 'readtable)
(not (typep x 'readtable)))
collect x)
nil)
(deftest readtablep.3
(notnot-mv (readtablep (copy-readtable)))
t)
;;; Error tests
(deftest readtablep.error.1
(signals-error (readtablep) program-error)
t)
(deftest readtablep.error.2
(signals-error (readtablep *readtable* nil) program-error)
t)
(deftest readtablep.error.3
(signals-error (readtablep *readtable* nil t t t t) program-error)
t)
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment