io.files: fix unit test for forget-tests? flag

release
Slava Pestov 2010-04-13 06:14:53 -07:00
parent a47db60a74
commit a3e6de5e6a
1 changed files with 9 additions and 1 deletions

View File

@ -3,7 +3,9 @@ debugger.threads destructors generic.single io io.directories
io.encodings.8-bit.latin1 io.encodings.ascii
io.encodings.binary io.encodings.string io.files
io.files.private io.files.temp io.files.unique kernel make math
sequences specialized-arrays system threads tools.test ;
sequences specialized-arrays system threads tools.test vocabs
compiler.units ;
FROM: specialized-arrays.private => specialized-array-vocab ;
SPECIALIZED-ARRAY: int
IN: io.files.tests
@ -119,6 +121,12 @@ CONSTANT: pt-array-1
pt-array-1 rest-slice sequence=
] unit-test
[ ] [
[
pt specialized-array-vocab forget-vocab
] with-compilation-unit
] unit-test
! Writing strings to binary streams should fail
[
"test.txt" temp-file binary [