     { "a" "b" "c" } append
     ascii [ lines ] with-process-reader
     rest
-] unit-test
+] long-unit-test
 
-{ } [ "tools.deploy.test.16" shake-and-bake run-temp-image ] unit-test
+{ } [ "tools.deploy.test.16" shake-and-bake run-temp-image ] long-unit-test
 
-{ } [ "tools.deploy.test.17" shake-and-bake run-temp-image ] unit-test
+{ } [ "tools.deploy.test.17" shake-and-bake run-temp-image ] long-unit-test
 
 { t } [
     "tools.deploy.test.18" shake-and-bake
     deploy-test-command ascii [ readln ] with-process-reader
     test-image-path =
-] unit-test
+] long-unit-test
 
 { } [
     "resource:LICENSE.txt" "local-license.txt" temp-file copy-file
     "tools.deploy.test.19" shake-and-bake run-temp-image
-] unit-test
+] long-unit-test
 
-{ } [ "tools.deploy.test.20" shake-and-bake ] unit-test
+{ } [ "tools.deploy.test.20" shake-and-bake ] long-unit-test
 
 { "<?xml version=\"1.0\" encoding=\"UTF-8\"?><foo>Factor</foo>" }
-[ deploy-test-command ascii [ readln ] with-process-reader ] unit-test
+[ deploy-test-command ascii [ readln ] with-process-reader ] long-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.20" drop 1353000 small-enough? ] long-unit-test
+{ } [ "tools.deploy.test.20" drop 1363000 small-enough? ] long-unit-test
 
-{ } [ "tools.deploy.test.21" shake-and-bake ] unit-test
+{ } [ "tools.deploy.test.21" shake-and-bake ] long-unit-test
 
 { "1 2 3" }
-[ deploy-test-command ascii [ readln ] with-process-reader ] unit-test
+[ deploy-test-command ascii [ readln ] with-process-reader ] long-unit-test
 
-{ } [ "tools.deploy.test.21" drop 1260000 small-enough? ] unit-test
+{ } [ "tools.deploy.test.21" drop 1260000 small-enough? ] long-unit-test
 
-{ } [ "benchmark.ui-panes" shake-and-bake run-temp-image ] unit-test
+{ } [ "benchmark.ui-panes" shake-and-bake run-temp-image ] long-unit-test
 
-{ } [ "tools.deploy.test.23" shake-and-bake ] unit-test
+{ } [ "tools.deploy.test.23" shake-and-bake ] long-unit-test

        "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"

    { } swap [
        shake-and-bake
        run-temp-image
    ] curry long-unit-test
] each

USING: http.client http.server http.server.dispatchers
