From c2e9cc8ee7f00cbe8a3bcff87ba29b348b1c3632 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Fri, 20 Nov 2009 15:35:12 -0600 Subject: [PATCH 1/2] tools.deploy.test.17: fix typo --- basis/tools/deploy/test/17/17.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/basis/tools/deploy/test/17/17.factor b/basis/tools/deploy/test/17/17.factor index 31984940dd..a7cb0d25f2 100644 --- a/basis/tools/deploy/test/17/17.factor +++ b/basis/tools/deploy/test/17/17.factor @@ -11,7 +11,7 @@ person "PEOPLE" { { "occupation" "OCCUPATION" { VARCHAR 256 } +not-null+ } } define-persistent -: db-deploy-test ( -- ) ; +: db-deploy-test ( -- ) "test.db" temp-file [ person recreate-table From cc5a8628984a52a0d6bd03a8763a84dacdf34a60 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Fri, 20 Nov 2009 18:20:45 -0600 Subject: [PATCH 2/2] mason.report: better benchmark timings --- extra/mason/report/report.factor | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) diff --git a/extra/mason/report/report.factor b/extra/mason/report/report.factor index 5d0efc9328..c5567c9c97 100644 --- a/extra/mason/report/report.factor +++ b/extra/mason/report/report.factor @@ -86,9 +86,16 @@ IN: mason.report : benchmarks-table ( assoc -- xml ) [ - 1000000 /f + 1,000,000,000 /f [XML <-><-> XML] - ] { } assoc>map [XML

Benchmarks

<->
XML] ; + ] { } assoc>map + [XML +

Benchmarks

+ + + <-> +
BenchmarkTime (seconds)
+ XML] ; : successful-report ( -- ) [