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

Merge branch 'test-for-mr.15' into 'master'

Add a test for MR !15



See merge request !16
parents 4bf2062f 7b85c61b
No related branches found
No related tags found
No related merge requests found
...@@ -12,6 +12,12 @@ ...@@ -12,6 +12,12 @@
(declare (ignore arg)) (declare (ignore arg))
form) 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 (define-test issue.1.a
(:tag :issues) (:tag :issues)
(assert-equal (assert-equal
...@@ -321,3 +327,23 @@ ...@@ -321,3 +327,23 @@
(assert-error 'kernel:simple-program-error (assert-error 'kernel:simple-program-error
(ext:run-program "cat" nil (ext:run-program "cat" nil
:before-execve t))) :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
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