Revision: 4237 Author: edi URL: http://bknr.net/trac/changeset/4237
Replace literal characters with portable code
U trunk/thirdparty/hunchentoot/test/script.lisp
Modified: trunk/thirdparty/hunchentoot/test/script.lisp =================================================================== --- trunk/thirdparty/hunchentoot/test/script.lisp 2009-02-10 16:37:27 UTC (rev 4236) +++ trunk/thirdparty/hunchentoot/test/script.lisp 2009-02-10 17:35:21 UTC (rev 4237) @@ -64,7 +64,7 @@
(format t "Test POST parameters with foreign characters (Latin-1)~%") (http-request "parameter_latin1_post.html" - :method :post :parameters (list (cons "foo" (format nil "H~Chner" #\Latin_Small_Letter_U_With_Diaeresis)))) + :method :post :parameters (list (cons "foo" (format nil "H~Chner" #.(code-char 252))))) (http-assert-header :content-type "text/html; charset=ISO-8859-1") (http-assert-body "(72 252 104 110 101 114)") (http-assert-body ""Hühner"") @@ -79,7 +79,7 @@ (http-request "parameter_utf8_post.html" :method :post :external-format-out :utf-8 - :parameters (list (cons "foo" (format nil "H~Chner" #\Latin_Small_Letter_U_With_Diaeresis)))) + :parameters (list (cons "foo" (format nil "H~Chner" #.(code-char 252))))) (http-assert-header :content-type "text/html; charset=UTF-8") (http-assert-body "(72 252 104 110 101 114)") (http-assert-body ""Hühner"")