From bcfed1b200a6fe27e3b2fe4fb883e756d7d0cef5 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Thu, 26 May 2022 21:43:03 -0700 Subject: 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. --- tests/019/load-search.tl | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'tests/019') 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) -- cgit v1.2.3