ld64-85.2.1.tar.gz

[apple/ld64.git] / FireOpal / unit-tests / bin / pass-iff-exit-zero.pl

diff --git a/FireOpal/unit-tests/bin/pass-iff-exit-zero.pl b/FireOpal/unit-tests/bin/pass-iff-exit-zero.pl
new file mode 100755 (executable)
index 0000000..07854b5
--- /dev/null
+++ b/FireOpal/unit-tests/bin/pass-iff-exit-zero.pl
@@ -0,0 +1,23 @@
+#!/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;