TAO/orbsvcs/tests/Notify/performance-tests/scripts/Max_Throughput/run_all.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34

eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
    & eval 'exec perl -S $0 $argv:q'
    if 0;

# $Id$
# -*- perl -*-

use lib "../../../../../../../bin";
use PerlACE::Run_Test;
use File::Copy;
use Getopt::Std;

@list=glob("*");

for $file (@list)
{
    if (-d $file)
    {
        print STDERR "Running $file test\n";

        $cmd = "run_test.pl";

        chdir $file or die "Could not chdir to $file";

        $status = system ("perl $cmd");

        if ($status != 0)
        {
            print STDERR "ERROR: $file test returned $status\n";
        }

        chdir "../";
    }
}