1
0
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:
Jim Meyering
2007-12-11 15:06:29 +01:00
parent 39137a5d05
commit 64b39468b8

View File

@@ -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.