Changeset 14620


Ignore:
Timestamp:
01/30/14 14:10:04 (7 years ago)
Author:
Mark Evenson
Message:

Test towards working through ASDF bundle-op with WILD-INFERIORS problems.

WILD.PATHNAMES.1 normalization problems were fixed by relaxing
semantics on resolving symlinks in CL:DIRECTORY calls.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/test/lisp/abcl/wild-pathnames.lisp

    r13010 r14620  
    77
    88(defvar *temp-directory-root*
    9   (merge-pathnames "tmp/" *this-directory*))
     9  (ext:make-temp-directory))
    1010
    1111(defun create-wild-test-hierarchy ()
     12  (ensure-directories-exist *temp-directory-root*)
    1213  (dolist (file *test-files*)
    1314    (let ((file (merge-pathnames file *temp-directory-root*)))
    1415      (ensure-directories-exist (directory-namestring file))
    15       (touch file))))
     16    (unless (probe-file file)
     17    (touch file)))))
    1618
    1719(defun remove-wild-test-hierarchy ()
    18   (delete-directory-and-files *temp-directory-root*))
     20  (ignore-errors
     21  (delete-directory-and-files *temp-directory-root*)))
    1922
    2023(defmacro with-test-directories (&rest body)
     
    3033   
    3134(deftest wild-pathnames.1
    32     (let ((results
    33            (with-test-directories
    34                (directory (merge-pathnames "**/*.ext"
    35                                            *temp-directory-root*))))
    36           (expected
    37            (loop :for file :in *test-files*
    38               :collecting (merge-pathnames file
    39                                            *temp-directory-root*))))
    40       (set-equal results expected))
     35  (with-test-directories
     36    (let ((results
     37         (directory (merge-pathnames "**/*.ext"
     38                       *temp-directory-root*)))
     39        (expected
     40         (loop :for file :in *test-files*
     41          :collecting (merge-pathnames file
     42                         *temp-directory-root*))))
     43    (values
     44     (eq (length results) (length expected))
     45    ;; link --> file is not resolved by change in DIRECTORY to :RESOLVE-SYMLINKS nil
     46     results
     47     expected
     48     (set-equal (mapcar #'truename results)
     49          (mapcar #'truename expected)))))
    4150  t)
    4251
    43 ;;; XXX try to track this down by going to the git version?
    44 ;;;
    45 ;;; Passing, but some form of :VERSION :NEWEST was failing for
    46 ;;; ASDF-2.116 according to Faré in proviate email of 18.08.2010
    4752(deftest wild-pathnames.2
    4853    (equal
     
    5459  t)
    5560
     61 
    5662
Note: See TracChangeset for help on using the changeset viewer.