diff options
Diffstat (limited to 'tests/run.scm')
| -rw-r--r-- | tests/run.scm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/tests/run.scm b/tests/run.scm index 722d6e3..d7e3d27 100644 --- a/tests/run.scm +++ b/tests/run.scm @@ -74,8 +74,8 @@ absolute-uri: #f) (test-end "vhost support") -(define chicken-logo.png (with-input-from-file "testweb/pics/chicken-logo.png" read-string)) -(define lambda-chicken.gif (with-input-from-file "testweb/pics/lambda-chicken.gif" read-string)) +(define chicken-logo.png (with-input-from-file "testweb/pics/chicken-logo.png" read-bytevector)) +(define lambda-chicken.gif (with-input-from-file "testweb/pics/lambda-chicken.gif" read-bytevector)) (define index.html (with-input-from-file "testweb/index.html" read-string)) (define index-subdir (with-input-from-file "testweb/subdir/index.html" read-string)) (define index-subsubdir (with-input-from-file "testweb/subdir/subsubdir/index.html" read-string)) @@ -100,11 +100,11 @@ "/hello.txt" "testhost") (test-header "image/gif mimetype" content-type (image/gif) "/pics/lambda-chicken.gif" "testhost") -(test-response "image/gif contents" (200 lambda-chicken.gif) +(test-binary-response "image/gif contents" (200 lambda-chicken.gif) "/pics/lambda-chicken.gif" "testhost") (test-header "image/png mimetype" content-type (image/png) "/pics/chicken-logo.png" "testhost") -(test-response "image/png contents" (200 chicken-logo.png) +(test-binary-response "image/png contents" (200 chicken-logo.png) "/pics/chicken-logo.png" "testhost") (test-header "unknown mimetype" content-type (application/unknown) "/data" "testhost") |