From 34591391d13efb3d44e658e2c677863a4a7f185c Mon Sep 17 00:00:00 2001
From: Jim Meyering <jim@meyering.net>
Date: Sun, 25 Jun 2000 20:15:22 +0000
Subject: *** empty log message ***

---
 tests/cp/fail-perm | 32 ++++++++++++++++++++++++++++++++
 1 file changed, 32 insertions(+)
 create mode 100755 tests/cp/fail-perm

(limited to 'tests/cp/fail-perm')

diff --git a/tests/cp/fail-perm b/tests/cp/fail-perm
new file mode 100755
index 000000000..332b5b354
--- /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
-- 
cgit v1.2.3-70-g09d2