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

#!/usr/bin/perl -w

#
# Usage:
#
#		${PASS_UNLESS} "test name" command
#

use strict;

my $string = shift @ARGV;
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 $string\n");
}
else
{
    printf("PASS $string\n");
}

exit 0;
Commit	Line	Data
d696c285 A	1	#!/usr/bin/perl -w
	2
	3	#
	4	# Usage:
	5	#
	6	# ${PASS_UNLESS} "test name" command
	7	#
	8
	9	use strict;
	10
	11	my $string = shift @ARGV;
a61fdf0a A	12	my $ret = system(@ARGV);
	13	my $exit_value = $ret >> 8;
	14	my $signal_num = $ret & 127;
	15	my $dumped_core = $ret & 128;
	16	my $crashed = $signal_num + $dumped_core;
d696c285	17
a61fdf0a	18	if(0 == $exit_value \|\| 0 != $crashed)
d696c285 A	19	{
	20	printf("FAIL $string\n");
	21	}
	22	else
	23	{
	24	printf("PASS $string\n");
	25	}
d696c285	26
a61fdf0a	27	exit 0;