From e7d8605d01dfd1a6b4ea2408d45f71c35af55fca Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Mon, 12 Jul 2004 11:58:22 +0000
Subject: [PATCH] Add error tests for set-pprint-dispatch

---
 ansi-tests/pprint-dispatch.lsp | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)

diff --git a/ansi-tests/pprint-dispatch.lsp b/ansi-tests/pprint-dispatch.lsp
index d199938e..0e276ce0 100644
--- a/ansi-tests/pprint-dispatch.lsp
+++ b/ansi-tests/pprint-dispatch.lsp
@@ -246,5 +246,27 @@
 		 program-error)
   t)
 
+(deftest set-pprint-dispatch.error.1
+  (signals-error (let ((*print-pprint-dispatch* (copy-pprint-dispatch nil)))
+		   (set-pprint-dispatch))
+		 program-error)
+  t)
+
+(deftest set-pprint-dispatch.error.2
+  (signals-error (let ((*print-pprint-dispatch* (copy-pprint-dispatch nil)))
+		   (set-pprint-dispatch t))
+		 program-error)
+  t)
+
+(deftest set-pprint-dispatch.error.3
+  (signals-error (let ((table (copy-pprint-dispatch nil)))
+		   (set-pprint-dispatch t 'identity 0 table nil))
+		 program-error)
+  t)
+
+
+
+
+
 
 
-- 
GitLab