35 lines
777 B
35 lines
777 B
#!/bin/sh |
|
|
|
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 |
|
"$PERL_PATH" "$TEST_DIRECTORY"/test-terminal.perl \ |
|
sh -c "test -t 1 && test -t 2" |
|
then |
|
test_set_prereq TTY && |
|
test_terminal () { |
|
if ! test_declared_prereq TTY |
|
then |
|
echo >&4 "test_terminal: need to declare TTY prerequisite" |
|
return 127 |
|
fi |
|
"$PERL_PATH" "$TEST_DIRECTORY"/test-terminal.perl "$@" |
|
} |
|
fi |
|
'
|
|
|