Commit 6dd1f8e2 authored by Daniel Kochmański's avatar Daniel Kochmański

restructure: sample-files directory file-error fix

Signed-off-by: default avatarDaniel Kochmański <daniel@turtleware.eu>
parent 4841dc60
......@@ -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
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment