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

New UI panes benchmark to highlight recent perforammance regression there

db4
Slava Pestov 2008-09-03 06:34:40 -05:00
parent 6b07c85fec
commit 5cd014f8ca
2 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/ui/gadgets/panes/panes-tests.factor
View File

@ -12,7 +12,7 @@ IN: ui.gadgets.panes.tests
[ ] [ #children "num-children" set ] unit-test [ ] [ #children "num-children" set ] unit-test
[ ] [ [ ] [
"pane" get <pane-stream> [ 10000 [ . ] each ] with-output-stream* "pane" get <pane-stream> [ 100 [ . ] each ] with-output-stream*
] unit-test ] unit-test
[ t ] [ #children "num-children" get = ] unit-test [ t ] [ #children "num-children" get = ] unit-test

7
extra/benchmark/ui-panes/ui-panes.factor Normal file
View File

@ -0,0 +1,7 @@
USING: ui.gadgets.panes prettyprint io sequences ;
IN: benchmark.ui-panes
: ui-pane-benchmark ( -- )
<pane> <pane-stream> [ 10000 [ . ] each ] with-output-stream* ;
MAIN: ui-pane-benchmark