unit-tests/bin/fail-if-exit-zero.pl

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4
   5 my $test_name = "";
   6 if ( exists $ENV{UNIT_TEST_NAME} ) {
   7     $test_name = $ENV{UNIT_TEST_NAME};
   8 }
   9
  10 if(system(@ARGV) == 0)
  11 {
  12     printf("FAIL $test_name\n");
  13     exit 1;
  14 }
  15 else
  16 {
  17     exit 0;
  18 }