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

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

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

revision 1.4 by pfdietz, Mon Feb 23 23:28:56 2004 UTC revision 1.5 by pfdietz, Sat Aug 14 18:56:53 2004 UTC
# Line 97  Line 97 
97    t)    t)
98    
99  (deftest read-char.error.2  (deftest read-char.error.2
100    (signals-error    (signals-error-always
101     (with-input-from-string     (with-input-from-string
102      (s "")      (s "")
103      (read-char s))      (read-char s))
104     end-of-file)     end-of-file)
105    t)    t t)
106    
107  (deftest read-char.error.3  (deftest read-char.error.3
108    (signals-error    (signals-error-always
109     (with-input-from-string     (with-input-from-string
110      (s "")      (s "")
111      (read-char s t))      (read-char s t))
112     end-of-file)     end-of-file)
113    t)    t t)
114    
115  (deftest read-char.error.4  (deftest read-char.error.4
116    (signals-error    (signals-error-always
117     (with-input-from-string     (with-input-from-string
118      (s "")      (s "")
119      (read-char s t t))      (read-char s t t))
120     end-of-file)     end-of-file)
121    t)    t t)

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

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