Skip to content
Snippets Groups Projects
Commit 503b4cb1 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau Committed by Robert P. Goldman
Browse files

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

parent 92d5034d
No related branches found
No related tags found
No related merge requests found
...@@ -36,6 +36,7 @@ ...@@ -36,6 +36,7 @@
(simple-warning (c) (simple-warning (c)
(assert (search "Requested version ~S but ~S has no version" (simple-condition-format-control c)))) (assert (search "Requested version ~S but ~S has no version" (simple-condition-format-control c))))
(:no-error (x) (:no-error (x)
(declare (ignore x))
(error "version-satisfies must warn when given component without version"))) (error "version-satisfies must warn when given component without version")))
(assert (version<= "2.0" (asdf-version))) (assert (version<= "2.0" (asdf-version)))
(assert (not (version-satisfies (asdf-version) "666"))) (assert (not (version-satisfies (asdf-version) "666")))
...@@ -261,7 +262,8 @@ ...@@ -261,7 +262,8 @@
(assert (not (base-string-p (strcat (basify "ab") #\c *last-char* (unbasify "d"))))) (assert (not (base-string-p (strcat (basify "ab") #\c *last-char* (unbasify "d")))))
(assert (base-string-p (strcat (basify "ab") #\c #\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-pathname-equal *test-directory* (getcwd)))
(assert-equal +crlf+ (map 'string 'code-char '(13 10))) (assert-equal +crlf+ (map 'string 'code-char '(13 10)))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment