Skip to content
Snippets Groups Projects
Commit b3b6dce0 authored by Raymond Toy's avatar Raymond Toy
Browse files

Fix test trac.69: Move the setting of the logical pathname

translation outside of the test.
parent 6b8ebd98
No related branches found
No related tags found
No related merge requests found
...@@ -207,10 +207,11 @@ ...@@ -207,10 +207,11 @@
(replace s s :start2 100 :end2 105))) (replace s s :start2 100 :end2 105)))
(copy-seq "1234567890")))) (copy-seq "1234567890"))))
(setf (logical-pathname-translations "trac69")
'(("**;*.*.*" "/tmp/**/*.*")))
(define-test trac.69 (define-test trac.69
(:tag :trac) (:tag :trac)
(setf (logical-pathname-translations "trac69")
'(("**;*.*.*" "/tmp/**/*.*")))
(assert-error 'lisp::namestring-parse-error (assert-error 'lisp::namestring-parse-error
(let ((*default-pathname-defaults* #p"trac69:")) (let ((*default-pathname-defaults* #p"trac69:"))
(pathname "/tmp/bar.lisp")))) (pathname "/tmp/bar.lisp"))))
......
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