From 8a210df6312b2cbedda28fc3d0cea7f315f6bc91 Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Sun, 12 Jun 2005 12:07:53 +0000 Subject: [PATCH] Add tests for type-error-datum, type-error-expected-type --- ansi-tests/types-and-class.lsp | 13 +++++++++++++ 1 file changed, 13 insertions(+) diff --git a/ansi-tests/types-and-class.lsp b/ansi-tests/types-and-class.lsp index 1af30396..42220357 100644 --- a/ansi-tests/types-and-class.lsp +++ b/ansi-tests/types-and-class.lsp @@ -233,6 +233,19 @@ (notnot-mv (macro-function 'deftype)) t) +;;; TYPE-ERROR accessors + +(deftest type-error-datum.1 + (let ((c (make-condition 'type-error :datum 'a :expected-type 'integer))) + (type-error-datum c)) + a) + +(deftest type-error-expected-type.1 + (let ((c (make-condition 'type-error + :datum 'a :expected-type 'integer))) + (type-error-expected-type c)) + integer) + ;;; Error checking of type-related functions (deftest type-error-datum.error.1 -- GitLab