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 Diff line number Diff line
@@ -469,9 +469,9 @@
(test-pathname-parsing)

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