diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2022-05-26 21:43:03 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2022-05-26 21:43:03 -0700 |
| commit | 93ec065e3730df87fb8e0184f34acb0cc1e28b23 (patch) | |
| tree | dd65c9d95a8cad3d8a0ef4580e9a52af79a14382 | |
| parent | 8a163ebc5d1a47c616e1c51df0be9ecb40bc8f85 (diff) | |
| download | txr-93ec065e3730df87fb8e0184f34acb0cc1e28b23.tar.gz txr-93ec065e3730df87fb8e0184f34acb0cc1e28b23.tar.bz2 txr-93ec065e3730df87fb8e0184f34acb0cc1e28b23.zip | |
tests: fix failing load-search test.
* tests/019/load-search.tl: skip a certain test if it is run as
superuser; it fails because superuser is not affected by denied
directory search and execute permissions.
| -rw-r--r-- | tests/019/load-search.tl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/tests/019/load-search.tl b/tests/019/load-search.tl index 5b742eb5..3ba29790 100644 --- a/tests/019/load-search.tl +++ b/tests/019/load-search.tl @@ -58,7 +58,8 @@ (lod "c") "c.tl\n") -(unless (meq (os-symbol) :cygwin :cygnal) +(unless (or (meq (os-symbol) :cygwin :cygnal) + (zerop (geteuid))) (push `@cur/unreadable` *load-search-dirs*) (push-after-load (rmdir `@cur/unreadable`)) (ensure-dir `@cur/unreadable` 0) |