ld64-85.2.1.tar.gz

[apple/ld64.git] / FireOpal / unit-tests / bin / fail-if-no-stdin.pl

diff --git a/FireOpal/unit-tests/bin/fail-if-no-stdin.pl b/FireOpal/unit-tests/bin/fail-if-no-stdin.pl
new file mode 100755 (executable)
index 0000000..a44f5d3
--- /dev/null
+++ b/FireOpal/unit-tests/bin/fail-if-no-stdin.pl
@@ -0,0 +1,22 @@
+#!/usr/bin/perl -w
+
+#
+# Usage:
+#
+#              command | ${FAIL_IF_EMPTY}
+#
+
+use strict;
+
+my $test_name = "";
+if ( exists $ENV{UNIT_TEST_NAME} ) {
+       $test_name = $ENV{UNIT_TEST_NAME};
+}
+
+if( eof STDIN )
+{
+    printf("FAIL $test_name\n");
+    exit 1;
+}
+
+exit 0;