From: Jim Meyering <meyering@redhat.com>
Date: Tue, 11 Dec 2007 14:06:29 +0000 (+0100)
Subject: tests: rm/fail-eperm: require-non-root in perl, not sh
X-Git-Tag: v6.11~158
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=64b39468b8a5f43e6beeffc6fb7369ef05c16f53;p=thirdparty%2Fcoreutils.git

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

diff --git a/tests/rm/fail-eperm b/tests/rm/fail-eperm
index 7bc89da158..5fa54b097b 100755
--- a/tests/rm/fail-eperm
+++ b/tests/rm/fail-eperm
@@ -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.