         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

    ] with-scope
] unit-test

[ ] [ 1000 sleep ] unit-test

: 404? [ download-failed? ] [ response>> code>> 404 = ] bi and ;


    ] with-scope
] unit-test

[ ] [ 100 sleep ] unit-test

[ "Hi" ] [ "http://localhost:1237/" http-get ] unit-test

