56 lines
1.3 KiB
Factor
56 lines
1.3 KiB
Factor
USING: bootstrap.image kernel pcre sequences tools.deploy.backend
|
|
tools.test ;
|
|
IN: tools.deploy.backend.tests
|
|
|
|
: complete-match? ( str regexp -- ? )
|
|
"^" "$" surround matches? ;
|
|
|
|
! deploy-command-line
|
|
{ t } [
|
|
"image" "hello-world" "manifest.file" { "foob" } deploy-command-line
|
|
{
|
|
"-pic=0"
|
|
"-i=.*foob.*"
|
|
"-vocab-manifest-out=manifest.file"
|
|
"-deploy-vocab=hello-world"
|
|
"-deploy-config=.*hello-world"
|
|
"-output-image=image"
|
|
"-resource-path=.*"
|
|
"-run=tools.deploy.shaker"
|
|
} [ complete-match? ] 2all?
|
|
] unit-test
|
|
|
|
! input-image-name
|
|
{ t } [
|
|
{ "foo" } input-image-name my-boot-image-name =
|
|
] unit-test
|
|
|
|
! staging-command-line
|
|
{ t } [
|
|
{ "one" "two" } staging-command-line
|
|
{
|
|
"-staging"
|
|
"-no-user-init"
|
|
"-pic=0"
|
|
"-output-image.*"
|
|
"-include=one two"
|
|
"-i=.*"
|
|
"-resource-path=.*"
|
|
"-run=tools.deploy.restage"
|
|
} [ complete-match? ] 2all?
|
|
] unit-test
|
|
|
|
{ t } [
|
|
{ "compiler" } staging-command-line
|
|
{
|
|
"-staging"
|
|
"-no-user-init"
|
|
"-pic=0"
|
|
"-output-image=.*"
|
|
"-include=compiler"
|
|
"-i=.*"
|
|
"-resource-path=.*"
|
|
"-run=tools.deploy.restage"
|
|
} [ complete-match? ] 2all?
|
|
] unit-test
|