+++ /dev/null
-#!/usr/bin/perl -w
-
-#
-# Usage:
-#
-# command | ${FAIL_IF_STDIN}
-#
-
-use strict;
-
-my $test_name = "";
-if ( exists $ENV{UNIT_TEST_NAME} ) {
- $test_name = $ENV{UNIT_TEST_NAME};
-}
-
-if( eof STDIN )
-{
- exit 0;
-}
-
-printf("FAIL $test_name\n");
-exit 1;