tools.deploy.config: fix + tc for the deploy help error ()

char-rename
Björn Lindqvist 2016-08-19 06:53:18 +02:00
parent a70deca651
commit 89e661f18c
5 changed files with 53 additions and 2 deletions

View File

@ -1,6 +1,26 @@
USING: tools.deploy.config tools.test ;
IN: tools.deploy.config.tests
{ { "math" "threads" "compiler" "io" } } [
! config>profile
{
{ "math" "threads" "compiler" "io" }
{ "math" "threads" "compiler" "io" "ui" "unicode" "help" }
} [
"hello-ui" default-config config>profile
H{
{ deploy-console? t }
{ deploy-io 3 }
{ deploy-reflection 6 }
{ deploy-ui? t }
{ deploy-word-defs? t }
{ deploy-threads? t }
{ "stop-after-last-window?" t }
{ deploy-math? t }
{ deploy-word-props? t }
{ deploy-c-types? t }
{ deploy-help? t }
{ deploy-name "deploytest" }
{ deploy-unicode? t }
} config>profile
] unit-test

View File

@ -73,11 +73,13 @@ SYMBOL: deploy-directory
: config>profile ( config -- profile )
{
! The order should be similar to default-components in
! bootstrap.stage2.
[ deploy-math? of "math" f ? ]
[ deploy-threads? of "threads" f ? ]
[ drop "compiler" ]
[ deploy-help? of "help" f ? ]
[ deploy-io of 3 = "io" f ? ]
[ deploy-ui? of "ui" f ? ]
[ deploy-unicode? of "unicode" f ? ]
[ deploy-help? of "help" f ? ]
} cleave>array sift ;

View File

@ -180,3 +180,5 @@ os macosx? [
{ } [ "tools.deploy.test.21" drop 1260000 small-enough? ] unit-test
{ } [ "benchmark.ui-panes" shake-and-bake run-temp-image ] unit-test
{ } [ "tools.deploy.test.23" shake-and-bake ] unit-test

View File

@ -0,0 +1,11 @@
! As reported in #1691 and #1692
USING: ui ui.gadgets.labels ui.gadgets.scrollers ;
IN: tools.deploy.test.23
: (main) ( -- )
"test" <label> <scroller> "test" open-window ;
: main ( -- )
[ (main) ] with-ui ;
MAIN: main

View File

@ -0,0 +1,16 @@
USING: tools.deploy.config ;
H{
{ deploy-console? t }
{ deploy-io 3 }
{ deploy-reflection 6 }
{ deploy-ui? t }
{ deploy-word-defs? t }
{ deploy-threads? t }
{ "stop-after-last-window?" t }
{ deploy-math? t }
{ deploy-word-props? t }
{ deploy-c-types? t }
{ deploy-help? t }
{ deploy-name "tools.deploy.test.23" }
{ deploy-unicode? t }
}