projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fix merging of ~/ pathnames.
[sbcl.git]
/
tests
/
pathnames.impure.lisp
diff --git
a/tests/pathnames.impure.lisp
b/tests/pathnames.impure.lisp
index
0b06d6f
..
4361c3d
100644
(file)
--- a/
tests/pathnames.impure.lisp
+++ b/
tests/pathnames.impure.lisp
@@
-579,7
+579,9
@@
;; Not at the start of the first directory
(assert (equal (native-namestring #p"foo/~/bar")
#-win32 "foo/~/bar"
;; Not at the start of the first directory
(assert (equal (native-namestring #p"foo/~/bar")
#-win32 "foo/~/bar"
- #+win32 "foo\\~\\bar")))
+ #+win32 "foo\\~\\bar"))
+ (equal (native-namestring (merge-pathnames "~/"))
+ (native-namestring (user-homedir-pathname))))
;;; lp#673625
(with-test (:name :pathname-escape-first-directory-component
;;; lp#673625
(with-test (:name :pathname-escape-first-directory-component