diff --git a/tests/trac.lisp b/tests/trac.lisp index a2a1e35dd2d3e58a6827d030d4a20cdd914f6c6d..64cbe81a2ae43cdc78aaf68a9f29b1cb4166d203 100644 --- a/tests/trac.lisp +++ b/tests/trac.lisp @@ -207,10 +207,11 @@ (replace s s :start2 100 :end2 105))) (copy-seq "1234567890")))) +(setf (logical-pathname-translations "trac69") + '(("**;*.*.*" "/tmp/**/*.*"))) + (define-test trac.69 (:tag :trac) - (setf (logical-pathname-translations "trac69") - '(("**;*.*.*" "/tmp/**/*.*"))) (assert-error 'lisp::namestring-parse-error (let ((*default-pathname-defaults* #p"trac69:")) (pathname "/tmp/bar.lisp"))))