Commit f9105317 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

Fix test-utilities: EQUALP doesn't actually descend into pathnames. Use namestrings.

parent ed886ac0
Loading
Loading
Loading
Loading
+3 −1
Original line number Diff line number Diff line
@@ -36,6 +36,7 @@
  (simple-warning (c)
    (assert (search "Requested version ~S but ~S has no version" (simple-condition-format-control c))))
  (:no-error (x)
    (declare (ignore x))
    (error "version-satisfies must warn when given component without version")))
(assert (version<= "2.0" (asdf-version)))
(assert (not (version-satisfies (asdf-version) "666")))
@@ -257,7 +258,8 @@
  (assert (not (base-string-p (strcat (basify "ab") #\c *last-char* (unbasify "d")))))
  (assert (base-string-p (strcat (basify "ab") #\c #\d))))

(or #+os-windows (equalp *test-directory* (getcwd)) ;; Avoid C:\Users vs C:\users on SBCL.
(or #+os-windows ;; Avoid C:\Users vs C:\users on SBCL.
    (equalp (namestring *test-directory*) (namestring (getcwd)))
    (assert-pathname-equal *test-directory* (getcwd)))

(assert-equal +crlf+ (map 'string 'code-char '(13 10)))