Don't fail part 2 of tests/rm/unreadable when run as root.

* tests/rm/unreadable: With UID == 0, expect different results.
Reported by Mike Frysinger.

diff --git a/ChangeLog b/ChangeLog
index 61ff6410107ac75fc26cf225057851097f994248..2757dff4a4a94d240d7e7d02ea9987a6f674fa02 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2007-10-24  Jim Meyering  <meyering@redhat.com>
+
+       Don't fail part 2 of tests/rm/unreadable when run as root.
+       * tests/rm/unreadable: With UID == 0, expect different results.
+       Reported by Mike Frysinger.
+
 2007-10-23  Jim Meyering  <meyering@redhat.com>
 
        * README-hacking: Refer to LZMA Utils <http://tukaani.org/lzma/>.

diff --git a/tests/rm/unreadable b/tests/rm/unreadable
index 2fbe0320d8af10c4bf4bc3d2e23bcacea7acb6ae..4af8280de2afd9c2b012419965aa5f5afa3e402c 100755 (executable)
--- a/tests/rm/unreadable
+++ b/tests/rm/unreadable
@@ -38,6 +38,7 @@ use strict;
 my $d = "dir-$$";
 my $mkdir = {PRE => sub {mkdir $d,0100 or die "$d: $!\n"}};
 my $prog = 'rm';
+my $uid = $<;
 
 my @Tests =
     (
@@ -47,8 +48,9 @@ my @Tests =
      ['unreadable-1', '-rf', $d, {EXIT => 0}, $mkdir],
 
      ['unreadable-2', '-rf', $d,
-      {EXIT => 1},
-      {ERR => "$prog: cannot remove \`$d': Permission denied\n"},
+      {EXIT => $uid == 0 ? 0 : 1},
+      {ERR => $uid == 0 ? ''
+                        : "$prog: cannot remove \`$d': Permission denied\n"},
       {PRE => sub { (mkdir $d,0700 and mkdir "$d/x",0700 and chmod 0100,$d)
                     or die "$d: $!\n"}} ],
     );