Skip to content
Snippets Groups Projects
Commit 6dd1f8e2 authored by Daniel Kochmański's avatar Daniel Kochmański
Browse files

restructure: sample-files directory file-error fix

parent 4841dc60
No related branches found
No related tags found
No related merge requests found
File moved
...@@ -56,7 +56,7 @@ ...@@ -56,7 +56,7 @@
t t t) t t t)
(deftest file-error-pathname.5 (deftest file-error-pathname.5
(with-open-file (s "sample-files/file-error.txt" :direction :input) (with-open-file (s "file-error.txt" :direction :input)
(let ((c (make-condition 'file-error :pathname s))) (let ((c (make-condition 'file-error :pathname s)))
(values (values
(notnot (typep c 'file-error)) (notnot (typep c 'file-error))
...@@ -65,7 +65,7 @@ ...@@ -65,7 +65,7 @@
t t t) t t t)
(deftest file-error-pathname.6 (deftest file-error-pathname.6
(let ((s (open "sample-files/file-error.txt" :direction :input))) (let ((s (open "file-error.txt" :direction :input)))
(close s) (close s)
(let ((c (make-condition 'file-error :pathname s))) (let ((c (make-condition 'file-error :pathname s)))
(values (values
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment