(Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS PERL]} {[SQ <LIT_CHARS "set up terminal for tests">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t# Reading from the pty master seems to get stuck _sometimes_\n"> <LIT_CHARS "\t# on Mac OS X 10.5.0, using Perl 5.10.0 or 5.8.9.\n"> <LIT_CHARS "\t#\n"> <LIT_CHARS "\t# Reproduction recipe: run\n"> <LIT_CHARS "\t#\n"> <LIT_CHARS "\t#\ti=0\n"> <LIT_CHARS "\t#\twhile ./test-terminal.perl echo hi $i\n"> <LIT_CHARS "\t#\tdo\n"> <LIT_CHARS "\t#\t\t: $((i = $i + 1))\n"> <LIT_CHARS "\t#\tdone\n"> <LIT_CHARS "\t#\n"> <LIT_CHARS "\t# After 2000 iterations or so it hangs.\n"> <LIT_CHARS "\t# https://rt.cpan.org/Ticket/Display.html?id=65692\n"> <LIT_CHARS "\t#\n"> <LIT_CHARS "\tif test \"$(uname -s)\" = Darwin\n"> <LIT_CHARS "\tthen\n"> <LIT_CHARS "\t\t:\n"> <LIT_CHARS "\telif\n"> <LIT_CHARS "\t\t\"$PERL_PATH\" \"$TEST_DIRECTORY\"/test-terminal.perl \\\n"> <LIT_CHARS "\t\t\tsh -c \"test -t 1 && test -t 2\"\n"> <LIT_CHARS "\tthen\n"> <LIT_CHARS "\t\ttest_set_prereq TTY &&\n"> <LIT_CHARS "\t\ttest_terminal () {\n"> <LIT_CHARS "\t\t\tif ! test_declared_prereq TTY\n"> <LIT_CHARS "\t\t\tthen\n"> <LIT_CHARS "\t\t\t\techo >&4 \"test_terminal: need to declare TTY prerequisite\"\n"> <LIT_CHARS "\t\t\t\treturn 127\n"> <LIT_CHARS "\t\t\tfi\n"> <LIT_CHARS "\t\t\t\"$PERL_PATH\" \"$TEST_DIRECTORY\"/test-terminal.perl \"$@\"\n"> <LIT_CHARS "\t\t}\n"> <LIT_CHARS "\tfi\n">]})