(defparameter *test-path*

   (merge-pathnames (make-pathname :name :unspecific :type :unspecific

                                   :version :unspecific)

                    *load-truename*)

   "Directory for temporary test files.")

 (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

 dir/dir-in-dir

 file