25 lines
618 B
Perl
25 lines
618 B
Perl
|
#!/bin/sh
|
||
|
|
# $FreeBSD: head/tools/regression/pjdfstest/tests/chown/02.t 211352 2010-08-15 21:24:17Z pjd $
|
||
|
|
|
||
|
|
desc="chown returns ENAMETOOLONG if a component of a pathname exceeded ${NAME_MAX} characters"
|
||
|
|
|
||
|
|
dir=`dirname $0`
|
||
|
|
. ${dir}/../misc.sh
|
||
|
|
|
||
|
|
echo "1..10"
|
||
|
|
|
||
|
|
nx=`namegen_max`
|
||
|
|
nxx="${nx}x"
|
||
|
|
|
||
|
|
expect 0 create ${nx} 0644
|
||
|
|
expect 0 chown ${nx} 65534 65534
|
||
|
|
expect 65534,65534 stat ${nx} uid,gid
|
||
|
|
expect 0 unlink ${nx}
|
||
|
|
expect ENAMETOOLONG chown ${nxx} 65534 65534
|
||
|
|
|
||
|
|
expect 0 create ${nx} 0644
|
||
|
|
expect 0 lchown ${nx} 65534 65534
|
||
|
|
expect 65534,65534 stat ${nx} uid,gid
|
||
|
|
expect 0 unlink ${nx}
|
||
|
|
expect ENAMETOOLONG lchown ${nxx} 65534 65534
|