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

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