mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-03-11 23:40:36 -07:00
Code Issues Projects Releases Packages Wiki Activity

Merge branch 'fix-listen' into develop

Browse source
This commit is contained in:
Marius Gerbershagen 2023-02-05 19:45:58 +01:00
commit d34fe2c065
2 changed files with 103 additions and 38 deletions
Download patch file Download diff file Expand all files Collapse all files

15
src/tests/normal-tests/mixed.lsp
View file

@ -479,3 +479,18 @@
(is (equal (format nil "a~4:A" nil) "a() "))
(is (equal (format nil "a~4:@A" nil) "a ()"))
(is (equal (format nil "a~4@:A" nil) "a ()")))
;;; Created: 2023-01-16
;;; Contains: tests checking that listen returns nil if we are at the
;;; end of a file
(test mix.0026.file-listen
(is (equal (progn
(with-open-file (blah "nada.txt" :direction :output
:if-does-not-exist :create
:if-exists :supersede)
(write-char #\a blah))
(with-open-file (blah "nada.txt" :direction :input)
(list (listen blah)
(read-char blah)
(listen blah))))
(list t #\a nil))))