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