dyld-43.tar.gz
[apple/dyld.git] / unit-tests / bin / exit-zero-pass.pl
1 #!/usr/bin/perl -w
2
3 use strict;
4
5 sub PASS
6 {
7 my ($format, $args) = @_;
8 if(!defined $args)
9 { $args = []; }
10 printf("PASS \"$format\"\n", @$args);
11 }
12
13 sub FAIL
14 {
15 my ($format, $args) = @_;
16 if(!defined $args)
17 { $args = []; }
18 printf("FAIL \"$format\"\n", @$args);
19 }
20
21 my $pass_string = shift @ARGV;
22 my $fail_string = shift @ARGV;
23
24 if(0 == system(@ARGV))
25 {
26 PASS($pass_string);
27 }
28 else
29 {
30 FAIL($fail_string);
31 }
32 exit 0;
33