diff --git a/tests/issues.lisp b/tests/issues.lisp index d709a71910c4cae2e5aeca42c6ac2e950dc1c1fb..6bd341344d5a089e64a5757a7b05f6b79b14d043 100644 --- a/tests/issues.lisp +++ b/tests/issues.lisp @@ -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))))) diff --git a/tests/resources/mr.15/dir/file-in-dir b/tests/resources/mr.15/dir/file-in-dir new file mode 100644 index 0000000000000000000000000000000000000000..e69de29bb2d1d6434b8b29ae775ad8c2e48c5391 diff --git a/tests/resources/mr.15/file b/tests/resources/mr.15/file new file mode 100644 index 0000000000000000000000000000000000000000..e69de29bb2d1d6434b8b29ae775ad8c2e48c5391 diff --git a/tests/resources/mr.15/link-to-dir b/tests/resources/mr.15/link-to-dir new file mode 120000 index 0000000000000000000000000000000000000000..87245193225f8ff56488ceab0dcd11467fe098d0 --- /dev/null +++ b/tests/resources/mr.15/link-to-dir @@ -0,0 +1 @@ +dir \ No newline at end of file diff --git a/tests/resources/mr.15/link-to-dir-in-dir b/tests/resources/mr.15/link-to-dir-in-dir new file mode 120000 index 0000000000000000000000000000000000000000..bef86c03dc6250104131e2bcfffac214ef2a511d --- /dev/null +++ b/tests/resources/mr.15/link-to-dir-in-dir @@ -0,0 +1 @@ +dir/dir-in-dir \ No newline at end of file diff --git a/tests/resources/mr.15/link-to-file b/tests/resources/mr.15/link-to-file new file mode 120000 index 0000000000000000000000000000000000000000..1a010b1c0f081b2e8901d55307a15c29ff30af0e --- /dev/null +++ b/tests/resources/mr.15/link-to-file @@ -0,0 +1 @@ +file \ No newline at end of file