/[gcl]/gcl/ansi-tests/write.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/write.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by pfdietz, Sat Aug 7 23:02:26 2004 UTC revision 1.3 by pfdietz, Wed Sep 29 03:16:58 2004 UTC
# Line 16  Line 16 
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

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26