Add support for CHICKEN 66.4

This is backwards-compatible - there are only a handful of changes
needed, so we don't have to make a hard break here.

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")