174 lines
4.9 KiB
Factor
174 lines
4.9 KiB
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 splitting 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 550000 small-enough? ] unit-test
|
|
|
|
[ ] [ "sudoku" shake-and-bake 800000 small-enough? ] unit-test
|
|
|
|
! [ ] [ "hello-ui" shake-and-bake 1605000 small-enough? ] unit-test
|
|
[ ] [ "hello-ui" shake-and-bake 2069160 small-enough? ] unit-test
|
|
|
|
[ "math-threads-compiler-io-ui" ] [
|
|
"hello-ui" deploy-config [
|
|
bootstrap-profile staging-image-name file-name
|
|
"." split second
|
|
] with-variables
|
|
] unit-test
|
|
|
|
! [ ] [ "maze" shake-and-bake 1520000 small-enough? ] unit-test
|
|
[ ] [ "maze" shake-and-bake 2000000 small-enough? ] unit-test
|
|
|
|
! [ ] [ "tetris" shake-and-bake 1734000 small-enough? ] unit-test
|
|
[ ] [ "tetris" shake-and-bake 2186392 small-enough? ] unit-test
|
|
|
|
! [ ] [ "spheres" shake-and-bake 1557000 small-enough? ] unit-test
|
|
[ ] [ "spheres" shake-and-bake 2031096 small-enough? ] unit-test
|
|
|
|
! [ ] [ "terrain" shake-and-bake 2053000 small-enough? ] unit-test
|
|
[ ] [ "terrain" shake-and-bake 2671928 small-enough? ] unit-test
|
|
|
|
! [ ] [ "gpu.demos.raytrace" shake-and-bake 2764000 small-enough? ] unit-test
|
|
[ ] [ "gpu.demos.raytrace" shake-and-bake 3307816 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 600000 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" <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 1353000 small-enough? ] unit-test
|
|
[ ] [ "tools.deploy.test.20" drop 1363000 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 1260000 small-enough? ] unit-test
|
|
|
|
[ ] [ "benchmark.ui-panes" shake-and-bake run-temp-image ] unit-test
|