]> git.saurik.com Git - apple/dyld.git/blame - unit-tests/bin/fail-if-non-zero.pl
dyld-360.22.tar.gz
[apple/dyld.git] / unit-tests / bin / fail-if-non-zero.pl
CommitLineData
9e225d03
A
1#!/usr/bin/perl -w
2
3use strict;
4
5# first arg is fail string, rest of args are command line to invoke
6my $fail_string = shift @ARGV;
7
8if(system(@ARGV) != 0)
9{
10 printf("FAIL \"$fail_string\"\n");
11}
12
13exit 0;
14