From 46101a877787967cbbed6bba77aa4e40e7775ebd Mon Sep 17 00:00:00 2001 From: Stelian Ionescu Date: Sun, 29 Jul 2012 17:31:51 +0200 Subject: [PATCH] Stream tests: create the test directory at runtime, not at fasl load-time --- tests/streams.lisp | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/tests/streams.lisp b/tests/streams.lisp index f6fd448..8cf9be4 100644 --- a/tests/streams.lisp +++ b/tests/streams.lisp @@ -80,12 +80,11 @@ '("data"))))) (defvar *test-dir* - (ensure-directories-exist - (merge-pathnames - (make-pathname :directory '(:relative "test-dir")) - (make-pathname :directory - (pathname-directory - (or *load-truename* *compile-file-truename*)))))) + (merge-pathnames + (make-pathname :directory '(:relative "test-dir")) + (make-pathname :directory + (pathname-directory + (or *load-truename* *compile-file-truename*))))) ;;; A list of test files where each entry consists of the name ;;; prefix and a list of encodings. @@ -164,6 +163,7 @@ ;;; check if the outcome is as expected. Uses various variants of the ;;; :DIRECTION keyword when opening the files." (defun compare-files (path-in external-format-in path-out external-format-out) + (ensure-directories-exist *test-dir*) (let ((full-path-in (merge-pathnames path-in *data-dir*)) (full-path-out (merge-pathnames path-out *test-dir*)) (full-path-orig (merge-pathnames path-out *data-dir*))) -- 2.11.4.GIT