unit-tests/bin/fail-if-exit-non-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
  16 exit 0;