factor/basis/tools/deploy/backend/backend-tests.factor

46 lines
1.0 KiB
Factor

USING: pcre sequences tools.deploy.backend tools.test ;
IN: tools.deploy.backend.tests
: complete-match? ( str regexp -- ? )
"^" "$" surround matches? ;
{ t } [
{ } staging-command-line
{
"-staging"
"-no-user-init"
"-pic=0"
"-output-image.*"
"-include="
"-i=boot\\..*"
} [ 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
{ 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