blob: 01e7c87e0e859cc21ebf68b7af091b5103919758 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
|
;;; pretty.clj -- part of the pretty printer for Clojure
;; by Tom Faulhaber
;; April 3, 2009
; Copyright (c) Tom Faulhaber, Feb 2009. All rights reserved.
; The use and distribution terms for this software are covered by the
; Eclipse Public License 1.0 (http://opensource.org/licenses/eclipse-1.0.php)
; which can be found in the file epl-v10.html at the root of this distribution.
; By using this software in any fashion, you are agreeing to be bound by
; the terms of this license.
; You must not remove this notice, or any other, from this software.
(ns clojure.contrib.test-contrib.pprint.pretty
(:use [clojure.test :only (deftest are run-tests)]
clojure.contrib.test-contrib.pprint.helper
clojure.contrib.pprint))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;; Unit tests for the pretty printer
;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(simple-tests xp-fill-test
(binding [*print-pprint-dispatch* *simple-dispatch*
*print-right-margin* 38
*print-miser-width* nil]
(cl-format nil "(let ~:<~@{~:<~w ~_~w~:>~^ ~:_~}~:>~_ ...)~%"
'((x 4) (*print-length* nil) (z 2) (list nil))))
"(let ((x 4) (*print-length* nil)\n (z 2) (list nil))\n ...)\n"
(binding [*print-pprint-dispatch* *simple-dispatch*
*print-right-margin* 22]
(cl-format nil "(let ~:<~@{~:<~w ~_~w~:>~^ ~:_~}~:>~_ ...)~%"
'((x 4) (*print-length* nil) (z 2) (list nil))))
"(let ((x 4)\n (*print-length*\n nil)\n (z 2)\n (list nil))\n ...)\n")
(simple-tests xp-miser-test
(binding [*print-pprint-dispatch* *simple-dispatch*
*print-right-margin* 10, *print-miser-width* 9]
(cl-format nil "~:<LIST ~@_~W ~@_~W ~@_~W~:>" '(first second third)))
"(LIST\n first\n second\n third)"
(binding [*print-pprint-dispatch* *simple-dispatch*
*print-right-margin* 10, *print-miser-width* 8]
(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*
*print-right-margin* 10, *print-miser-width* 10]
(cl-format nil "~<{~;LIST ~@_~W ~@_~W ~@_~W~;}~:>" '(first second third)))
"{LIST\n first\n second\n third}")
(simple-tests pprint-test
(binding [*print-pprint-dispatch* *simple-dispatch*]
(write '(defn foo [x y]
(let [result (* x y)]
(if (> result 400)
(cl-format true "That number is too big")
(cl-format true "The result of ~d x ~d is ~d" x y result))))
:stream nil))
"(defn
foo
[x y]
(let
[result (* x y)]
(if
(> result 400)
(cl-format true \"That number is too big\")
(cl-format true \"The result of ~d x ~d is ~d\" x y result))))"
(with-pprint-dispatch *code-dispatch*
(write '(defn foo [x y]
(let [result (* x y)]
(if (> result 400)
(cl-format true "That number is too big")
(cl-format true "The result of ~d x ~d is ~d" x y result))))
:stream nil))
"(defn foo [x y]
(let [result (* x y)]
(if (> result 400)
(cl-format true \"That number is too big\")
(cl-format true \"The result of ~d x ~d is ~d\" x y result))))"
(binding [*print-pprint-dispatch* *simple-dispatch*
*print-right-margin* 15]
(write '(fn (cons (car x) (cdr y))) :stream nil))
"(fn\n (cons\n (car x)\n (cdr y)))"
(with-pprint-dispatch *code-dispatch*
(binding [*print-right-margin* 52]
(write
'(add-to-buffer this (make-buffer-blob (str (char c)) nil))
:stream nil)))
"(add-to-buffer\n this\n (make-buffer-blob (str (char c)) nil))"
)
(simple-tests pprint-reader-macro-test
(with-pprint-dispatch *code-dispatch*
(write (read-string "(map #(first %) [[1 2 3] [4 5 6] [7]])")
:stream nil))
"(map #(first %) [[1 2 3] [4 5 6] [7]])"
(with-pprint-dispatch *code-dispatch*
(write (read-string "@@(ref (ref 1))")
:stream nil))
"@@(ref (ref 1))"
(with-pprint-dispatch *code-dispatch*
(write (read-string "'foo")
:stream nil))
"'foo"
)
|
