Commit 7b85c61b authored by Elias Pipping's avatar Elias Pipping
Browse files

Add a test for MR !15

parent 4bf2062f
......@@ -12,6 +12,12 @@
(declare (ignore arg))
form)
(defparameter *test-path*
(merge-pathnames (make-pathname :name :unspecific :type :unspecific
:version :unspecific)
*load-truename*)
"Directory for temporary test files.")
(define-test issue.1.a
(:tag :issues)
(assert-equal
......@@ -321,3 +327,23 @@
(assert-error 'kernel:simple-program-error
(ext:run-program "cat" nil
:before-execve t)))
(define-test mr.15
(:tag :issues)
(let (directories files)
(dolist (entry (directory (merge-pathnames "resources/mr.15/*.*" *test-path*)
:check-for-subdirs t
:follow-links nil
:truenamep nil))
(let ((filename (pathname-name entry))
(directory (first (last (pathname-directory entry)))))
(if filename
(push filename files)
(push directory directories))))
(assert (null (set-difference files
'("file" "link-to-dir"
"link-to-dir-in-dir" "link-to-file")
:test #'string-equal)))
(assert (null (set-difference directories
'(".dir" "dir")
:test #'string-equal)))))
dir
\ No newline at end of file
dir/dir-in-dir
\ No newline at end of file
file
\ No newline at end of file
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