/[gcl]/gcl/ansi-tests/read-line.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/read-line.lsp

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

revision 1.2 by pfdietz, Sun Feb 15 11:39:29 2004 UTC revision 1.3 by pfdietz, Sat Aug 14 18:56:53 2004 UTC
# Line 79  Line 79 
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    

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