basis/io/standard-paths/unix/unix-tests.factor

   1 ! Copyright (C) 2011 Doug Coleman.
   2 ! See https://factorcode.org/license.txt for BSD license.
   3 USING: environment io.standard-paths io.standard-paths.unix
   4 sequences tools.test ;
   5
   6 { f } [ "" find-in-path ] unit-test
   7 { t } [
   8     "ls" find-in-path { "/bin/ls" "/usr/bin/ls" } member?
   9 ] unit-test
  10
  11 { t } [
  12     "/sbin:" "PATH" os-env append "PATH" [
  13         "ps" find-in-path
  14         { "/bin/ps" "/sbin/ps" "/usr/bin/ps" } member?
  15     ] with-os-env
  16 ] unit-test
  17
  18 { t } [
  19     "ls" find-in-standard-login-path
  20     { "/bin/ls" "/usr/bin/ls" } member?
  21 ] unit-test