/extra/mason/report/report-tests.factor

http://github.com/abeaumont/factor · Factor · 30 lines · 23 code · 7 blank · 0 comment · 0 complexity · 948a4cb16b49296b14218de79c8d4b71 MD5 · raw file 

    

  1. IN: mason.report.tests
    2. 

  2. USING: io.files io.files.temp io.directories kernel mason.report
    3. 

  3. mason.common mason.config namespaces tools.test xml xml.writer ;
    4. 

  4. 

  5. { 0 0 } [ [ ] with-report ] must-infer-as
    6. 

  6. 

  7. : verify-report ( -- )
    8. 

  8.      [ t ] [ "report" exists? ] unit-test
    9. 

  9.      [ ] [ "report" file>xml drop ] unit-test
    10. 

  10.      [ ] [ "report" delete-file ] unit-test ;
    11. 

  11. 

  12. "builds" temp-file builds-dir [
    13. 

  13.     "resource:extra/mason/report/fake-data/" [
    14. 

  14.          [ ] [
    15. 

  15.               timings-table pprint-xml
    16. 

  16.          ] unit-test
    17. 

  17.     
    18. 

  18.          [ ] [ successful-report ] unit-test
    19. 

  19.          verify-report
    20. 

  20.     
    21. 

  21.          [ status-error ] [ 1234 compile-failed ] unit-test
    22. 

  22.          verify-report
    23. 

  23.     
    24. 

  24.          [ status-error ] [ 1235 boot-failed ] unit-test
    25. 

  25.          verify-report
    26. 

  26.     
    27. 

  27.          [ status-error ] [ 1236 test-failed ] unit-test
    28. 

  28.          verify-report
    29. 

  29.     ] with-directory
    30. 

  30. ] with-variable
    31.