d696c285 A |
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"); |
a61fdf0a |
13 | exit 1; |
d696c285 |
14 | } |
d696c285 |
15 | |
a61fdf0a |
16 | exit 0; |