From d4092d9a0003c8411b5c31016ab54d5e50f7414a Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Tue, 24 Aug 2004 11:09:01 +0000 Subject: [PATCH] Added error cases --- ansi-tests/format-justify.lsp | 47 +++++++++++++++++++++++++++++++++++ 1 file changed, 47 insertions(+) diff --git a/ansi-tests/format-justify.lsp b/ansi-tests/format-justify.lsp index 36ea4c7a..a63416ca 100644 --- a/ansi-tests/format-justify.lsp +++ b/ansi-tests/format-justify.lsp @@ -226,3 +226,50 @@ X X AAA, X BBB, X CCC") + +;;; Error cases + +;;; See 22.3.5.2 + +;;; Interaction with ~W + +(deftest format.justify.error.w.1 + (signals-error-always (format nil "~< ~W ~>" nil) error) + t t) + +(deftest format.justify.error.w.2 + (signals-error-always (format nil "~<X~:;Y~>~W" nil) error) + t t) + +(deftest format.justify.error.w.3 + (signals-error-always (format nil "~w~<X~:;Y~>" nil) error) + t t) + +;;; Interaction with ~_ + +(deftest format.justify.error._.1 + (signals-error-always (format nil "~< ~_ ~>") error) + t t) + +(deftest format.justify.error._.2 + (signals-error-always (format nil "~<X~:;Y~>~_") error) + t t) + +(deftest format.justify.error._.3 + (signals-error-always (format nil "~_~<X~:;Y~>") error) + t t) + +;;; Interaction with ~I + +(deftest format.justify.error.i.1 + (signals-error-always (format nil "~< ~i ~>") error) + t t) + +(deftest format.justify.error.i.2 + (signals-error-always (format nil "~<X~:;Y~>~I") error) + t t) + +(deftest format.justify.error.i.3 + (signals-error-always (format nil "~i~<X~:;Y~>") error) + t t) + -- GitLab