diff options
Diffstat (limited to 'src/clojure/contrib/test_contrib/pprint/pretty.clj')
| -rw-r--r-- | src/clojure/contrib/test_contrib/pprint/pretty.clj | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/src/clojure/contrib/test_contrib/pprint/pretty.clj b/src/clojure/contrib/test_contrib/pprint/pretty.clj index 89df9b24..c0cbb615 100644 --- a/src/clojure/contrib/test_contrib/pprint/pretty.clj +++ b/src/clojure/contrib/test_contrib/pprint/pretty.clj @@ -47,6 +47,15 @@ (cl-format nil "~:<LIST ~@_~W ~@_~W ~@_~W~:>" '(first second third))) "(LIST first second third)") +(simple-tests mandatory-fill-test + (cl-format nil + "<pre>~%~<Usage: ~:I~@{*~a*~^~:@_~}~:>~%</pre>~%" + [ "hello" "gooodbye" ]) + "<pre> +Usage: *hello* + *gooodbye* +</pre> +") (simple-tests prefix-suffix-test (binding [*print-pprint-dispatch* *simple-dispatch* |