[apple/ld64.git] / unit-tests / bin / fail-if-exit-non-zero.pl

#!/usr/bin/perl -w

use strict;

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

if(system(@ARGV) != 0)
{
    printf("FAIL $test_name\n");
    exit 1;
}

exit 0;
Commit	Line	Data
d696c285 A	1	#!/usr/bin/perl -w
	2
	3	use strict;
	4
	5	my $test_name = "";
	6	if ( exists $ENV{UNIT_TEST_NAME} ) {
	7	$test_name = $ENV{UNIT_TEST_NAME};
	8	}
	9
	10	if(system(@ARGV) != 0)
	11	{
	12	printf("FAIL $test_name\n");
a61fdf0a	13	exit 1;
d696c285	14	}
d696c285	15
a61fdf0a	16	exit 0;