From 5cd014f8ca28e176d9dd4fc1eb3543f10bec1630 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Wed, 3 Sep 2008 06:34:40 -0500
Subject: [PATCH] New UI panes benchmark to highlight recent perforammance
 regression there

---
 basis/ui/gadgets/panes/panes-tests.factor | 2 +-
 extra/benchmark/ui-panes/ui-panes.factor  | 7 +++++++
 2 files changed, 8 insertions(+), 1 deletion(-)
 create mode 100644 extra/benchmark/ui-panes/ui-panes.factor

diff --git a/basis/ui/gadgets/panes/panes-tests.factor b/basis/ui/gadgets/panes/panes-tests.factor
index 64a72fe523..109c0a1461 100755
--- a/basis/ui/gadgets/panes/panes-tests.factor
+++ b/basis/ui/gadgets/panes/panes-tests.factor
@@ -12,7 +12,7 @@ IN: ui.gadgets.panes.tests
 [ ] [ #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
 
 [ t ] [ #children "num-children" get = ] unit-test
diff --git a/extra/benchmark/ui-panes/ui-panes.factor b/extra/benchmark/ui-panes/ui-panes.factor
new file mode 100644
index 0000000000..6fdbdaecf6
--- /dev/null
+++ b/extra/benchmark/ui-panes/ui-panes.factor
@@ -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