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

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

@ -1,4 +1,28 @@
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
io.encodings.utf8 io.files io.sockets io.streams.string kernel
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
: common-report ( -- xml )
@ -56,15 +57,14 @@ IN: mason.report
: timings-table ( -- xml )
{
boot-time-file
load-time-file
test-time-file
help-lint-time-file
benchmark-time-file
html-help-time-file
$ boot-time-file
$ load-time-file
$ test-time-file
$ help-lint-time-file
$ benchmark-time-file
$ html-help-time-file
} [
execute( -- string )
dup utf8 file-contents milli-seconds>time
dup eval-file milli-seconds>time
[XML <tr><td><-></td><td><-></td></tr> XML]
] map [XML <h2>Timings</h2> <table><-></table> XML] ;