Commit 92d5034d authored by Francois-Rene Rideau's avatar Francois-Rene Rideau Committed by Robert P. Goldman
Browse files

Avoid a test failure on SBCL/Windows

parent 7b41a6f8
...@@ -261,7 +261,8 @@ ...@@ -261,7 +261,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))))
(assert-pathname-equal *test-directory* (getcwd)) (or #+os-windows (equalp *test-directory* (getcwd)) ;; Avoid C:\Users vs C:\users on SBCL.
(assert-pathname-equal *test-directory* (getcwd)))
(assert-equal +crlf+ (map 'string 'code-char '(13 10))) (assert-equal +crlf+ (map 'string 'code-char '(13 10)))
(assert-equal +lf+ (map 'string 'code-char '(10))) (assert-equal +lf+ (map 'string 'code-char '(10)))
Markdown is supported
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