Commit 0c92604d authored by pfdietz's avatar pfdietz
Browse files

Confirm that u-h-p returns only one value

parent f4d18970
......@@ -11,9 +11,12 @@
t)
(deftest user-homedir-pathname.2
(let ((pn (user-homedir-pathname)))
(notnot-mv (pathnamep pn)))
t)
(let* ((pn-list (multiple-value-list (user-homedir-pathname)))
(pn (first pn-list)))
(values
(length pn-list)
(notnot-mv (pathnamep pn))))
1 t)
(deftest user-homedir-pathname.3
(let ((pn (user-homedir-pathname)))
......
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