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