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

use resource: instead of resource-path

db4
Doug Coleman 2008-05-06 14:41:59 -05:00
parent 7c09936f30
commit 0cd8023a25
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -8,20 +8,17 @@ IN: io.tests
"foo" "io.tests" lookup "foo" "io.tests" lookup
] unit-test ] unit-test
: <resource-reader> ( resource -- stream )
resource-path latin1 <file-reader> ;
[ [
"This is a line.\rThis is another line.\r" "This is a line.\rThis is another line.\r"
] [ ] [
"core/io/test/mac-os-eol.txt" <resource-reader> "resource:core/io/test/mac-os-eol.txt" latin1 <file-reader>
[ 500 read ] with-input-stream [ 500 read ] with-input-stream
] unit-test ] unit-test
[ [
255 255
] [ ] [
"core/io/test/binary.txt" <resource-reader> "resource:core/io/test/binary.txt" latin1 <file-reader>
[ read1 ] with-input-stream >fixnum [ read1 ] with-input-stream >fixnum
] unit-test ] unit-test
@ -36,7 +33,8 @@ IN: io.tests
} }
] [ ] [
[ [
"core/io/test/separator-test.txt" <resource-reader> [ "resource:core/io/test/separator-test.txt"
latin1 <file-reader> [
"J" read-until 2array , "J" read-until 2array ,
"i" read-until 2array , "i" read-until 2array ,
"X" read-until 2array , "X" read-until 2array ,