]> git.saurik.com Git - apple/ld64.git/blame - unit-tests/bin/fail-if-exit-non-zero.pl
ld64-409.12.tar.gz
[apple/ld64.git] / unit-tests / bin / fail-if-exit-non-zero.pl
CommitLineData
d696c285
A
1#!/usr/bin/perl -w
2
3use strict;
4
5my $test_name = "";
6if ( exists $ENV{UNIT_TEST_NAME} ) {
7 $test_name = $ENV{UNIT_TEST_NAME};
8}
9
10if(system(@ARGV) != 0)
11{
12 printf("FAIL $test_name\n");
a61fdf0a 13 exit 1;
d696c285 14}
d696c285 15
a61fdf0a 16exit 0;