Commit b860b30b authored by pfdietz's avatar pfdietz

Begin moving some typep tests to their own file; add more error tests for typep

parent e0a297aa
......@@ -18,4 +18,5 @@
(load "deftype.lsp")
(load "standard-generic-function.lsp")
(load "type-of.lsp")
(load "typep.lsp")
(load "class-precedence-lists.lsp")
;-*- Mode: Lisp -*-
;;;; Author: Paul Dietz
;;;; Created: Mon May 23 07:13:32 2005
;;;; Contains: Tests of TYPEP
(in-package :cl-test)
(deftest typep.error.1
(signals-error (typep) program-error)
t)
(deftest typep.error.2
(signals-error (typep nil) program-error)
t)
(deftest typep.error.3
(signals-error (typep nil t nil nil) program-error)
t)
(deftest typep.error.4
(signals-error-always (typep nil 'values) error)
t t)
(deftest typep.error.5
(signals-error-always (typep nil '(values)) error)
t t)
(deftest typep.error.6
(signals-error-always (typep nil '(values t t t t)) error)
t t)
(deftest typep.error.7
(signals-error-always (typep nil '(function () t)) error)
t t)
......@@ -252,18 +252,6 @@
;;; Error checking of type-related functions
(deftest typep.error.1
(signals-error (typep) program-error)
t)
(deftest typep.error.2
(signals-error (typep nil) program-error)
t)
(deftest typep.error.3
(signals-error (typep nil t nil nil) program-error)
t)
(deftest type-error-datum.error.1
(signals-error (type-error-datum) 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