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 @@
t t t)
(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)))
(values
(notnot (typep c 'file-error))
......@@ -65,7 +65,7 @@
t t t)
(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)
(let ((c (make-condition 'file-error :pathname s)))
(values
......
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