diff --git a/basis/io/standard-paths/unix/unix-tests.factor b/basis/io/standard-paths/unix/unix-tests.factor index 8b5298d9fb..6b8c042548 100644 --- a/basis/io/standard-paths/unix/unix-tests.factor +++ b/basis/io/standard-paths/unix/unix-tests.factor @@ -1,8 +1,14 @@ ! Copyright (C) 2011 Doug Coleman. ! See http://factorcode.org/license.txt for BSD license. -USING: io.standard-paths io.standard-paths.unix tools.test ; +USING: io.standard-paths io.standard-paths.unix sequences +tools.test ; IN: io.standard-paths.unix.tests -[ f ] [ "" find-in-path ] unit-test -[ "/bin/ls" ] [ "ls" find-in-path ] unit-test -[ "/sbin/ifconfig" ] [ "ifconfig" find-in-path ] unit-test +{ f } [ "" find-in-path ] unit-test +{ t } [ + "ls" find-in-path { "/bin/ls" "/usr/bin/ls" } member? +] unit-test +{ t } [ + "ifconfig" find-in-path + { "/sbin/ifconfig" "/usr/bin/ifconfig" } member? +] unit-test