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