2010-10-17 02:36:56 +08:00
|
|
|
#!/bin/sh
|
|
|
|
|
2011-02-17 20:38:52 +08:00
|
|
|
test_expect_success PERL 'set up terminal for tests' '
|
|
|
|
# Reading from the pty master seems to get stuck _sometimes_
|
|
|
|
# on Mac OS X 10.5.0, using Perl 5.10.0 or 5.8.9.
|
|
|
|
#
|
|
|
|
# Reproduction recipe: run
|
|
|
|
#
|
|
|
|
# i=0
|
|
|
|
# while ./test-terminal.perl echo hi $i
|
|
|
|
# do
|
|
|
|
# : $((i = $i + 1))
|
|
|
|
# done
|
|
|
|
#
|
|
|
|
# After 2000 iterations or so it hangs.
|
|
|
|
# https://rt.cpan.org/Ticket/Display.html?id=65692
|
|
|
|
#
|
|
|
|
if test "$(uname -s)" = Darwin
|
|
|
|
then
|
|
|
|
:
|
|
|
|
elif
|
2013-10-29 09:23:03 +08:00
|
|
|
perl "$TEST_DIRECTORY"/test-terminal.perl \
|
2010-10-17 02:36:57 +08:00
|
|
|
sh -c "test -t 1 && test -t 2"
|
2010-10-17 02:36:56 +08:00
|
|
|
then
|
2010-10-17 08:38:07 +08:00
|
|
|
test_set_prereq TTY &&
|
|
|
|
test_terminal () {
|
|
|
|
if ! test_declared_prereq TTY
|
|
|
|
then
|
|
|
|
echo >&4 "test_terminal: need to declare TTY prerequisite"
|
|
|
|
return 127
|
|
|
|
fi
|
2013-10-29 09:23:03 +08:00
|
|
|
perl "$TEST_DIRECTORY"/test-terminal.perl "$@"
|
2010-10-17 08:38:07 +08:00
|
|
|
}
|
2010-10-17 02:36:56 +08:00
|
|
|
fi
|
|
|
|
'
|