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 | bcfed1b200a6fe27e3b2fe4fb883e756d7d0cef5 (patch) | |
| tree | dd65c9d95a8cad3d8a0ef4580e9a52af79a14382 | |
| parent | 3c42ed2d6753edbc52cff72d1524e5202f996d7d (diff) | |
| download | txr-bcfed1b200a6fe27e3b2fe4fb883e756d7d0cef5.tar.gz txr-bcfed1b200a6fe27e3b2fe4fb883e756d7d0cef5.tar.bz2 txr-bcfed1b200a6fe27e3b2fe4fb883e756d7d0cef5.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) |