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