Commit 0a3268b0 authored by Robert Goldman's avatar Robert Goldman Committed by Elias Pipping
Browse files

Fix test on clisp.

Use of PATHNAME-MATCH caused spurious test failures on clisp.
parent aca81698
;;; -*- Lisp -*- ;;; -*- Lisp -*-
(in-package :asdf-test)
(eval-when (:compile-toplevel :load-toplevel :execute) (eval-when (:compile-toplevel :load-toplevel :execute)
#-(or xcl gcl) (push :asdf-test-logical-pathname *features*) #-(or xcl gcl) (push :asdf-test-logical-pathname *features*)
...@@ -472,6 +473,6 @@ ...@@ -472,6 +473,6 @@
#+os-unix #+os-unix
(progn (progn
(DBG "Checking CMUCL user-homedir-pathname issue.") (DBG "Checking CMUCL user-homedir-pathname issue.")
(assert (pathname-match-p (assert (pathname-equal
(uiop/common-lisp:user-homedir-pathname) (uiop/common-lisp:user-homedir-pathname)
(getenv-pathname "HOME" :want-directory t)))) (getenv-pathname "HOME" :want-directory t))))
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment