benchmark.reverse-complement.tests,mason.report.tests: fix for the test
cases so they write to temp files instead of in resource:db4
parent
e5925cf5ad
commit
2a7a2b32ff
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue