TAO/orbsvcs/tests/Event/Performance/run_test.pl

   1 eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
   2     & eval 'exec perl -S $0 $argv:q'
   3     if 0;
   4
   5 # -*- perl -*-
   6
   7 # This is a Perl script that runs the client and all the other servers that
   8 # are needed
   9
  10 use lib  "$ENV{ACE_ROOT}/bin";
  11 use PerlACE::TestTarget;
  12
  13 $status = 0;
  14
  15 my $test = PerlACE::TestTarget::create_target (1) || die "Create target 1 failed\n";
  16
  17 $test->AddLibPath ('../lib');
  18
  19 $ec_st_conf = $test->LocalFile ("ec.st$PerlACE::svcconf_ext");
  20
  21 sub RunTest ($$$)
  22 {
  23     my $message = shift;
  24     my $program = shift;
  25     my $arguments = shift;
  26
  27     my $T = $test->CreateProcess ($program, $arguments);
  28
  29     print STDERR "\n\n$message\n";
  30
  31     my $test_status = $T->SpawnWaitKill ($test->ProcessStartWaitInterval() + 45);
  32
  33     if ($test_status != 0) {
  34         print STDERR "ERROR: Test returned $test_status\n";
  35         $status = 1;
  36     }
  37 }
  38
  39 RunTest ("\n\nThroughput/Latency single threaded configuration\n",
  40          "Throughput",
  41          "-ORBsvcconf $ec_st_conf -burstsize 2000 -burstcount 1");
  42
  43 RunTest ("\n\nThroughput/Latency MT-safe configuration\n",
  44          "Throughput",
  45          "-burstsize 2000 -burstcount 1");
  46
  47 RunTest ("\n\nThroughput/Latency MT-safe configuration, 4 consumers\n",
  48          "Throughput",
  49          "-burstsize 2000 -burstcount 1 -consumers 4");
  50
  51 RunTest ("\n\nThroughput/Latency MT-safe configuration, 4 consumers 4 suppliers\n",
  52          "Throughput",
  53          "-burstsize 2000 -burstcount 1 -consumers 4 -suppliers 4");
  54
  55 RunTest ("\n\nThroughput/Latency MT-safe configuration, 4 consumers 4 suppliers\n",
  56          "Throughput",
  57          "-burstsize 2000 -burstcount 1 -consumers 4 -suppliers 4"
  58          . " -consumers_tshift 0 -suppliers_tshift 0");
  59
  60 RunTest ("\n\nConnection and disconnection time, 100 consumers 100 suppliers\n",
  61          "Connect",
  62          "-consumers 100 -suppliers 100 -connection_order interleaved");
  63
  64 RunTest ("\n\nConnection and disconnection time, 500 consumers 500 suppliers\n",
  65          "Connect",
  66          "-consumers 500 -suppliers 500 -connection_order interleaved");
  67
  68 exit $status;