summaryrefslogtreecommitdiff
path: root/test-suite/tests/web-response.test
diff options
context:
space:
mode:
Diffstat (limited to 'test-suite/tests/web-response.test')
-rw-r--r--test-suite/tests/web-response.test4
1 files changed, 2 insertions, 2 deletions
diff --git a/test-suite/tests/web-response.test b/test-suite/tests/web-response.test
index 99b129334..3c1894e13 100644
--- a/test-suite/tests/web-response.test
+++ b/test-suite/tests/web-response.test
@@ -1,6 +1,6 @@
;;;; web-response.test --- HTTP responses -*- mode: scheme; coding: utf-8; -*-
;;;;
-;;;; Copyright (C) 2010, 2011, 2012, 2014 Free Software Foundation, Inc.
+;;;; Copyright (C) 2010, 2011, 2012, 2013, 2014 Free Software Foundation, Inc.
;;;;
;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public
@@ -115,7 +115,7 @@ consectetur adipisicing elit,\r
(response-content-encoding r))
(pass-if-equal "response-body-port"
- `("utf-8" ,body)
+ `("UTF-8" ,body)
(with-fluids ((%default-port-encoding #f))
(let* ((r (read-response (open-input-string example-1)))
(p (response-body-port r)))