TAO/tests/POA/Loader/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 use lib "$ENV{ACE_ROOT}/bin";
   8 use PerlACE::TestTarget;
   9
  10 $iorbase0 = "ior";
  11
  12 $status = 0;
  13 $oneway = "";
  14 $iterations = 100;
  15
  16 $extra_args = "";
  17
  18 $server = PerlACE::TestTarget::create_target (1) || die "Create target 1 failed\n";
  19 $client  = PerlACE::TestTarget::create_target (2) || die "Create target 2 failed\n";
  20
  21 $server->AddLibPath ('../Generic_Servant/.');
  22 $client->AddLibPath ('../Generic_Servant/.');
  23
  24 # Parse the arguments
  25 for ($i = 0; $i <= $#ARGV; $i++) {
  26     if ($ARGV[$i] eq "-h" || $ARGV[$i] eq "-?") {
  27       print "run_test [-h] [-i iterations] [-o] [-f ior file]\n";
  28       print "\n";
  29       print "-h                  -- prints this information\n";
  30       print "-f                  -- ior file\n";
  31       print "-i iterations       -- specifies iterations\n";
  32       print "-o                  -- call issued are oneways\n";
  33       exit;
  34     }
  35     elsif ($ARGV[$i] eq "-o") {
  36         $oneway = "-o";
  37     }
  38     elsif ($ARGV[$i] eq "-i") {
  39         $iterations = $ARGV[$i + 1];
  40         $i++;
  41     }
  42     elsif ($ARGV[$i] eq "-f") {
  43         $iorbase0 = $ARGV[$i + 1];
  44         $i++;
  45     }
  46     else {
  47         $extra_args .= " " . $ARGV[$i];
  48     }
  49 }
  50
  51 $iorbase1 = $iorbase0."_1";
  52 $iorbase2 = $iorbase0."_2";
  53
  54 $server0_iorfile = $server->LocalFile ($iorbase0);
  55 $server1_iorfile = $server->LocalFile ($iorbase1);
  56 $server2_iorfile = $server->LocalFile ($iorbase2);
  57 $client1_iorfile = $client->LocalFile ($iorbase1);
  58 $client2_iorfile = $client->LocalFile ($iorbase2);
  59
  60 $server->DeleteFile ($iorbase0);
  61 $server->DeleteFile ($iorbase1);
  62 $server->DeleteFile ($iorbase2);
  63 $client->DeleteFile ($iorbase1);
  64 $client->DeleteFile ($iorbase2);
  65
  66 $SV = $server->CreateProcess ("server", "-f $server0_iorfile $extra_args");
  67
  68 $CL = $client->CreateProcess ("../Generic_Servant/client");
  69
  70 $server_status = $SV->Spawn ();
  71
  72 if ($server_status != 0) {
  73     print STDERR "ERROR: server returned $server_status\n";
  74     exit 1;
  75 }
  76
  77 if ($server->WaitForFileTimed ($iorbase1,
  78                                $server->ProcessStartWaitInterval()) == -1) {
  79     print STDERR "ERROR: cannot find file <$server1_iorfile>\n";
  80     $SV1->Kill (); $SV1->TimedWait (1);
  81     exit 1;
  82 }
  83
  84 if ($server->WaitForFileTimed ($iorbase2,
  85                                $server->ProcessStartWaitInterval()) == -1) {
  86     print STDERR "ERROR: cannot find file <$server2_iorfile>\n";
  87     $SV1->Kill (); $SV1->TimedWait (1);
  88     exit 1;
  89 }
  90
  91 $CL->Arguments ("$extra_args $oneway -i $iterations -k file://$client1_iorfile");
  92
  93 $client_status = $CL->SpawnWaitKill ($client->ProcessStartWaitInterval());
  94
  95 if ($client_status != 0) {
  96     print STDERR "ERROR: client 1 returned $client_status\n";
  97     $status = 1;
  98 }
  99
 100 $CL->Arguments ("$extra_args $oneway -i $iterations -k file://$client2_iorfile -x");
 101
 102 $client_status = $CL->SpawnWaitKill ($client->ProcessStartWaitInterval());
 103
 104 if ($client_status != 0) {
 105     print STDERR "ERROR: client 2 returned $client_status\n";
 106     $status = 1;
 107 }
 108
 109 $server_stauts = $SV->WaitKill ($server->ProcessStopWaitInterval());
 110
 111 if ($server_stauts != 0) {
 112     print STDERR "ERROR: server returned $server_stauts\n";
 113     $status = 1;
 114 }
 115
 116 $server->DeleteFile ($iorbase0);
 117 $server->DeleteFile ($iorbase1);
 118 $server->DeleteFile ($iorbase2);
 119 $client->DeleteFile ($iorbase1);
 120 $client->DeleteFile ($iorbase2);
 121
 122 exit $status;