steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

remove superfluous flush from io tests

db4
Doug Coleman 2009-02-08 13:58:39 -06:00
parent 69f4899e11
commit fef602b185
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
core/io/io-tests.factor
View File

@ -16,7 +16,7 @@ IN: io.tests
"seek-test1" unique-file binary
[
[
B{ 1 2 3 4 5 } write flush 0 seek-absolute seek-output
B{ 1 2 3 4 5 } write 0 seek-absolute seek-output
B{ 3 } write
] with-file-writer
] [
@ -29,7 +29,7 @@ IN: io.tests
"seek-test2" unique-file binary
[
[
B{ 1 2 3 4 5 } write flush -1 seek-relative seek-output
B{ 1 2 3 4 5 } write -1 seek-relative seek-output
B{ 3 } write
] with-file-writer
] [
@ -42,7 +42,7 @@ IN: io.tests
"seek-test3" unique-file binary
[
[
B{ 1 2 3 4 5 } write flush 1 seek-relative seek-output
B{ 1 2 3 4 5 } write 1 seek-relative seek-output
B{ 3 } write
] with-file-writer
] [