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

fix from Will for set-port-position test by getting a position that will be used later (PR 9993)

Browse Source 
svn: r12965
This commit is contained in:
Matthew Flatt 2009-01-01 21:36:37 +00:00
parent 1c38bd2d3f
commit 5e9b0c157a
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/tests/r6rs/io/ports.sls
View File

@ -628,7 +628,9 @@
(test (port-has-port-position? p) #t)
(test (port-has-set-port-position!? p) #t)
(test (port-position p) 0)
(test/unspec (put-string p "abc"))
(test/unspec (put-string p "ab"))
(test (port-position p) 2)
(test/unspec (put-string p "c"))
(flush-output-port p)
(test accum '(#\c #\b #\a))
(test (port-position p) 3)