tests/scripts/misc/close_stdout - make - Git at Google

 #                                                                    -*-perl-*-

 $description = "Make sure make exits with an error if stdout is full.";

 -e '/dev/full' or return -1;

 # In Strawberry Perl, /dev/full "exists" but does nothing :-/
 $port_type eq 'W32' and return -1;

 run_make_test("\n", '-v > /dev/full', '/^#MAKE#: write error/', 256);

 1;
	# --perl--

	$description = "Make sure make exits with an error if stdout is full.";

	-e '/dev/full' or return -1;

	# In Strawberry Perl, /dev/full "exists" but does nothing :-/
	$port_type eq 'W32' and return -1;

	run_make_test("\n", '-v > /dev/full', '/^#MAKE#: write error/', 256);

	1;