mirror of
git://git.sv.gnu.org/coreutils.git
synced 2026-04-20 18:56:39 +02:00
3c88587b2e
Run this command to remove the factored-out "fail=0" lines. perl -ni -e '/^fail=0$/ or print' $(g grep -l '^fail=0$') * tests/test-lib.sh: Initialize fail=0 here, not in 300+ scripts. * tests/...: nearly all bourne shell scripts Suggested by Eric Blake.
82 lines
2.4 KiB
Bash
Executable File
82 lines
2.4 KiB
Bash
Executable File
#!/bin/sh
|
|
# Tests for ln -L/-P.
|
|
|
|
# Copyright (C) 2009 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 3 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, see <http://www.gnu.org/licenses/>.
|
|
|
|
if test "$VERBOSE" = yes; then
|
|
set -x
|
|
ln --version
|
|
fi
|
|
|
|
. $srcdir/test-lib.sh
|
|
|
|
|
|
# ===================================================
|
|
# ensure -s silently overrides -L, -P
|
|
touch a || framework_failure
|
|
ln -L -s a symlink1 || fail=1
|
|
ln -P -s symlink1 symlink2 || fail=1
|
|
ln -s -L -P symlink2 symlink3 || fail=1
|
|
|
|
# ===================================================
|
|
# ensure that -L follows symlinks, and overrides -P
|
|
ln -P -L symlink3 hard-to-a || fail=1
|
|
ls=`ls -lG hard-to-a`x
|
|
case "$ls" in
|
|
*'hard-to-ax') ;;
|
|
*'hard-to-a -> '*x) fail=1 ;;
|
|
*) framework_failure ;;
|
|
esac
|
|
|
|
# ===================================================
|
|
# ensure that -P links (or at least duplicates) symlinks, and overrides -L
|
|
ln -L -P symlink3 hard-to-3 || fail=1
|
|
ls=`ls -lG hard-to-3`x
|
|
case "$ls" in
|
|
*'hard-to-3 -> symlink2x') ;;
|
|
*'hard-to-3x') fail=1 ;;
|
|
*'hard-to-3 -> '*x) fail=1 ;;
|
|
*) framework_failure ;;
|
|
esac
|
|
|
|
# ===================================================
|
|
# Create a hard link to a dangling symlink.
|
|
ln -s /no-such-dir || framework_failure
|
|
ln -L no-such-dir hard-to-dangle 2>err && fail=1
|
|
case `cat err` in
|
|
*' accessing `no-such-dir'\':*) ;;
|
|
*) fail=1 ;;
|
|
esac
|
|
ln -P no-such-dir hard-to-dangle || fail=1
|
|
|
|
# ===================================================
|
|
# Create a hard link to a symlink to a directory.
|
|
mkdir d || framework_failure
|
|
ln -s d link-to-dir || framework_failure
|
|
ln -L link-to-dir hard-to-dir-link 2>err && fail=1
|
|
case `cat err` in
|
|
*': `link-to-dir'\'': hard link not allowed for directory'*) ;;
|
|
*) fail=1 ;;
|
|
esac
|
|
ln -P link-to-dir/ hard-to-dir-link 2>err && fail=1
|
|
case `cat err` in
|
|
*': `link-to-dir/'\'': hard link not allowed for directory'*) ;;
|
|
*) fail=1 ;;
|
|
esac
|
|
ln -P link-to-dir hard-to-dir-link || fail=1
|
|
|
|
Exit $fail
|