mirror of
https://github.com/darlinghq/darling-dyld.git
synced 2024-11-27 06:10:24 +00:00
24 lines
278 B
Perl
24 lines
278 B
Perl
|
#!/usr/bin/perl -w
|
||
|
|
|
||
|
|
#
|
||
|
|
# Usage:
|
||
|
|
#
|
||
|
|
# ${PASS_IFF} command
|
||
|
|
#
|
||
|
|
|
||
|
|
use strict;
|
||
|
|
|
||
|
|
my $test_name = "";
|
||
|
|
if ( exists $ENV{UNIT_TEST_NAME} ) {
|
||
|
|
$test_name = $ENV{UNIT_TEST_NAME};
|
||
|
|
}
|
||
|
|
|
||
|
|
if(0 != system(@ARGV))
|
||
|
|
{
|
||
|
|
printf("FAIL $test_name\n");
|
||
|
|
exit 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
printf("PASS $test_name\n");
|
||
|
|
exit 0;
|