79 |
t) |
t) |
80 |
|
|
81 |
(deftest read-line.error.2 |
(deftest read-line.error.2 |
82 |
(signals-error |
(signals-error-always |
83 |
(with-input-from-string |
(with-input-from-string |
84 |
(s "") |
(s "") |
85 |
(read-line s)) |
(read-line s)) |
86 |
end-of-file) |
end-of-file) |
87 |
t) |
t t) |
88 |
|
|
89 |
(deftest read-line.error.3 |
(deftest read-line.error.3 |
90 |
(signals-error |
(signals-error-always |
91 |
(with-input-from-string |
(with-input-from-string |
92 |
(*standard-input* "") |
(*standard-input* "") |
93 |
(read-line)) |
(read-line)) |
94 |
end-of-file) |
end-of-file) |
95 |
t) |
t t) |
96 |
|
|
97 |
(deftest read-line.error.4 |
(deftest read-line.error.4 |
98 |
(signals-error |
(signals-error-always |
99 |
(with-input-from-string |
(with-input-from-string |
100 |
(s "") |
(s "") |
101 |
(read-line s t)) |
(read-line s t)) |
102 |
end-of-file) |
end-of-file) |
103 |
t) |
t t) |
104 |
|
|