20 lines
395 B
Perl
20 lines
395 B
Perl
|
#!/bin/sh
|
||
|
|
# $FreeBSD$
|
||
|
|
|
||
|
|
desc="open returns EACCES when O_CREAT is specified, the file does not exist, and the directory in which it is to be created does not permit writing"
|
||
|
|
|
||
|
|
dir=`dirname $0`
|
||
|
|
. ${dir}/../misc.sh
|
||
|
|
|
||
|
|
echo "1..3"
|
||
|
|
|
||
|
|
n0=`namegen`
|
||
|
|
n1=`namegen`
|
||
|
|
|
||
|
|
expect 0 mkdir ${n0} 0755
|
||
|
|
cdir=`pwd`
|
||
|
|
cd ${n0}
|
||
|
|
expect EACCES -u 65534 -g 65534 open ${n1} O_RDONLY,O_CREAT 0644
|
||
|
|
cd ${cdir}
|
||
|
|
expect 0 rmdir ${n0}
|