source: trunk/source/tests/ansi-tests/with-standard-io-syntax.lsp @ 8991

Last change on this file since 8991 was 8991, checked in by gz, 11 years ago

Check in the gcl ansi test suite (original, in preparation for making local changes)

File size: 2.8 KB
Line 
1;-*- Mode:     Lisp -*-
2;;;; Author:   Paul Dietz
3;;;; Created:  Mon Feb 23 05:12:13 2004
4;;;; Contains: Tests of WITH-STANDARD-IO-SYNTAX
5
6(in-package :cl-test)
7
8(deftest with-standard-io-syntax.1
9  (let ((*package* (find-package :cl-test)))
10    (with-standard-io-syntax
11     (eqlt *package* (find-package "CL-USER"))))
12  t)
13
14(deftest with-standard-io-syntax.2
15  (let ((*print-array* nil))
16    (with-standard-io-syntax *print-array*))
17  t)
18
19(deftest with-standard-io-syntax.3
20  (let ((*print-base* 8))
21    (with-standard-io-syntax *print-base*))
22  10)
23
24(deftest with-standard-io-syntax.4
25  (let ((*print-case* :downcase))
26    (with-standard-io-syntax *print-case*))
27  :upcase)
28
29(deftest with-standard-io-syntax.5
30  (let ((*print-circle* t))
31    (with-standard-io-syntax *print-circle*))
32  nil)
33
34(deftest with-standard-io-syntax.6
35  (let ((*print-escape* nil))
36    (with-standard-io-syntax *print-escape*))
37  t)
38
39(deftest with-standard-io-syntax.7
40  (let ((*print-gensym* nil))
41    (with-standard-io-syntax *print-gensym*))
42  t)
43
44(deftest with-standard-io-syntax.8
45  (let ((*print-length* 100))
46    (with-standard-io-syntax *print-length*))
47  nil)
48
49(deftest with-standard-io-syntax.9
50  (let ((*print-level* 100))
51    (with-standard-io-syntax *print-level*))
52  nil)
53
54(deftest with-standard-io-syntax.10
55  (let ((*print-lines* 100))
56    (with-standard-io-syntax *print-lines*))
57  nil)
58
59(deftest with-standard-io-syntax.11
60  (let ((*print-miser-width* 100))
61    (with-standard-io-syntax *print-miser-width*))
62  nil)
63
64(deftest with-standard-io-syntax.12
65  (let ((*print-pretty* t))
66    (with-standard-io-syntax *print-pretty*))
67  nil)
68
69(deftest with-standard-io-syntax.13
70  (let ((*print-right-margin* 100))
71    (with-standard-io-syntax *print-right-margin*))
72  nil)
73
74(deftest with-standard-io-syntax.14
75  (let ((*read-base* 8))
76    (with-standard-io-syntax *read-base*))
77  10)
78
79(deftest with-standard-io-syntax.15
80  (let ((*read-default-float-format 'long-float))
81    (with-standard-io-syntax *read-default-float-format*))
82  single-float)
83
84(deftest with-standard-io-syntax.16
85  (let ((*read-eval* nil))
86    (with-standard-io-syntax *read-eval*))
87  t)
88
89(deftest with-standard-io-syntax.17
90  (let ((*read-suppress* t))
91    (with-standard-io-syntax *read-suppress*))
92  nil)
93
94(deftest with-standard-io-syntax.18
95  (with-standard-io-syntax (notnot-mv (readtablep *readtable*)))
96  t)
97
98(deftest with-standard-io-syntax.19
99  (with-standard-io-syntax)
100  nil)
101
102(deftest with-standard-io-syntax.20
103  (with-standard-io-syntax (values 'a 'b 'c))
104  a b c)
105
106(deftest with-standard-io-syntax.21
107  (block done
108    (tagbody
109     (with-standard-io-syntax (go 10) 10 (return-from done :bad))
110     10
111     (return-from done :good)))
112  :good)
113
114(deftest with-standard-io-syntax.22
115  (let ((i 3))
116    (with-standard-io-syntax
117     (incf i 10)
118     (+ i 2)))
119  15)
120
121
122
123
124
125
126
127
128
129
130
Note: See TracBrowser for help on using the repository browser.