diff --git a/tests/issues.lisp b/tests/issues.lisp index 40a2a96f6b1a608b0b22866ef3d48e53240142c2..26647dd265ff98812ea83ec93f5fea08a98b88af 100644 --- a/tests/issues.lisp +++ b/tests/issues.lisp @@ -302,9 +302,11 @@ (define-test issue.30 (:tag :issues) - (let* ((test-file #p"resources/issue-30.lisp") + (let* ((test-file #.(merge-pathnames #p"resources/issue-30.lisp" cl:*load-pathname*)) (fasl-file (compile-file-pathname test-file))) ;; Compiling and loading the test file should succeed without ;; errors. - (assert-equal (list fasl-file nil nil) - (compile-file test-file :load t)))) + (assert-true (pathnamep test-file)) + (assert-true (pathnamep fasl-file)) + (assert-equalp (list fasl-file nil nil) + (multiple-value-list (compile-file test-file :load t)))))