diff --git a/extra/http/http-tests.factor b/extra/http/http-tests.factor index daac4d6dd9..89480b43ba 100755 --- a/extra/http/http-tests.factor +++ b/extra/http/http-tests.factor @@ -176,11 +176,11 @@ test-db [ main-responder set [ 1237 httpd ] "HTTPD test" spawn drop - - yield ] with-scope ] unit-test +[ ] [ 100 sleep ] unit-test + [ t ] [ "resource:extra/http/test/foo.html" ascii file-contents "http://localhost:1237/nested/foo.html" http-get = @@ -222,7 +222,7 @@ test-db [ ] with-scope ] unit-test -[ ] [ 1000 sleep ] unit-test +[ ] [ 100 sleep ] unit-test : 404? [ download-failed? ] [ response>> code>> 404 = ] bi and ; @@ -249,7 +249,7 @@ test-db [ ] with-scope ] unit-test -[ ] [ 1000 sleep ] unit-test +[ ] [ 100 sleep ] unit-test [ "Hi" ] [ "http://localhost:1237/" http-get ] unit-test