[apple/ld64.git] / unit-tests / bin / pass-iff-no-stdin.pl

#!/usr/bin/perl -w

#
# Usage:
#
#		command | ${PASS_IFF_EMPTY} 
#

use strict;

my $test_name = "";
if ( exists $ENV{UNIT_TEST_NAME} ) {
	$test_name = $ENV{UNIT_TEST_NAME};
}

if( eof STDIN )
{
    printf("PASS $test_name\n");
    exit 0;
}

printf("FAIL $test_name\n");
exit 1;
Commit	Line	Data
d696c285 A	1	#!/usr/bin/perl -w
	2
	3	#
	4	# Usage:
	5	#
	6	# command \| ${PASS_IFF_EMPTY}
	7	#
	8
	9	use strict;
	10
	11	my $test_name = "";
	12	if ( exists $ENV{UNIT_TEST_NAME} ) {
	13	$test_name = $ENV{UNIT_TEST_NAME};
	14	}
	15
	16	if( eof STDIN )
	17	{
	18	printf("PASS $test_name\n");
a61fdf0a	19	exit 0;
d696c285	20	}
d696c285	21
a61fdf0a A	22	printf("FAIL $test_name\n");
a61fdf0a A	23	exit 1;