io.files: Make sure ascii can't write higher than char 127 to file. Allow writes to ascii from { } and B{ } if they don't violate the encoding.
parent
2f4f0da10d
commit
2ada639a62
|
@ -4,7 +4,7 @@ io.directories io.encodings.8-bit.latin1 io.encodings.ascii
|
||||||
io.encodings.binary io.encodings.string io.encodings.utf16
|
io.encodings.binary io.encodings.string io.encodings.utf16
|
||||||
io.encodings.utf8 io.files io.files.private io.pathnames kernel
|
io.encodings.utf8 io.files io.files.private io.pathnames kernel
|
||||||
locals make math sequences specialized-arrays system threads
|
locals make math sequences specialized-arrays system threads
|
||||||
tools.test vocabs ;
|
tools.test vocabs io.encodings ;
|
||||||
FROM: specialized-arrays.private => specialized-array-vocab ;
|
FROM: specialized-arrays.private => specialized-array-vocab ;
|
||||||
IN: io.files.tests
|
IN: io.files.tests
|
||||||
|
|
||||||
|
@ -250,8 +250,13 @@ CONSTANT: pt-array-1
|
||||||
] unit-test
|
] unit-test
|
||||||
|
|
||||||
[| path |
|
[| path |
|
||||||
[ path ascii [ { } write ] with-file-writer ]
|
[ path ascii [ { 129 } write ] with-file-writer ]
|
||||||
[ no-method? ] must-fail-with
|
[ encode-error? ] must-fail-with
|
||||||
|
] with-test-file
|
||||||
|
|
||||||
|
[| path |
|
||||||
|
{ }
|
||||||
|
[ path ascii [ { } write ] with-file-writer ] unit-test
|
||||||
] with-test-file
|
] with-test-file
|
||||||
|
|
||||||
[| path |
|
[| path |
|
||||||
|
|
Loading…
Reference in New Issue