at master 999 B view raw
1diff -ur factor.orig/basis/io/standard-paths/unix/unix-tests.factor factor/basis/io/standard-paths/unix/unix-tests.factor 2--- factor.orig/basis/io/standard-paths/unix/unix-tests.factor 2024-02-09 14:38:33.932439180 +0100 3+++ factor/basis/io/standard-paths/unix/unix-tests.factor 2024-02-09 15:41:18.529141569 +0100 4@@ -1,21 +1,21 @@ 5 ! Copyright (C) 2011 Doug Coleman. 6 ! See https://factorcode.org/license.txt for BSD license. 7 USING: environment io.standard-paths io.standard-paths.unix 8-sequences tools.test ; 9+kernel sequences tools.test ; 10 11 { f } [ "" find-in-path ] unit-test 12 { t } [ 13- "ls" find-in-path { "/bin/ls" "/usr/bin/ls" } member? 14+ "ls" find-in-path not not 15 ] unit-test 16 17 { t } [ 18 "/sbin:" "PATH" os-env append "PATH" [ 19 "ps" find-in-path 20- { "/bin/ps" "/sbin/ps" "/usr/bin/ps" } member? 21+ not not 22 ] with-os-env 23 ] unit-test 24 25 { t } [ 26 "ls" find-in-standard-login-path 27- { "/bin/ls" "/usr/bin/ls" } member? 28+ not not 29 ] unit-test