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

benchmark.reverse-complement.tests,mason.report.tests: fix for the test 

cases so they write to temp files instead of in resource:
db4
Björn Lindqvist 2014-09-26 17:17:14 +02:00 committed by John Benediktsson
parent e5925cf5ad
commit 2a7a2b32ff
2 changed files with 37 additions and 38 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
extra/benchmark/reverse-complement/reverse-complement-tests.factor
View File

@ -1,13 +1,9 @@
IN: benchmark.reverse-complement.tests
USING: tools.test benchmark.reverse-complement
checksums checksums.md5
io.files kernel ;
USING: benchmark.reverse-complement checksums checksums.md5 io.files
io.files.temp kernel tools.test ;
[ "c071aa7e007a9770b2fb4304f55a17e5" ] [
"resource:extra/benchmark/reverse-complement/reverse-complement-test-in.txt"
"resource:extra/benchmark/reverse-complement/reverse-complement-test-out.txt"
reverse-complement
"resource:extra/benchmark/reverse-complement/reverse-complement-test-out.txt"
md5 checksum-file hex-string
"reverse-complement-test-out.txt" temp-file
[ reverse-complement ] keep md5 checksum-file hex-string
] unit-test

63
extra/mason/report/report-tests.factor
View File

@ -1,30 +1,33 @@
IN: mason.report.tests
USING: io.files io.files.temp io.directories kernel mason.report
mason.common mason.config namespaces tools.test xml xml.writer ;
{ 0 0 } [ [ ] with-report ] must-infer-as
: verify-report ( -- )
[ t ] [ "report" exists? ] unit-test
[ ] [ "report" file>xml drop ] unit-test
[ ] [ "report" delete-file ] unit-test ;
"builds" temp-file builds-dir [
"resource:extra/mason/report/fake-data/" [
[ ] [
timings-table pprint-xml
] unit-test
[ ] [ successful-report ] unit-test
verify-report
[ status-error ] [ 1234 compile-failed ] unit-test
verify-report
[ status-error ] [ 1235 boot-failed ] unit-test
verify-report
[ status-error ] [ 1236 test-failed ] unit-test
verify-report
] with-directory
] with-variable
IN: mason.report.tests
USING: io.files io.files.temp io.directories io.directories.hierarchy kernel
mason.report mason.common mason.config namespaces tools.test xml xml.writer ;
{ 0 0 } [ [ ] with-report ] must-infer-as
: verify-report ( -- )
[ t ] [ "report" exists? ] unit-test
[ ] [ "report" file>xml drop ] unit-test
[ ] [ "report" delete-file ] unit-test ;
"builds" temp-file builds-dir [
[
"resource:extra/mason/report/fake-data/" "." copy-tree
[ ] [
timings-table pprint-xml
] unit-test
[ ] [ successful-report ] unit-test
verify-report
[ status-error ] [ 1234 compile-failed ] unit-test
verify-report
[ status-error ] [ 1235 boot-failed ] unit-test
verify-report
[ status-error ] [ 1236 test-failed ] unit-test
verify-report
] with-temp-directory
] with-variable