source: trunk/abcl/t/read-suppress.lisp

Last change on this file was 15210, checked in by Mark Evenson, 4 years ago

Test for CL:READ respecting EOF options

When CL:*READ-SUPPRESS* is t, a CL:read should generally return nil,
but it should respect the EOF options.

File size: 307 bytes
Line 
1(in-package :cl-user)
2
3(prove:plan 1)
4
5;;; Test for <https://github.com/armedbear/abcl/commit/dbba85a710ecc1baaafda38e820cf7fce40b05e5>
6(prove:is 
7 (let ((*read-suppress* t)) 
8   (with-input-from-string (s "") 
9     (read s nil :eof)))
10 :eof
11 "Testing CL:READ when *READ-SUPPRESS* is t")
12
13(prove:finalize)
14
Note: See TracBrowser for help on using the repository browser.