mirror of
https://https.git.savannah.gnu.org/git/coreutils.git
synced 2026-01-30 19:34:26 +00:00
153 lines
3.7 KiB
Bash
Executable File
153 lines
3.7 KiB
Bash
Executable File
#!/bin/sh
|
|
# make sure chgrp is reasonable
|
|
|
|
# Copyright (C) 2000, 2001, 2003, 2004, 2005, 2006 Free Software
|
|
# Foundation, Inc.
|
|
|
|
# This program is free software; you can redistribute it and/or modify
|
|
# it under the terms of the GNU General Public License as published by
|
|
# the Free Software Foundation; either version 2 of the License, or
|
|
# (at your option) any later version.
|
|
|
|
# This program is distributed in the hope that it will be useful,
|
|
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
# GNU General Public License for more details.
|
|
|
|
# You should have received a copy of the GNU General Public License
|
|
# along with this program; if not, write to the Free Software
|
|
# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
|
|
# 02110-1301, USA.
|
|
|
|
if test "$VERBOSE" = yes; then
|
|
set -x
|
|
chgrp --version
|
|
fi
|
|
|
|
. $srcdir/../envvar-check
|
|
. $srcdir/../lang-default
|
|
. $srcdir/../group-names
|
|
|
|
pwd=`pwd`
|
|
tmp=basic.$$
|
|
trap 'status=$?; cd $pwd; rm -rf $tmp && exit $status' 0
|
|
trap '(exit $?); exit' 1 2 13 15
|
|
|
|
framework_failure=0
|
|
mkdir $tmp || framework_failure=1
|
|
cd $tmp || framework_failure=1
|
|
|
|
if test $framework_failure = 1; then
|
|
echo 'failure in testing framework' 1>&2
|
|
(exit 1); exit 1
|
|
fi
|
|
|
|
fail=0
|
|
|
|
set _ $groups; shift
|
|
g1=$1
|
|
g2=$2
|
|
mkdir d
|
|
touch f f2 d/f3
|
|
chgrp $g1 f || fail=1
|
|
chgrp $g2 f || fail=1
|
|
chgrp $g2 f2 || fail=1
|
|
chgrp -R $g1 d || fail=1
|
|
|
|
# Don't let verbose output interfere.
|
|
test "$VERBOSE" = yes && set +x
|
|
|
|
(
|
|
chgrp -c $g1 f
|
|
chgrp -c $g2 f
|
|
chgrp -c $g2 f
|
|
chgrp --verbose '' f
|
|
chgrp --verbose $g1 f
|
|
chgrp --verbose $g1 f
|
|
chgrp --verbose --reference=f2 f
|
|
chgrp -R --verbose $g2 d
|
|
chgrp -R --verbose $g1 d
|
|
chgrp -R -c $g2 d
|
|
chgrp -R -c $g1 d
|
|
chgrp -c $g2 d
|
|
|
|
rm -f f
|
|
touch f
|
|
ln -s f symlink
|
|
chgrp $g1 f
|
|
chgrp -h $g2 symlink
|
|
|
|
# This should not change the group of f.
|
|
chgrp -h -c $g2 symlink
|
|
chown --from=:$g1 -c :$g2 f
|
|
|
|
# This *should* change the group of f.
|
|
# Though note that the diagnostic is misleading in that
|
|
# it says the `group of `symlink'' has been changed.
|
|
chgrp -c $g1 symlink
|
|
chown --from=:$g1 -c :$g2 f
|
|
|
|
# If -R is specified without -H or L, -h is assumed.
|
|
chgrp -h $g1 f symlink
|
|
chgrp -R $g2 symlink
|
|
chown --from=:$g1 -c :$g2 f
|
|
|
|
# Make sure we can change the group of inaccessible files.
|
|
chmod a-r f
|
|
chown --from=:$g2 -c :$g1 f
|
|
chmod 0 f
|
|
chown --from=:$g1 -c :$g2 f
|
|
|
|
# chown() must not be optimized away even when
|
|
# the file's owner and group already have the desired value.
|
|
rm -f f g
|
|
touch f g
|
|
chgrp $g1 f g
|
|
chgrp $g2 g
|
|
sleep 1
|
|
chgrp $g1 f
|
|
|
|
# The following no-change chgrp command is supposed to update f's ctime,
|
|
# but on OpenBSD, it appears to be a no-op for some file system types
|
|
# (at least NFS) so g's ctime is more recent. This is not a big deal;
|
|
# this test works fine when the files are on a local file system (/tmp).
|
|
chgrp '' f
|
|
ls -c -t f g
|
|
|
|
) 2>&1 | sed "
|
|
s/' to .*[^0-9:].*/' to SOMENAME/
|
|
s/\([ :]\)$g1$/\1G1/
|
|
s/\([ :]\)$g2$/\1G2/
|
|
" > actual
|
|
|
|
cat <<\EOF > expected
|
|
changed group of `f' to G1
|
|
changed group of `f' to G2
|
|
ownership of `f' retained
|
|
changed group of `f' to G1
|
|
group of `f' retained as G1
|
|
changed group of `f' to SOMENAME
|
|
changed group of `d/f3' to G2
|
|
changed group of `d' to G2
|
|
changed group of `d/f3' to G1
|
|
changed group of `d' to G1
|
|
changed group of `d/f3' to G2
|
|
changed group of `d' to G2
|
|
changed group of `d/f3' to G1
|
|
changed group of `d' to G1
|
|
changed group of `d' to G2
|
|
changed ownership of `f' to :G2
|
|
changed group of `symlink' to G1
|
|
changed ownership of `f' to :G2
|
|
changed ownership of `f' to :G2
|
|
changed ownership of `f' to :G1
|
|
changed ownership of `f' to :G2
|
|
f
|
|
g
|
|
EOF
|
|
|
|
cmp expected actual \
|
|
|| { diff expected actual 1>&2; fail=1; }
|
|
|
|
(exit $fail); exit $fail
|