From a09cc13a17f02ff45fe6201a04f736f7e3aba8ae Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Sat, 16 Sep 2017 10:23:29 -0500
Subject: [PATCH] tools.deploy.test: shake-and-bake is a long-unit-test

---
 basis/tools/deploy/test/test.factor | 22 +++++++++++++---------
 1 file changed, 13 insertions(+), 9 deletions(-)

diff --git a/basis/tools/deploy/test/test.factor b/basis/tools/deploy/test/test.factor
index d90ee2caf9..44c4dd1161 100644
--- a/basis/tools/deploy/test/test.factor
+++ b/basis/tools/deploy/test/test.factor
@@ -1,7 +1,7 @@
-USING: accessors arrays bootstrap.image continuations
-io.directories io.files.info io.files.temp io.launcher
-io.backend kernel layouts math sequences system
-tools.deploy.backend tools.deploy.config.editor ;
+USING: accessors arrays bootstrap.image io.backend
+io.directories io.files.info io.files.temp io.launcher kernel
+layouts math namespaces sequences system tools.deploy.backend
+tools.deploy.config.editor tools.test ;
 IN: tools.deploy.test
 
 : test-image ( -- str )
@@ -11,11 +11,15 @@ IN: tools.deploy.test
     test-image temp-file ;
 
 : shake-and-bake ( vocab -- )
-    test-image-path ?delete-file
-    [
-        [ vm-path test-image temp-file ] dip
-        dup deploy-config make-deploy-image drop
-    ] with-resource-directory ;
+    long-unit-tests-enabled? get [
+        test-image-path ?delete-file
+        [
+            [ vm-path test-image temp-file ] dip
+            dup deploy-config make-deploy-image drop
+        ] with-resource-directory
+    ] [
+        drop
+    ] if ;
 
 ERROR: image-too-big actual-size max-size ;