2008-09-16 00:20:33 -04:00
|
|
|
IN: mason.report.tests
|
2011-09-09 21:17:53 -04:00
|
|
|
USING: io.files io.files.temp io.directories kernel mason.report
|
|
|
|
|
mason.common mason.config namespaces tools.test xml xml.writer ;
|
2009-04-17 18:55:33 -04:00
|
|
|
|
2009-04-20 04:29:16 -04:00
|
|
|
{ 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 ;
|
|
|
|
|
|
2011-09-09 21:17:53 -04:00
|
|
|
"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
|
