IN: mason.report.tests
USING: io.files io.directories kernel mason.report mason.common
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 ;

"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