From 1124d7e6ea15f2bac738e147cd5dcf8da5a7d123 Mon Sep 17 00:00:00 2001 From: slava Date: Fri, 16 May 2008 05:01:11 -0500 Subject: [PATCH] Tweak http tests --- extra/http/http-tests.factor | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) 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