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

USING: bootstrap.image tools.test system io io.encodings.ascii
io.pathnames io.files io.files.info io.files.temp kernel
tools.deploy.config tools.deploy.config.editor
tools.deploy.backend math sequences io.launcher arrays
namespaces continuations layouts accessors urls math.parser
io.directories tools.deploy tools.deploy.test vocabs ;

IN: tools.deploy.tests

! Delete all cached staging images in case syntax or
! other core vocabularies have changed and staging
! images are stale.
cache-directory [
    [ "staging." head? ] filter
    my-arch ".image" append [ tail? ] curry filter
    [ delete-file ] each
] with-directory-files

[ "nosuchvocab" deploy ] [ no-vocab? ] must-fail-with

[ "no such vocab, fool!" deploy ] [ bad-vocab-name? ] must-fail-with

[ ] [ "hello-world" shake-and-bake 500000 small-enough? ] unit-test

[ ] [ "sudoku" shake-and-bake 800000 small-enough? ] unit-test

[ ] [ "hello-ui" shake-and-bake 1300000 small-enough? ] unit-test

[ "math-threads-compiler-ui" ] [
    "hello-ui" deploy-config [
        bootstrap-profile staging-image-name file-name
        "." split second
    ] bind
] unit-test

[ ] [ "maze" shake-and-bake 1200000 small-enough? ] unit-test

[ ] [ "tetris" shake-and-bake 1500000 small-enough? ] unit-test

[ ] [ "spheres" shake-and-bake 1500000 small-enough? ] unit-test

[ ] [ "terrain" shake-and-bake 1700000 small-enough? ] unit-test

[ ] [ "gpu.demos.raytrace" shake-and-bake 2500000 small-enough? ] unit-test

[ ] [ "bunny" shake-and-bake 2500000 small-enough? ] unit-test

[ ] [ "gpu.demos.bunny" shake-and-bake 3500000 small-enough? ] unit-test

os macosx? [
    [ ] [ "webkit-demo" shake-and-bake 500000 small-enough? ] unit-test
] when

[ ] [ "benchmark.regex-dna" shake-and-bake 900000 small-enough? ] unit-test

{
    "tools.deploy.test.1"
    "tools.deploy.test.2"
    "tools.deploy.test.3"
    "tools.deploy.test.4"
} [
    [ ] swap [
        shake-and-bake
        run-temp-image
    ] curry unit-test
] each

USING: http.client http.server http.server.dispatchers
http.server.responses http.server.static io.servers ;

SINGLETON: quit-responder

M: quit-responder call-responder*
    2drop stop-this-server "Goodbye" "text/html" <content> ;

: add-quot-responder ( responder -- responder )
    quit-responder "quit" add-responder ;

: test-httpd ( responder -- )
    [
        main-responder set
        <http-server>
            0 >>insecure
            f >>secure
        start-server
        servers>> first addr>> port>>
        dup number>string "port-number" temp-file ascii set-file-contents
    ] with-scope
    "port" set ;

[ ] [
    <dispatcher>
        add-quot-responder
        "vocab:http/test" <static> >>default

    test-httpd
] unit-test

[ ] [
    "tools.deploy.test.5" shake-and-bake
    run-temp-image
] unit-test

: add-port ( url -- url' )
    >url clone "port" get >>port ;

[ ] [ "http://localhost/quit" add-port http-get 2drop ] unit-test

{
    "tools.deploy.test.6"
    "tools.deploy.test.7"
    "tools.deploy.test.9"
    "tools.deploy.test.10"
    "tools.deploy.test.11"
    "tools.deploy.test.12"
} [
    [ ] swap [
        shake-and-bake
        run-temp-image
    ] curry unit-test
] each

os windows? os macosx? or [
    [ ] [ "tools.deploy.test.8" shake-and-bake run-temp-image ] unit-test
] when

os macosx? [
    [ ] [ "tools.deploy.test.14" shake-and-bake run-temp-image ] unit-test
] when

[ { "a" "b" "c" } ] [
    "tools.deploy.test.15" shake-and-bake deploy-test-command
    { "a" "b" "c" } append
    ascii [ lines ] with-process-reader
    rest
] unit-test

[ ] [ "tools.deploy.test.16" shake-and-bake run-temp-image ] unit-test

[ ] [ "tools.deploy.test.17" shake-and-bake run-temp-image ] unit-test

[ t ] [
    "tools.deploy.test.18" shake-and-bake
    deploy-test-command ascii [ readln ] with-process-reader
    "test.image" temp-file =
] unit-test

[ ] [ "resource:license.txt" "license.txt" temp-file copy-file ] unit-test

[ ] [ "tools.deploy.test.19" shake-and-bake run-temp-image ] unit-test

[ ] [ "tools.deploy.test.20" shake-and-bake ] unit-test

[ "<?xml version=\"1.0\" encoding=\"UTF-8\"?><foo>Factor</foo>" ]
[ deploy-test-command ascii [ readln ] with-process-reader ] unit-test

[ ] [ "tools.deploy.test.20" drop 850000 small-enough? ] unit-test

[ ] [ "tools.deploy.test.21" shake-and-bake ] unit-test

[ "1 2 3" ]
[ deploy-test-command ascii [ readln ] with-process-reader ] unit-test

[ ] [ "tools.deploy.test.21" drop 800000 small-enough? ] unit-test

[ ] [ "benchmark.ui-panes" shake-and-bake run-temp-image ] unit-test