Add tests to ensure that execute( and regexps work when deployed

basis/tools/deploy/deploy-tests.factor

@@ -80,32 +80,17 @@ M: quit-responder call-responder*
 
 [ ] [ "http://localhost/quit" add-port http-get 2drop ] unit-test
 
-[ ] [
-    "tools.deploy.test.6" shake-and-bake
-    run-temp-image
-] unit-test
-
-[ ] [
-    "tools.deploy.test.7" shake-and-bake
-    run-temp-image
-] unit-test
-
-[ ] [
-    "tools.deploy.test.8" shake-and-bake
-    run-temp-image
-] unit-test
-
-[ ] [
-    "tools.deploy.test.9" shake-and-bake
-    run-temp-image
-] unit-test
-
-[ ] [
-    "tools.deploy.test.10" shake-and-bake
-    run-temp-image
-] unit-test
-
-[ ] [
-    "tools.deploy.test.11" shake-and-bake
-    run-temp-image
-] unit-test
+{
+    "tools.deploy.test.6"
+    "tools.deploy.test.7"
+    "tools.deploy.test.8"
+    "tools.deploy.test.9"
+    "tools.deploy.test.10"
+    "tools.deploy.test.11"
+    "tools.deploy.test.12"
+} [
+    [ ] swap [
+        shake-and-bake
+        run-temp-image
+    ] curry unit-test
+] each

basis/tools/deploy/test/12/12.factor

@@ -0,0 +1,10 @@
+! Copyright (C) 2009 Slava Pestov.
+! See http://factorcode.org/license.txt for BSD license.
+USING: call math.parser io math ;
+IN: tools.deploy.test.12
+
+: execute-test ( a b w -- c ) execute( a b -- c ) ;
+
+: foo ( -- ) 1 2 \ + execute-test number>string print ;
+
+MAIN: foo

basis/tools/deploy/test/12/authors.txt

@@ -0,0 +1 @@
+Slava Pestov

basis/tools/deploy/test/12/deploy.factor

@@ -0,0 +1,15 @@
+USING: tools.deploy.config ;
+H{
+    { deploy-c-types? f }
+    { deploy-reflection 1 }
+    { "stop-after-last-window?" t }
+    { deploy-word-props? f }
+    { deploy-math? f }
+    { deploy-unicode? f }
+    { deploy-io 2 }
+    { deploy-ui? f }
+    { deploy-name "tools.deploy.test.12" }
+    { deploy-compiler? f }
+    { deploy-word-defs? f }
+    { deploy-threads? f }
+}

basis/tools/deploy/test/13/13.factor

@@ -0,0 +1,10 @@
+! Copyright (C) 2009 Slava Pestov.
+! See http://factorcode.org/license.txt for BSD license.
+USING: regexp kernel io ;
+IN: tools.deploy.test.13
+
+: regexp-test ( a -- b ) <regexp> "xyz" swap matches? ;
+
+: main ( -- ) "x.z" regexp-test "X" "Y" ? print ;
+
+MAIN: main

basis/tools/deploy/test/13/authors.txt

@@ -0,0 +1 @@
+Slava Pestov

basis/tools/deploy/test/13/deploy.factor

@@ -0,0 +1,15 @@
+USING: tools.deploy.config ;
+H{
+    { deploy-threads? t }
+    { deploy-compiler? t }
+    { deploy-math? t }
+    { deploy-io 2 }
+    { "stop-after-last-window?" t }
+    { deploy-c-types? f }
+    { deploy-name "tools.deploy.test.13" }
+    { deploy-word-props? f }
+    { deploy-unicode? f }
+    { deploy-word-defs? f }
+    { deploy-reflection 4 }
+    { deploy-ui? f }
+}