Skip to content
Snippets Groups Projects
Commit 700c8913 authored by Marco Baringer's avatar Marco Baringer
Browse files

Use (asdf:component-pathname (asdf:find-system :rfc2388.test)) instead of...

Use (asdf:component-pathname (asdf:find-system :rfc2388.test)) instead of *compile-file-pathname* for locating the test data directory

darcs-hash:5229e7ea58eaaa02490ca9368ea6ca65a35391f9
parent b628c3ba
No related branches found
No related tags found
No related merge requests found
......@@ -6,13 +6,11 @@
(in-suite :rfc2388)
(defvar *test-data-dir*
(defparameter *test-data-dir*
(make-pathname :directory
(append (pathname-directory
#.(or *compile-file-pathname*
*load-pathname*
*default-pathname-defaults*))
'("data"))))
#.(asdf:component-pathname (asdf:find-system :rfc2388.test)))
'("test" "data"))))
(defun data-file (filename)
(merge-pathnames filename *test-data-dir*))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment