diff --git a/basis/tools/deploy/deploy-tests.factor b/basis/tools/deploy/deploy-tests.factor index 71dc746fb5..a390ce56c4 100644 --- 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 run-temp-image ] unit-test + +[ ] [ + "tools.deploy.test.9" shake-and-bake + run-temp-image +] unit-test diff --git a/basis/tools/deploy/test/3/deploy.factor b/basis/tools/deploy/test/3/deploy.factor index b38c5da676..c318ac4b6e 100644 --- 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-ui? f } - { deploy-word-props? f } - { deploy-word-defs? f } - { deploy-math? t } - { deploy-io 3 } + { deploy-unicode? f } { deploy-name "tools.deploy.test.3" } - { deploy-compiler? t } - { deploy-reflection 1 } + { deploy-ui? f } { "stop-after-last-window?" t } + { deploy-word-defs? f } + { deploy-reflection 2 } + { deploy-compiler? 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 index 0000000000..a1cbd5bc66 --- /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 index 0000000000..91b1da5697 --- /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 } +}