From 62f5a2af1cf0aeb1a764c1e055c97124f00ee04c Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Mon, 15 Feb 2010 17:37:07 +1300
Subject: [PATCH] tools.deploy.shaker: don't strip out io.files hook, since
 then we lose resource-path and such

---
 basis/tools/deploy/deploy-tests.factor   |  6 ++++++
 basis/tools/deploy/shaker/shaker.factor  |  1 -
 basis/tools/deploy/test/18/18.factor     |  8 ++++++++
 basis/tools/deploy/test/18/authors.txt   |  1 +
 basis/tools/deploy/test/18/deploy.factor | 14 ++++++++++++++
 5 files changed, 29 insertions(+), 1 deletion(-)
 create mode 100644 basis/tools/deploy/test/18/18.factor
 create mode 100644 basis/tools/deploy/test/18/authors.txt
 create mode 100644 basis/tools/deploy/test/18/deploy.factor

diff --git a/basis/tools/deploy/deploy-tests.factor b/basis/tools/deploy/deploy-tests.factor
index 1412e65f95..987b4aa8a1 100644
--- a/basis/tools/deploy/deploy-tests.factor
+++ b/basis/tools/deploy/deploy-tests.factor
@@ -117,3 +117,9 @@ os macosx? [
 [ ] [ "tools.deploy.test.16" shake-and-bake run-temp-image ] unit-test
 
 [ ] [ "tools.deploy.test.17" shake-and-bake run-temp-image ] unit-test
+
+[ t ] [
+    "tools.deploy.test.18" shake-and-bake
+    deploy-test-command ascii [ readln ] with-process-reader
+    "test.image" temp-file =
+] unit-test
diff --git a/basis/tools/deploy/shaker/shaker.factor b/basis/tools/deploy/shaker/shaker.factor
index 5897712a02..e5dddc5fe6 100755
--- a/basis/tools/deploy/shaker/shaker.factor
+++ b/basis/tools/deploy/shaker/shaker.factor
@@ -43,7 +43,6 @@ IN: tools.deploy.shaker
         "io.thread" startup-hooks get delete-at
     ] unless
     strip-io? [
-        "io.files" startup-hooks get delete-at
         "io.backend" startup-hooks get delete-at
         "io.thread" startup-hooks get delete-at
     ] when
diff --git a/basis/tools/deploy/test/18/18.factor b/basis/tools/deploy/test/18/18.factor
new file mode 100644
index 0000000000..0676376701
--- /dev/null
+++ b/basis/tools/deploy/test/18/18.factor
@@ -0,0 +1,8 @@
+! Copyright (C) 2010 Slava Pestov.
+! See http://factorcode.org/license.txt for BSD license.
+USING: accessors io.streams.c math.parser system ;
+IN: tools.deploy.test.18
+
+: main ( -- ) image show ;
+
+MAIN: main
diff --git a/basis/tools/deploy/test/18/authors.txt b/basis/tools/deploy/test/18/authors.txt
new file mode 100644
index 0000000000..d4f5d6b3ae
--- /dev/null
+++ b/basis/tools/deploy/test/18/authors.txt
@@ -0,0 +1 @@
+Slava Pestov
\ No newline at end of file
diff --git a/basis/tools/deploy/test/18/deploy.factor b/basis/tools/deploy/test/18/deploy.factor
new file mode 100644
index 0000000000..66069d6430
--- /dev/null
+++ b/basis/tools/deploy/test/18/deploy.factor
@@ -0,0 +1,14 @@
+USING: tools.deploy.config ;
+H{
+    { deploy-name "tools.deploy.test.18" }
+    { deploy-ui? f }
+    { deploy-c-types? f }
+    { deploy-unicode? f }
+    { "stop-after-last-window?" t }
+    { deploy-io 1 }
+    { deploy-reflection 1 }
+    { deploy-word-props? f }
+    { deploy-math? f }
+    { deploy-threads? f }
+    { deploy-word-defs? f }
+}