From: Jim Meyering <jim@meyering.net>
Date: Sun, 25 Jun 2000 20:15:22 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Tag: FILEUTILS-4_0w~66
X-Git-Url: http://git.ipfire.org/gitweb/index.cgi?a=commitdiff_plain;h=34591391d13efb3d44e658e2c677863a4a7f185c;p=thirdparty%2Fcoreutils.git

*** empty log message ***
---

diff --git a/tests/cp/fail-perm b/tests/cp/fail-perm
new file mode 100755
index 0000000000..332b5b3546
--- /dev/null
+++ b/tests/cp/fail-perm
@@ -0,0 +1,32 @@
+#!/bin/sh
+
+pwd=`pwd`
+tmp=fail-perm.$$
+trap 'status=$?; cd $pwd; rm -rf $tmp && exit $status' 0
+trap 'exit $?' 1 2 13 15
+
+framework_failure=0
+mkdir $tmp || framework_failure=1
+cd $tmp || framework_failure=1
+
+mkdir D || framework_failure=1
+touch D/a || framework_failure=1
+chmod 0 D/a || framework_failure=1
+chmod 500 D || framework_failure=1
+
+if test $framework_failure = 1; then
+  echo 'failure in testing framework'
+  exit 1
+fi
+
+fail=0
+cp -pR D DD > /dev/null 2>&1 || fail=1
+
+# Permissions on DD must be `dr-x------'
+
+set X `ls -ld DD`
+shift
+test "$1" = dr-x------ || fail=1
+chmod 700 D
+
+(exit $fail); exit