suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Test for 69d7636 fix position counting with internal read shortcut (issue #1599)

Browse Source
This commit is contained in:
Georges Dupéron 2017-01-31 04:17:57 +01:00
parent 69d7636770
commit 4d8d804b4f
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
pkgs/racket-test-core/tests/racket/portlib.rktl
View File

@ -446,7 +446,15 @@
(test #f file-stream-buffer-mode an-original-port)
(test buffer-mode file-stream-buffer-mode a-peeking-port)
(test (void) file-stream-buffer-mode a-peeking-port 'none)
(test 'none file-stream-buffer-mode a-peeking-port))
(test 'none file-stream-buffer-mode a-peeking-port)
(let* ([a-string-port-2 (open-input-bytes
(string->bytes/utf-8 "(…)abcdef"))]
[a-peeking-port-2 (peeking-input-port a-string-port-2)])
(read a-peeking-port-2)
(let ([pos (file-position a-peeking-port-2)])
(read-bytes pos a-string-port-2) ;; discard pos bytes
(test "abcdef" port->string a-string-port-2))))
(try-peeking 'none)
(try-peeking 'block))