21 lines
473 B
Perl
21 lines
473 B
Perl
|
#!/bin/sh
|
||
|
|
# $FreeBSD: head/tools/regression/pjdfstest/tests/chmod/01.t 211474 2010-08-18 22:06:43Z pjd $
|
||
|
|
|
||
|
|
desc="chmod returns ENOTDIR if a component of the path prefix is not a directory"
|
||
|
|
|
||
|
|
dir=`dirname $0`
|
||
|
|
. ${dir}/../misc.sh
|
||
|
|
|
||
|
|
echo "1..17"
|
||
|
|
|
||
|
|
n0=`namegen`
|
||
|
|
n1=`namegen`
|
||
|
|
|
||
|
|
expect 0 mkdir ${n0} 0755
|
||
|
|
for type in regular fifo block char socket; do
|
||
|
|
create_file ${type} ${n0}/${n1}
|
||
|
|
expect ENOTDIR chmod ${n0}/${n1}/test 0644
|
||
|
|
expect 0 unlink ${n0}/${n1}
|
||
|
|
done
|
||
|
|
expect 0 rmdir ${n0}
|