From 990ebe8481d59dcafc8ab3d93b6c63b0390172fe Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Sun, 27 Jun 2004 03:06:43 +0000
Subject: [PATCH] Added usual error tests for pprint-fill, pprint-linear

---
 ansi-tests/pprint-fill.lsp   | 19 +++++++++++++++++++
 ansi-tests/pprint-linear.lsp | 16 ++++++++++++++++
 2 files changed, 35 insertions(+)

diff --git a/ansi-tests/pprint-fill.lsp b/ansi-tests/pprint-fill.lsp
index a33bb827..dc5d508b 100644
--- a/ansi-tests/pprint-fill.lsp
+++ b/ansi-tests/pprint-fill.lsp
@@ -133,3 +133,22 @@
 ;;; 
 (def-pprint-fill-test pprint-fill.14 ((let ((x (list 'CL-USER::|A|))) (list x x)))
   "(#1=(A) #1#)" :circle t)
+
+;;; Error tests
+
+(deftest pprint-fill.error.1
+  (signals-error (pprint-fill) program-error)
+  t)
+
+(deftest pprint-fill.error.2
+  (signals-error (pprint-fill *standard-output*) program-error)
+  t)
+
+(deftest pprint-fill.error.3
+  (signals-error (pprint-fill *standard-output* nil t t t) program-error)
+  t)
+
+
+
+
+
diff --git a/ansi-tests/pprint-linear.lsp b/ansi-tests/pprint-linear.lsp
index f29f6956..7736b1be 100644
--- a/ansi-tests/pprint-linear.lsp
+++ b/ansi-tests/pprint-linear.lsp
@@ -127,3 +127,19 @@
 ;;; 
 (def-pprint-linear-test pprint-linear.14 ((let ((x (list 'CL-USER::|A|))) (list x x)))
   "(#1=(A) #1#)" :circle t)
+
+;;; Error tests
+
+(deftest pprint-linear.error.1
+  (signals-error (pprint-linear) program-error)
+  t)
+
+(deftest pprint-linear.error.2
+  (signals-error (pprint-linear *standard-output*) program-error)
+  t)
+
+(deftest pprint-linear.error.3
+  (signals-error (pprint-linear *standard-output* nil t t t) program-error)
+  t)
+
+
-- 
GitLab