16 |
|
|
17 |
(deftest write.2 |
(deftest write.2 |
18 |
(with-standard-io-syntax |
(with-standard-io-syntax |
19 |
(with-output-to-string |
(let ((*print-readably* nil)) |
20 |
(*standard-output*) |
(with-output-to-string |
21 |
(write 2 :stream nil))) |
(*standard-output*) |
22 |
|
(write 2 :stream nil)))) |
23 |
"2") |
"2") |
24 |
|
|
25 |
(deftest write.3 |
(deftest write.3 |
26 |
(with-standard-io-syntax |
(with-standard-io-syntax |
27 |
(with-output-to-string |
(let ((*print-readably* nil)) |
28 |
(os) |
(with-output-to-string |
29 |
(with-input-from-string |
(os) |
30 |
(is "") |
(with-input-from-string |
31 |
(with-open-stream (*terminal-io* (make-two-way-stream is os)) |
(is "") |
32 |
(write 3 :stream t))))) |
(with-open-stream (*terminal-io* (make-two-way-stream is os)) |
33 |
|
(write 3 :stream t)))))) |
34 |
"3") |
"3") |
35 |
|
|
36 |
(deftest write.4 |
(deftest write.4 |
37 |
(with-standard-io-syntax |
(with-standard-io-syntax |
38 |
(with-output-to-string |
(let ((*print-readably* nil)) |
39 |
(os) |
(with-output-to-string |
40 |
(write 4 :stream os))) |
(os) |
41 |
|
(write 4 :stream os)))) |
42 |
"4") |
"4") |
43 |
|
|
44 |
(deftest write.5 |
(deftest write.5 |
45 |
(with-standard-io-syntax |
(with-standard-io-syntax |
46 |
(with-output-to-string |
(let ((*print-readably* nil)) |
47 |
(*standard-output*) |
(with-output-to-string |
48 |
(write 5 :allow-other-keys nil))) |
(*standard-output*) |
49 |
|
(write 5 :allow-other-keys nil)))) |
50 |
"5") |
"5") |
51 |
|
|
52 |
(deftest write.6 |
(deftest write.6 |
53 |
(with-standard-io-syntax |
(with-standard-io-syntax |
54 |
(with-output-to-string |
(let ((*print-readably* nil)) |
55 |
(*standard-output*) |
(with-output-to-string |
56 |
(write 6 :allow-other-keys t :foo 'bar))) |
(*standard-output*) |
57 |
|
(write 6 :allow-other-keys t :foo 'bar)))) |
58 |
"6") |
"6") |
59 |
|
|
60 |
(deftest write.7 |
(deftest write.7 |
61 |
(with-standard-io-syntax |
(with-standard-io-syntax |
62 |
(with-output-to-string |
(let ((*print-readably* nil)) |
63 |
(*standard-output*) |
(with-output-to-string |
64 |
(write 7 :base 10 :base 3))) |
(*standard-output*) |
65 |
|
(write 7 :base 10 :base 3)))) |
66 |
"7") |
"7") |
67 |
|
|
68 |
;;; Error tests |
;;; Error tests |