maint: tests: update deprecated perl backreference syntax
[coreutils.git] / tests / misc / close-stdout.sh
blobc508986ad99b9f3a557348fa4fdf2c1c006b633d
1 #!/bin/sh
2 # Ensure that several programs work fine, even with stdout initially closed.
3 # This is effectively a test of closeout.c's close_stdout function.
5 # Copyright (C) 2004-2024 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 <https://www.gnu.org/licenses/>.
20 . "${srcdir=.}/tests/init.sh"; path_prepend_ ./src
21 print_ver_ rm
23 p=$abs_top_builddir
26 # Ensure these exit successfully, even though stdout is closed,
27 # because they generate no output.
28 touch a
29 cp a b >&- || fail=1
30 test -f b || fail=1
31 chmod o-w . >&- || fail=1
32 ln a c >&- || fail=1
33 rm c >&- || fail=1
34 mkdir d >&- || fail=1
35 mv d e >&- || fail=1
36 rmdir e >&- || fail=1
37 touch e >&- || fail=1
38 sleep 0 >&- || fail=1
39 "$p/src/true" >&- || fail=1
40 "$p/src/printf" '' >&- || fail=1
42 # If >&- works, ensure these fail, because stdout is closed and they
43 # *do* generate output. >&- apparently does not work in HP-UX 11.23.
44 # This test is ineffective unless /dev/stdout also works.
45 if "$p/src/test" -w /dev/stdout >/dev/null &&
46 "$p/src/test" ! -w /dev/stdout >&-; then
47 returns_ 1 "$p/src/printf" 'foo' >&- 2>/dev/null || fail=1
48 returns_ 1 cp --verbose a b >&- 2>/dev/null || fail=1
49 rm -Rf tmpfile-?????? || fail=1
50 returns_ 1 mktemp tmpfile-XXXXXX >&- 2>/dev/null || fail=1
51 returns_ 1 mktemp tmpfile-XXXXXX -q >&- 2>/dev/null || fail=1
52 case $(echo tmpfile-??????) in 'tmpfile-??????') ;; *) fail=1 ;; esac
55 # Likewise for /dev/full, if /dev/full works.
56 if test -w /dev/full && test -c /dev/full; then
57 returns_ 1 "$p/src/printf" 'foo' >/dev/full 2>/dev/null || fail=1
58 returns_ 1 cp --verbose a b >/dev/full 2>/dev/null || fail=1
59 rm -Rf tmpdir-?????? || fail=1
60 returns_ 1 mktemp -d tmpdir-XXXXXX >/dev/full 2>/dev/null || fail=1
61 returns_ 1 mktemp -d -q tmpdir-XXXXXX >/dev/full 2>/dev/null || fail=1
62 case $(echo tmpfile-??????) in 'tmpfile-??????') ;; *) fail=1 ;; esac
65 Exit $fail