]> git.saurik.com Git - apple/ld64.git/blobdiff - unit-tests/bin/pass-iff-exit-zero.pl
ld64-47.2.tar.gz
[apple/ld64.git] / unit-tests / bin / pass-iff-exit-zero.pl
diff --git a/unit-tests/bin/pass-iff-exit-zero.pl b/unit-tests/bin/pass-iff-exit-zero.pl
new file mode 100755 (executable)
index 0000000..ff0f1ed
--- /dev/null
@@ -0,0 +1,25 @@
+#!/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("PASS $test_name\n");
+}
+else
+{
+    printf("FAIL $test_name\n");
+}
+exit 0;
+