USING: kernel 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