646b892680
Some checks failed
Periodic Merges (6h) / master → staging-nixos (push) Failing after 12m50s
Periodic Merges (6h) / master → staging-next (push) Failing after 12m54s
Periodic Merges (24h) / merge-base(master,staging) → haskell-updates (push) Failing after 11m54s
Periodic Merges (6h) / staging-next → staging (push) Failing after 12m13s
Periodic Merges (24h) / staging-next-25.05 → staging-25.05 (push) Failing after 13m24s
Periodic Merges (24h) / release-25.05 → staging-next-25.05 (push) Failing after 14m28s
30 lines
999 B
Diff
30 lines
999 B
Diff
diff -ur factor.orig/basis/io/standard-paths/unix/unix-tests.factor factor/basis/io/standard-paths/unix/unix-tests.factor
|
|
--- factor.orig/basis/io/standard-paths/unix/unix-tests.factor 2024-02-09 14:38:33.932439180 +0100
|
|
+++ factor/basis/io/standard-paths/unix/unix-tests.factor 2024-02-09 15:41:18.529141569 +0100
|
|
@@ -1,21 +1,21 @@
|
|
! Copyright (C) 2011 Doug Coleman.
|
|
! See https://factorcode.org/license.txt for BSD license.
|
|
USING: environment io.standard-paths io.standard-paths.unix
|
|
-sequences tools.test ;
|
|
+kernel sequences tools.test ;
|
|
|
|
{ f } [ "" find-in-path ] unit-test
|
|
{ t } [
|
|
- "ls" find-in-path { "/bin/ls" "/usr/bin/ls" } member?
|
|
+ "ls" find-in-path not not
|
|
] unit-test
|
|
|
|
{ t } [
|
|
"/sbin:" "PATH" os-env append "PATH" [
|
|
"ps" find-in-path
|
|
- { "/bin/ps" "/sbin/ps" "/usr/bin/ps" } member?
|
|
+ not not
|
|
] with-os-env
|
|
] unit-test
|
|
|
|
{ t } [
|
|
"ls" find-in-standard-login-path
|
|
- { "/bin/ls" "/usr/bin/ls" } member?
|
|
+ not not
|
|
] unit-test
|