mirror of
https://github.com/darlinghq/darling-dyld.git
synced 2024-11-26 22:00:26 +00:00
24 lines
278 B
Perl
Executable File
24 lines
278 B
Perl
Executable File
#!/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;
|