36 lines
		
	
	
		
			761 B
		
	
	
	
		
			Bash
		
	
	
			
		
		
	
	
			36 lines
		
	
	
		
			761 B
		
	
	
	
		
			Bash
		
	
	
| #!/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 "$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 "$TEST_DIRECTORY"/test-terminal.perl "$@"
 | |
| 		}
 | |
| 	fi
 | |
| '
 |