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

mason.report: fix timings-table, and add unit tests

db4
Slava Pestov 2009-04-20 03:29:16 -05:00
parent a4d48a1cd4
commit dff8f80ea6
23 changed files with 59 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
extra/mason/report/fake-data/benchmark-error-messages Normal file
View File

@ -0,0 +1 @@
Benchmarks

1
extra/mason/report/fake-data/benchmark-error-vocabs Normal file
View File

@ -0,0 +1 @@
{ "benchmarks" }

1
extra/mason/report/fake-data/benchmark-time Normal file
View File

@ -0,0 +1 @@
1234

1
extra/mason/report/fake-data/benchmarks Normal file
View File

@ -0,0 +1 @@
H{ { "a" 1 } { "b" 2 } }

2
extra/mason/report/fake-data/boot-log Normal file
View File

@ -0,0 +1,2 @@
Boot
Log

1
extra/mason/report/fake-data/boot-time Normal file
View File

@ -0,0 +1 @@
1234

2
extra/mason/report/fake-data/compile-log Normal file
View File

@ -0,0 +1,2 @@
Compile
Log

1
extra/mason/report/fake-data/compiler-error-messages Normal file
View File

@ -0,0 +1 @@
Compiler errors

1
extra/mason/report/fake-data/compiler-errors Normal file
View File

@ -0,0 +1 @@
{ "compiler-errors" }

1
extra/mason/report/fake-data/git-id Normal file
View File

@ -0,0 +1 @@
"deadbeef"

1
extra/mason/report/fake-data/help-lint-errors Normal file
View File

@ -0,0 +1 @@
Help lint

1
extra/mason/report/fake-data/help-lint-time Normal file
View File

@ -0,0 +1 @@
1234

1
extra/mason/report/fake-data/help-lint-vocabs Normal file
View File

@ -0,0 +1 @@
{ "help-lint" }

1
extra/mason/report/fake-data/html-help-time Normal file
View File

@ -0,0 +1 @@
1234

1
extra/mason/report/fake-data/load-everything-errors Normal file
View File

@ -0,0 +1 @@
Load everything

1
extra/mason/report/fake-data/load-everything-vocabs Normal file
View File

@ -0,0 +1 @@
{ "load-everything" }

1
extra/mason/report/fake-data/load-time Normal file
View File

@ -0,0 +1 @@
1234

1
extra/mason/report/fake-data/test-all-errors Normal file
View File

@ -0,0 +1 @@
Test all errors

1
extra/mason/report/fake-data/test-all-vocabs Normal file
View File

@ -0,0 +1 @@
{ "test-all" }

2
extra/mason/report/fake-data/test-log Normal file
View File

@ -0,0 +1,2 @@
Test
Log

1
extra/mason/report/fake-data/test-time Normal file
View File

@ -0,0 +1 @@
1234

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

@ -1,4 +1,28 @@
IN: mason.report.tests IN: mason.report.tests
USING: mason.report tools.test ; USING: io.files io.directories kernel mason.report mason.common
tools.test xml xml.writer ;
{ 0 0 } [ [ ] with-report ] must-infer-as { 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

18
extra/mason/report/report.factor
View File

@ -3,7 +3,8 @@
USING: benchmark combinators.smart debugger fry io assocs USING: benchmark combinators.smart debugger fry io assocs
io.encodings.utf8 io.files io.sockets io.streams.string kernel io.encodings.utf8 io.files io.sockets io.streams.string kernel
locals mason.common mason.config mason.platform math namespaces locals mason.common mason.config mason.platform math namespaces
prettyprint sequences xml.syntax xml.writer combinators.short-circuit ; prettyprint sequences xml.syntax xml.writer combinators.short-circuit
literals ;
IN: mason.report IN: mason.report
: common-report ( -- xml ) : common-report ( -- xml )
@ -56,15 +57,14 @@ IN: mason.report
: timings-table ( -- xml ) : timings-table ( -- xml )
{ {
boot-time-file $ boot-time-file
load-time-file $ load-time-file
test-time-file $ test-time-file
help-lint-time-file $ help-lint-time-file
benchmark-time-file $ benchmark-time-file
html-help-time-file $ html-help-time-file
} [ } [
execute( -- string ) dup eval-file milli-seconds>time
dup utf8 file-contents milli-seconds>time
[XML <tr><td><-></td><td><-></td></tr> XML] [XML <tr><td><-></td><td><-></td></tr> XML]
] map [XML <h2>Timings</h2> <table><-></table> XML] ; ] map [XML <h2>Timings</h2> <table><-></table> XML] ;