From 64b39468b8a5f43e6beeffc6fb7369ef05c16f53 Mon Sep 17 00:00:00 2001
From: Jim Meyering <meyering@redhat.com>
Date: Tue, 11 Dec 2007 15:06:29 +0100
Subject: 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.
---
 tests/rm/fail-eperm | 11 +++++------
 1 file changed, 5 insertions(+), 6 deletions(-)

(limited to 'tests/rm')

diff --git a/tests/rm/fail-eperm b/tests/rm/fail-eperm
index 7bc89da15..5fa54b097 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.
-- 
cgit v1.2.3-54-g00ecf