@@ -1792,10 +1792,6 @@ (shutdown :server server))) (defun test-http-copy-file (port) - (when *x-ssl* - ;; bug18668: doesn't work when SSL turned on. Dunno why. Get a - ;; "premature eof from server" in read-client-response-headers. - (return-from test-http-copy-file)) (let* ((reference-files '("sys:files.bu" "sys:runtime.bu" "sys:mlisp.dxl" @@ -1803,7 +1799,7 @@ "sys:alisp.dxl" "sys:alisp8.dxl" "sys:dcl.dxl")) - (url (format nil "http://localhost:~a/http-copy-file" port)) + (url (format nil "http~a://localhost:~a/http-copy-file" (if *x-ssl* "s" "") port)) (temp-file-name (sys:make-temp-file-name "temp"))) (dolist (reference-file reference-files) test/t-aserve.cl e42f7b775d16abcc16a7635dd84763dbc5ea3674 Marijn Haverbeke marijnh@gmail.com http://github.com/franzinc/aserve/commit/8de460847696dea2969f728368b90f409d9843f4 8de460847696dea2969f728368b90f409d9843f4 2009-10-14T07:26:17-07:00 2009-10-14T07:26:17-07:00 fix problem in copy-file test that prevented it from working with SSL turned on d2c4fdbddf630acdba1b4acf881b3a29a464ab63 Marijn Haverbeke marijnh@gmail.com