mason.report: better benchmark timings

db4
Slava Pestov 2009-11-20 18:20:45 -06:00
parent c2e9cc8ee7
commit cc5a862898
1 changed files with 9 additions and 2 deletions

View File

@ -86,9 +86,16 @@ IN: mason.report
: benchmarks-table ( assoc -- xml )
[
1000000 /f
1,000,000,000 /f
[XML <tr><td><-></td><td><-></td></tr> XML]
] { } assoc>map [XML <h2>Benchmarks</h2> <table><-></table> XML] ;
] { } assoc>map
[XML
<h2>Benchmarks</h2>
<table>
<tr><th>Benchmark</th><th>Time (seconds)</th></tr>
<->
</table>
XML] ;
: successful-report ( -- )
[