[bknr-cvs] hans changed trunk/thirdparty/hunchentoot/test/script.lisp

[BKNR Commits]

Revision: 4677
Author: hans
URL: http://bknr.net/trac/changeset/4677

slightly clarify test

U   trunk/thirdparty/hunchentoot/test/script.lisp

Modified: trunk/thirdparty/hunchentoot/test/script.lisp
===================================================================
--- trunk/thirdparty/hunchentoot/test/script.lisp	2011-08-29 09:39:54 UTC (rev 4676)
+++ trunk/thirdparty/hunchentoot/test/script.lisp	2011-08-29 09:42:54 UTC (rev 4677)
@@ -141,8 +141,7 @@
     (say " Upload file")
     (let* ((range-test-file-size (* 256 1024))  ; large enough to have hunchentoot use multiple buffers when reading back data, should be aligned to 1024
            (range-test-buffer (make-array range-test-file-size :element-type '(unsigned-byte 8)))
-           (uploaded-file-url "files/?path=user-stream") ; The uploaded file will appear under the name "user-stream" in hunchentoot
-           (expected-content-range (format nil "bytes 0-~D/*" (1- range-test-file-size))))
+           (uploaded-file-url "files/?path=user-stream")) ; The uploaded file will appear under the name "user-stream" in hunchentoot
 
       (dotimes (i range-test-file-size)
          (setf (aref range-test-buffer i) (random 256)))
@@ -167,13 +166,13 @@
       (say " End out of range")
       (http-request uploaded-file-url :range (list 0 range-test-file-size))
       (http-assert 'status-code 416)
-      (http-assert-header :content-range expected-content-range)
+      (http-assert-header :content-range (format nil "bytes 0-~D/*" (1- range-test-file-size)))
 
       (say " Request whole file as partial")
       (http-request uploaded-file-url :range (list 0 (1- range-test-file-size)))
       (http-assert 'status-code 206)
       (http-assert 'body 'equalp range-test-buffer)
-      (http-assert-header :content-range expected-content-range)
+      (http-assert-header :content-range (format nil "bytes 0-~D/*" (1- range-test-file-size)))
 
       (say " Request something in the middle")
       (let ((start-offset (/ range-test-file-size 4))