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

Bail out on line-endings workarounds now that we have a better fix for that on Win64

db4
Slava Pestov 2008-11-21 20:09:23 -06:00
parent 985aca75ba
commit 2cbc979460
2 changed files with 4 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
basis/html/templates/fhtml/fhtml-tests.factor
View File

@ -6,11 +6,8 @@ IN: html.templates.fhtml.tests
: test-template ( path -- ? ) : test-template ( path -- ? )
"resource:basis/html/templates/fhtml/test/" "resource:basis/html/templates/fhtml/test/"
prepend prepend
[ [ ".fhtml" append <fhtml> [ call-template ] with-string-writer ]
".fhtml" append <fhtml> [ call-template ] with-string-writer [ ".html" append utf8 file-contents ] bi
<string-reader> lines
] keep
".html" append utf8 file-lines
[ . . ] [ = ] 2bi ; [ . . ] [ = ] 2bi ;
[ t ] [ "example" test-template ] unit-test [ t ] [ "example" test-template ] unit-test

4
extra/benchmark/regex-dna/regex-dna-tests.factor
View File

@ -4,7 +4,7 @@ IN: benchmark.regex-dna.tests
[ t ] [ [ t ] [
"resource:extra/benchmark/regex-dna/regex-dna-test-in.txt" "resource:extra/benchmark/regex-dna/regex-dna-test-in.txt"
[ regex-dna ] with-string-writer <string-reader> lines [ regex-dna ] with-string-writer
"resource:extra/benchmark/regex-dna/regex-dna-test-out.txt" "resource:extra/benchmark/regex-dna/regex-dna-test-out.txt"
ascii file-lines = ascii file-contents =
] unit-test ] unit-test