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

Avoid a test failure on SBCL/Windows

parent 3b58612c
Loading
Loading
Loading
Loading
+2 −1
Original line number Diff line number Diff line
@@ -257,7 +257,8 @@
  (assert (not (base-string-p (strcat (basify "ab") #\c *last-char* (unbasify "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 +lf+ (map 'string 'code-char '(10)))