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

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4
   5 # first arg is fail string, rest of args are command line to invoke
   6 my $fail_string = shift @ARGV;
   7
   8 if(system(@ARGV) != 0)
   9 {
  10     printf("FAIL \"$fail_string\"\n");
  11 }
  12
  13 exit 0;
  14