     ] with-scope
 ] unit-test
 
-[ ] [ 1000 sleep ] unit-test
+[ ] [ 100 sleep ] unit-test
 
 [ "Hi" ] [ "http://localhost:1237/" http-get ] unit-test
 

        main-responder set

        [ 1237 httpd ] "HTTPD test" spawn drop

        yield
    ] with-scope
] unit-test

[ t ] [
    "resource:extra/http/test/foo.html" ascii file-contents

    ] with-scope
] unit-test

[ ] [ 100 sleep ] unit-test

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

