Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

fix test suite for Windows

  • Loading branch information...
commit dbb3826a82f92b159155749d4ff959043e0b15da 1 parent 12b9c2b
@dklayer dklayer authored
Showing with 7 additions and 2 deletions.
  1. +4 −0 ChangeLog
  2. +3 −2 test/t-aserve.cl
View
4 ChangeLog
@@ -4,6 +4,10 @@
** Please leave this at the top of the file. Thanks.
*******************************************************************************
+2009-09-15 <layer@HOBART128>
+
+ * test/t-aserve.cl: fix test suite for Windows
+
2009-09-11 Marijn Haverbeke <marijnh@franz.com>
1.2.61
* Fix bug that caused every keep-alive time-out to log a
View
5 test/t-aserve.cl
@@ -1780,14 +1780,15 @@
(defun test-client-unicode-content-length ()
;; Older versions treated content-length as a character count rather
;; than byte count, which went wrong with multi-byte encodings.
- (let ((server (start :port nil :server :new :external-format :utf8)))
+ (let ((server (start :port nil :server :new
+ :external-format (crlf-base-ef :utf8))))
(publish-file :server server :path "/" :file (format nil "~a../test/testdir/unicode"
*aserve-examples-directory*))
;; Not timing out is the test.
(do-http-request (format nil "http://localhost:~a/"
(socket:local-port
(wserver-socket server)))
- :external-format :utf8 :keep-alive t :timeout 3)
+ :external-format (crlf-base-ef :utf8) :keep-alive t :timeout 3)
(shutdown :server server)))
(defun test-http-copy-file ()
Please sign in to comment.
Something went wrong with that request. Please try again.