tests: avoid a race in tail --retry testing
[coreutils.git] / tests / mv / i-3.sh
blob9f66edc6b6453580324a1bb79461f2cf6f259377
1 #!/bin/sh
2 # Make sure that 'mv file unwritable-file' prompts the user
3 # and that 'mv -f file unwritable-file' doesn't.
5 # Copyright (C) 2001-2013 Free Software Foundation, Inc.
7 # This program is free software: you can redistribute it and/or modify
8 # it under the terms of the GNU General Public License as published by
9 # the Free Software Foundation, either version 3 of the License, or
10 # (at your option) any later version.
12 # This program is distributed in the hope that it will be useful,
13 # but WITHOUT ANY WARRANTY; without even the implied warranty of
14 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 # GNU General Public License for more details.
17 # You should have received a copy of the GNU General Public License
18 # along with this program. If not, see <http://www.gnu.org/licenses/>.
20 . "${srcdir=.}/tests/init.sh"; path_prepend_ ./src
21 print_ver_ mv
22 require_controlling_input_terminal_
23 skip_if_root_
24 trap '' TTIN # Ignore SIGTTIN
26 test "$(uname -s)" = FreeBSD && skip_ "known spurious failure on FreeBSD"
28 touch f g h i || framework_failure_
29 chmod 0 g i || framework_failure_
32 ls /dev/stdin >/dev/null 2>&1 \
33 || skip_ 'there is no /dev/stdin file'
35 # work around a dash bug when redirecting
36 # from symlinked ttys in the background
37 tty=$(readlink -f /dev/stdin)
39 test -r "$tty" 2>&1 \
40 || skip_ '/dev/stdin is not readable'
42 mv f g < $tty > out 2>&1 & pid=$!
44 # Test for the expected prompt; sleep upon non-match.
45 check_overwrite_prompt()
47 local delay="$1"
48 case "$(cat out)" in
49 "mv: try to overwrite 'g', overriding mode 0000"*) ;;
50 *) sleep $delay; return 1;;
51 esac
54 # Wait for up to 12.7 seconds for the expected prompt.
55 retry_delay_ check_overwrite_prompt .1 7 || fail=1
57 kill $pid
59 mv -f h i > out 2>&1 || fail=1
60 test -f i || fail=1
61 test -f h && fail=1
63 # Make sure there was no prompt.
64 case "$(cat out)" in
65 '') ;;
66 *) fail=1 ;;
67 esac
69 Exit $fail