1.0.3.39: larger heap size for x86-64/darwin

[sbcl.git] / tests / print.impure.lisp

diff --git a/tests/print.impure.lisp b/tests/print.impure.lisp
index 5aca94f..6d8072f 100644 (file)
--- a/tests/print.impure.lisp
+++ b/tests/print.impure.lisp
@@ -410,4 +410,10 @@
 (with-test (:name (:print-readable :character :iso-8859-1))
   (test-readable-character (code-char #xfffe) :iso-8859-1))
 
+(assert (string= (eval '(format nil "~:C" #\a)) "a"))
+(assert (string= (format nil (formatter "~:C") #\a) "a"))
+
+;;; This used to trigger an AVER instead.
+(assert (raises-error? (format t "~>") sb-format:format-error))
+
 ;;; success