Add a new deploy test to test callbacks

diff --git a/basis/tools/deploy/deploy-tests.factor b/basis/tools/deploy/deploy-tests.factor
index 71dc746fb51e938d68495e8ca8a2366f67d770b3..a390ce56c4437f4b16a74da051fde20cc7c98502 100644 (file)
--- a/basis/tools/deploy/deploy-tests.factor
+++ b/basis/tools/deploy/deploy-tests.factor
@@ -107,3 +107,8 @@ M: quit-responder call-responder*
     "tools.deploy.test.8" shake-and-bake\r
     run-temp-image\r
 ] unit-test\r
+\r
+[ ] [\r
+    "tools.deploy.test.9" shake-and-bake\r
+    run-temp-image\r
+] unit-test\r

diff --git a/basis/tools/deploy/test/3/deploy.factor b/basis/tools/deploy/test/3/deploy.factor
index b38c5da6767da39b42ee3a944b2c5318c66cb63b..c318ac4b6eeb3fd99c0c83270625fe16e5e124bd 100644 (file)
--- a/basis/tools/deploy/test/3/deploy.factor
+++ b/basis/tools/deploy/test/3/deploy.factor
@@ -1,14 +1,15 @@
 USING: tools.deploy.config ;
 H{
-    { deploy-threads? t }
-    { deploy-c-types? f }
+    { deploy-unicode? f }
+    { deploy-name "tools.deploy.test.3" }
     { deploy-ui? f }
-    { deploy-word-props? f }
+    { "stop-after-last-window?" t }
     { deploy-word-defs? f }
-    { deploy-math? t }
-    { deploy-io 3 }
-    { deploy-name "tools.deploy.test.3" }
+    { deploy-reflection 2 }
     { deploy-compiler? t }
-    { deploy-reflection 1 }
-    { "stop-after-last-window?" t }
+    { deploy-threads? t }
+    { deploy-io 3 }
+    { deploy-math? t }
+    { deploy-word-props? f }
+    { deploy-c-types? f }
 }

diff --git a/basis/tools/deploy/test/9/9.factor b/basis/tools/deploy/test/9/9.factor
new file mode 100644 (file)
index 0000000..a1cbd5b
--- /dev/null
+++ b/basis/tools/deploy/test/9/9.factor
@@ -0,0 +1,10 @@
+USING: alien kernel math ;
+IN: tools.deploy.test.9
+
+: callback-test ( -- callback )
+    "int" { "int" } "cdecl" [ 1 + ] alien-callback ;
+
+: indirect-test ( -- )
+    10 callback-test "int" { "int" } "cdecl" alien-indirect 11 assert= ;
+
+MAIN: indirect-test

diff --git a/basis/tools/deploy/test/9/deploy.factor b/basis/tools/deploy/test/9/deploy.factor
new file mode 100644 (file)
index 0000000..91b1da5
--- /dev/null
+++ b/basis/tools/deploy/test/9/deploy.factor
@@ -0,0 +1,15 @@
+USING: tools.deploy.config ;
+H{
+    { deploy-unicode? f }
+    { deploy-name "tools.deploy.test.9" }
+    { deploy-ui? f }
+    { "stop-after-last-window?" t }
+    { deploy-word-defs? f }
+    { deploy-reflection 1 }
+    { deploy-compiler? t }
+    { deploy-threads? f }
+    { deploy-io 1 }
+    { deploy-math? t }
+    { deploy-word-props? f }
+    { deploy-c-types? f }
+}