ld64-47.2.tar.gz

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

diff --git a/unit-tests/bin/exit-non-zero-pass.pl b/unit-tests/bin/exit-non-zero-pass.pl
new file mode 100755 (executable)
index 0000000..dd4c3e5
--- /dev/null
+++ b/unit-tests/bin/exit-non-zero-pass.pl
@@ -0,0 +1,22 @@
+#!/usr/bin/perl -w
+
+#
+# Usage:
+#
+#              ${PASS_UNLESS} "test name" command
+#
+
+use strict;
+
+my $string = shift @ARGV;
+
+if(0 == system(@ARGV))
+{
+    printf("FAIL $string\n");
+}
+else
+{
+    printf("PASS $string\n");
+}
+exit 0;
+