unit-tests/bin/exit-non-zero-pass.pl

   1 #!/usr/bin/perl -w
   2
   3 #
   4 # Usage:
   5 #
   6 #               ${PASS_UNLESS} "test name" command
   7 #
   8
   9 use strict;
  10
  11 my $string = shift @ARGV;
  12
  13 if(0 == system(@ARGV))
  14 {
  15     printf("FAIL $string\n");
  16 }
  17 else
  18 {
  19     printf("PASS $string\n");
  20 }
  21 exit 0;
  22