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

remove <resource-path>

db4
Doug Coleman 2008-05-06 14:45:28 -05:00
parent 0cd8023a25
commit 0acbdcdcc6
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
core/io/encodings/encodings-tests.factor
View File

@ -2,11 +2,8 @@ USING: io.files io.streams.string io
tools.test kernel io.encodings.ascii ; tools.test kernel io.encodings.ascii ;
IN: io.streams.encodings.tests IN: io.streams.encodings.tests
: <resource-reader> ( resource -- stream )
resource-path ascii <file-reader> ;
[ { } ] [ { } ]
[ "core/io/test/empty-file.txt" <resource-reader> lines ] [ "resource:core/io/test/empty-file.txt" ascii <file-reader> lines ]
unit-test unit-test
: lines-test ( stream -- line1 line2 ) : lines-test ( stream -- line1 line2 )
@ -16,21 +13,24 @@ unit-test
"This is a line." "This is a line."
"This is another line." "This is another line."
] [ ] [
"core/io/test/windows-eol.txt" <resource-reader> lines-test "resource:core/io/test/windows-eol.txt"
ascii <file-reader> lines-test
] unit-test ] unit-test
[ [
"This is a line." "This is a line."
"This is another line." "This is another line."
] [ ] [
"core/io/test/mac-os-eol.txt" <resource-reader> lines-test "resource:core/io/test/mac-os-eol.txt"
ascii <file-reader> lines-test
] unit-test ] unit-test
[ [
"This is a line." "This is a line."
"This is another line." "This is another line."
] [ ] [
"core/io/test/unix-eol.txt" <resource-reader> lines-test "resource:core/io/test/unix-eol.txt"
ascii <file-reader> lines-test
] unit-test ] unit-test
[ [