diff --git a/basis/io/standard-paths/unix/unix-tests.factor b/basis/io/standard-paths/unix/unix-tests.factor index 986c0564d2..221a8ac855 100644 --- a/basis/io/standard-paths/unix/unix-tests.factor +++ b/basis/io/standard-paths/unix/unix-tests.factor @@ -14,3 +14,8 @@ sequences tools.test ; { "/bin/ps" "/sbin/ps" "/usr/bin/ps" } member? ] with-os-env ] unit-test + +{ t } [ + "ls" find-in-standard-login-path + { "/bin/ls" "/usr/bin/ls" } member? +] unit-test diff --git a/basis/io/standard-paths/unix/unix.factor b/basis/io/standard-paths/unix/unix.factor index af9c35369a..107f28a05a 100644 --- a/basis/io/standard-paths/unix/unix.factor +++ b/basis/io/standard-paths/unix/unix.factor @@ -16,7 +16,7 @@ M: unix find-in-path* utf8 decode [ blank? ] trim ":" split ; : standard-login-paths ( -- strings ) - { "-l" "-c" "echo $PATH" } + { "-l" "-c" "echo \"$PATH\"" } effective-user-id user-passwd shell>> prefix binary stream-contents parse-login-paths ;