Skip to content
Snippets Groups Projects
Commit bdda2e5d authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

Removing some pathname tests on Windows, and some janderson comments.

parent 41a1df16
No related branches found
No related tags found
No related merge requests found
...@@ -426,20 +426,16 @@ ...@@ -426,20 +426,16 @@
;; we're testing with unix or some emulation, are we not? ;; we're testing with unix or some emulation, are we not?
(assert-pathname-equal (resolve-location '(:home)) (truename (user-homedir-pathname))) (assert-pathname-equal (resolve-location '(:home)) (truename (user-homedir-pathname)))
(assert-pathname-equal (resolve-location '("/foo" "bar" "baz")) #p"/foo/bar/baz") #-os-windows
(assert-pathname-equal (resolve-location '("/foo" "bar" "baz") :ensure-directory t) #p"/foo/bar/baz/") (progn
(assert-pathname-equal (resolve-location '("/foo" "bar" "baz") :ensure-directory t :wilden t) (wilden #p"/foo/bar/baz/")) (assert-pathname-equal (resolve-location '("/foo" "bar" "baz")) #p"/foo/bar/baz")
(assert-pathname-equal (resolve-location '("/foo" "bar" "baz") :ensure-directory nil :wilden t) (wilden #p"/foo/bar/")) (assert-pathname-equal (resolve-location '("/foo" "bar" "baz") :ensure-directory t) #p"/foo/bar/baz/")
(assert-pathname-equal (resolve-location '("/foo" "bar" :**/ "baz" #p"*.*") :ensure-directory nil :wilden t) #p"/foo/bar/**/baz/*.*") (assert-pathname-equal (resolve-location '("/foo" "bar" "baz") :ensure-directory t :wilden t) (wilden #p"/foo/bar/baz/"))
(assert-pathname-equal (resolve-location '("/foo" "bar" "baz") :ensure-directory nil :wilden t) (wilden #p"/foo/bar/"))
(assert-pathname-equal (resolve-location '("/foo" "bar" :**/ "baz" #p"*.*") :ensure-directory nil :wilden t) #p"/foo/bar/**/baz/*.*"))
(assert (directory-pathname-p (system-source-directory (find-system :test-asdf/test-source-directory-1)))) (assert (directory-pathname-p (system-source-directory (find-system :test-asdf/test-source-directory-1))))
(assert (directory-pathname-p (system-source-directory (find-system :test-asdf/test-source-directory-2)))) (assert (directory-pathname-p (system-source-directory (find-system :test-asdf/test-source-directory-2))))
#-gcl #-gcl
(assert (test-component-pathnames :delete-host t :support-string-pathnames nil)) (assert (test-component-pathnames :delete-host t :support-string-pathnames nil))
#|
(load "LIBRARY:de;setf;utility;asdf;cp-test.lisp")
(logical-pathname-translations "ASDFTEST")
(gethash "test-system" asdf::*defined-systems*)
|#
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment