#!/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

touch file || framework_failure=1
chmod u-w file || framework_failure=1
(echo foo >> file) >/dev/null 2>&1 && {
  echo '********************************************'
  echo "$0: NOTICE: This test case cannot be run as root."
  echo '********************************************'
  exit 77
}

if test $framework_failure = 1; then
  echo 'failure in testing framework'
  exit 1
fi

fail=0

# This is expected to exit non-zero, because it can't read D/a.
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
