Commit a542fe27 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau Committed by Elias Pipping
Browse files

asdf-pathname-test: simplify the last test, disable on windows

parent 408ccf50
Loading
Loading
Loading
Loading
+6 −6
Original line number Original line Diff line number Diff line
@@ -469,9 +469,9 @@
(test-pathname-parsing)
(test-pathname-parsing)


;;; test for CMUCL issue with search lists versus pathnames
;;; test for CMUCL issue with search lists versus pathnames
(DBG "Checking CMUCL user-homedir-pathname issue.")
#+os-unix
(assert
(progn
 (multiple-value-bind (value error)
  (DBG "Checking CMUCL user-homedir-pathname issue.")
     (ignore-errors
  (assert (pathname-match-p
      (pathname-match-p (uiop::user-homedir-pathname) (uiop:getenv "HOME")))
	   (uiop/common-lisp:user-homedir-pathname)
   (null error)))
	   (getenv-pathname "HOME"))))