mirror of
git://git.sv.gnu.org/coreutils.git
synced 2026-02-14 19:32:10 +02:00
tests: rm/fail-eperm: require-non-root in perl, not sh
Since it creates no temporaries and since it requires non-root, do the require-non-root bit in perl, rather than using test-lib.sh.
This commit is contained in:
@@ -27,12 +27,6 @@ fi
|
||||
# searching below. root can simply create the required
|
||||
# dir/files and run the test as someone else.
|
||||
|
||||
. $srcdir/../test-lib.sh
|
||||
skip_if_root_
|
||||
|
||||
: ${srcdir=.}
|
||||
. $srcdir/../require-perl
|
||||
|
||||
ARGV_0=$0
|
||||
export ARGV_0
|
||||
|
||||
@@ -42,6 +36,11 @@ use strict;
|
||||
|
||||
(my $ME = $ENV{ARGV_0}) =~ s|.*/||;
|
||||
|
||||
my $uid = $<;
|
||||
# skip if root
|
||||
$uid == 0
|
||||
and (warn "$ME: can't run this test as root: skipping this test"), exit 77;
|
||||
|
||||
my $verbose = $ENV{VERBOSE} && $ENV{VERBOSE} eq 'yes';
|
||||
|
||||
# Ensure that the diagnostics are in English.
|
||||
|
||||
Reference in New Issue
Block a user