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

Trying to blindly fix Win64 unit tests

db4
Slava Pestov 2008-11-17 20:28:52 -06:00
parent 53707a33ee
commit a9a28a3231
6 changed files with 17 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,6 +1,6 @@
USING: io io.files io.streams.string io.encodings.utf8 USING: io io.files io.streams.string io.encodings.utf8
html.templates html.templates.fhtml kernel html.templates html.templates.fhtml kernel
tools.test sequences parser ; tools.test sequences parser splitting prettyprint ;
IN: html.templates.fhtml.tests IN: html.templates.fhtml.tests
: test-template ( path -- ? ) : test-template ( path -- ? )
@ -8,8 +8,10 @@ IN: html.templates.fhtml.tests
prepend prepend
[ [
".fhtml" append <fhtml> [ call-template ] with-string-writer ".fhtml" append <fhtml> [ call-template ] with-string-writer
<string-reader> lines
] keep ] keep
".html" append utf8 file-contents = ; ".html" append utf8 file-lines
[ . . ] [ = ] 2bi ;
[ t ] [ "example" test-template ] unit-test [ t ] [ "example" test-template ] unit-test
[ t ] [ "bug" test-template ] unit-test [ t ] [ "bug" test-template ] unit-test

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

@ -25,6 +25,11 @@ IN: io.tests
! Make sure we use correct to_c_string form when writing ! Make sure we use correct to_c_string form when writing
[ ] [ "\0" write ] unit-test [ ] [ "\0" write ] unit-test
[ ] [
"It seems Jobs has lost his grasp on reality again.\n"
"separator-test.txt" temp-file latin1 set-file-contents
] unit-test
[ [
{ {
{ "It seems " CHAR: J } { "It seems " CHAR: J }
@ -33,7 +38,7 @@ IN: io.tests
} }
] [ ] [
[ [
"resource:core/io/test/separator-test.txt" "separator-test.txt" temp-file
latin1 <file-reader> [ latin1 <file-reader> [
"J" read-until 2array , "J" read-until 2array ,
"i" read-until 2array , "i" read-until 2array ,

1
core/io/test/separator-test.txt
View File

@ -1 +0,0 @@
It seems Jobs has lost his grasp on reality again.

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

@ -1,10 +1,10 @@
USING: benchmark.regex-dna io io.files io.encodings.ascii USING: benchmark.regex-dna io io.files io.encodings.ascii
io.streams.string kernel tools.test ; io.streams.string kernel tools.test splitting ;
IN: benchmark.regex-dna.tests 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 [ regex-dna ] with-string-writer string-lines
"resource:extra/benchmark/regex-dna/regex-dna-test-out.txt" "resource:extra/benchmark/regex-dna/regex-dna-test-out.txt"
ascii file-contents = ascii file-lines =
] unit-test ] unit-test

2
extra/contributors/contributors.factor
View File

@ -7,7 +7,7 @@ IN: contributors
: changelog ( -- authors ) : changelog ( -- authors )
image parent-directory [ image parent-directory [
"git-log --pretty=format:%an" ascii <process-reader> lines "git log --pretty=format:%an" ascii <process-reader> lines
] with-directory ; ] with-directory ;
: patch-counts ( authors -- assoc ) : patch-counts ( authors -- assoc )

6
extra/mason/child/child-tests.factor
View File

@ -1,7 +1,7 @@
IN: mason.child.tests IN: mason.child.tests
USING: mason.child mason.config tools.test namespaces ; USING: mason.child mason.config tools.test namespaces ;
[ { "make" "clean" "winnt-x86-32" } ] [ [ { "make" "winnt-x86-32" } ] [
[ [
"winnt" target-os set "winnt" target-os set
"x86.32" target-cpu set "x86.32" target-cpu set
@ -9,7 +9,7 @@ USING: mason.child mason.config tools.test namespaces ;
] with-scope ] with-scope
] unit-test ] unit-test
[ { "make" "clean" "macosx-x86-32" } ] [ [ { "make" "macosx-x86-32" } ] [
[ [
"macosx" target-os set "macosx" target-os set
"x86.32" target-cpu set "x86.32" target-cpu set
@ -17,7 +17,7 @@ USING: mason.child mason.config tools.test namespaces ;
] with-scope ] with-scope
] unit-test ] unit-test
[ { "gmake" "clean" "netbsd-ppc" } ] [ [ { "gmake" "netbsd-ppc" } ] [
[ [
"netbsd" target-os set "netbsd" target-os set
"ppc" target-cpu set "ppc" target-cpu set