From 24f125a5fd903bd00b8789590c5856acbc39faab Mon Sep 17 00:00:00 2001 From: Stelian Ionescu Date: Mon, 3 Apr 2017 14:08:18 +0200 Subject: [PATCH] Use proper ASDF functions to get the runtime test data path --- tests/streams.lisp | 12 +++--------- 1 file changed, 3 insertions(+), 9 deletions(-) diff --git a/tests/streams.lisp b/tests/streams.lisp index da2df7d..ff2d8e4 100644 --- a/tests/streams.lisp +++ b/tests/streams.lisp @@ -74,17 +74,11 @@ ,@body)))) (defvar *data-dir* - (let ((sys-pn (truename (asdf:component-pathname - (asdf:find-system :iolib.tests))))) - (make-pathname :directory (append (pathname-directory sys-pn) - '("data"))))) + (asdf:system-relative-pathname "iolib" "tests/data/")) (defvar *test-dir* - (merge-pathnames - (make-pathname :directory '(:relative "test-dir")) - (make-pathname :directory - (pathname-directory - (or *load-truename* *compile-file-truename*))))) + (asdf:apply-output-translations + (asdf:system-relative-pathname "iolib" "tests/test-dir/"))) ;;; A list of test files where each entry consists of the name ;;; prefix and a list of encodings. -- 2.11.4.GIT