Skip to content
Snippets Groups Projects
Commit b860b30b authored by pfdietz's avatar pfdietz
Browse files

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

parent e0a297aa
No related branches found
No related tags found
No related merge requests found
...@@ -18,4 +18,5 @@ ...@@ -18,4 +18,5 @@
(load "deftype.lsp") (load "deftype.lsp")
(load "standard-generic-function.lsp") (load "standard-generic-function.lsp")
(load "type-of.lsp") (load "type-of.lsp")
(load "typep.lsp")
(load "class-precedence-lists.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 @@ ...@@ -252,18 +252,6 @@
;;; Error checking of type-related functions ;;; 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 (deftest type-error-datum.error.1
(signals-error (type-error-datum) program-error) (signals-error (type-error-datum) program-error)
t) t)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment