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

#!/usr/bin/perl -w

use strict;

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

my $ret = system(@ARGV);
my $exit_value  = $ret >> 8;
my $signal_num  = $ret & 127;
my $dumped_core = $ret & 128;
my $crashed  = $signal_num + $dumped_core;

if(0 == $exit_value || 0 != $crashed)
{
    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
a61fdf0a A	10	my $ret = system(@ARGV);
	11	my $exit_value = $ret >> 8;
	12	my $signal_num = $ret & 127;
	13	my $dumped_core = $ret & 128;
	14	my $crashed = $signal_num + $dumped_core;
	15
	16	if(0 == $exit_value \|\| 0 != $crashed)
d696c285 A	17	{
	18	printf("FAIL $test_name\n");
	19	exit 1;
	20	}
a61fdf0a A	21
a61fdf0a A	22	exit 0;