From adbf266b6cf5b6a465d41fa6996fa1a424af68a0 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@factorcode.org>
Date: Sun, 17 Oct 2010 21:02:42 -0400
Subject: [PATCH] alien.enums: enum>number didn't work in deployed images, add
 a test which deploys and runs benchmark.ui-panes to catch this in the future

---
 basis/alien/enums/enums.factor         |  2 +-
 basis/tools/deploy/deploy-tests.factor |  2 ++
 extra/benchmark/ui-panes/deploy.factor | 15 +++++++++++++++
 3 files changed, 18 insertions(+), 1 deletion(-)
 create mode 100644 extra/benchmark/ui-panes/deploy.factor

diff --git a/basis/alien/enums/enums.factor b/basis/alien/enums/enums.factor
index f46702f450..b0755c130b 100644
--- a/basis/alien/enums/enums.factor
+++ b/basis/alien/enums/enums.factor
@@ -13,7 +13,7 @@ PRIVATE>
 
 GENERIC: enum>number ( enum -- number ) foldable
 M: integer enum>number ;
-M: symbol enum>number "enum-value" word-prop ;
+M: word enum>number "enum-value" word-prop ;
 
 <PRIVATE
 : enum-boxer ( members -- quot )
diff --git a/basis/tools/deploy/deploy-tests.factor b/basis/tools/deploy/deploy-tests.factor
index e8888717ab..1da32f3f42 100644
--- a/basis/tools/deploy/deploy-tests.factor
+++ b/basis/tools/deploy/deploy-tests.factor
@@ -134,3 +134,5 @@ os macosx? [
 [ ] [ "resource:license.txt" "license.txt" temp-file copy-file ] unit-test
 
 [ ] [ "tools.deploy.test.19" shake-and-bake run-temp-image ] unit-test
+
+[ ] [ "benchmark.ui-panes" shake-and-bake run-temp-image ] unit-test
diff --git a/extra/benchmark/ui-panes/deploy.factor b/extra/benchmark/ui-panes/deploy.factor
new file mode 100644
index 0000000000..90bd34bd3a
--- /dev/null
+++ b/extra/benchmark/ui-panes/deploy.factor
@@ -0,0 +1,15 @@
+USING: tools.deploy.config ;
+H{
+    { deploy-ui? t }
+    { deploy-word-defs? f }
+    { deploy-threads? t }
+    { deploy-math? t }
+    { deploy-io 1 }
+    { deploy-reflection 1 }
+    { deploy-unicode? f }
+    { "stop-after-last-window?" t }
+    { deploy-console? f }
+    { deploy-word-props? f }
+    { deploy-c-types? f }
+    { deploy-name "benchmark.ui-panes" }
+}