TAO/tests/Bug_1495_Regression/run_test_complex.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 $status = 0;
  11 $debug_level = '0';
  12
  13 foreach $i (@ARGV) {
  14     if ($i eq '-debug') {
  15         $debug_level = '10';
  16     }
  17 }
  18
  19 #Schema of the interaction:
  20 #  'Client' <---> 'Middle Server' <---> 'Server'
  21
  22 my $server = PerlACE::TestTarget::create_target (1) || die "Create target 1 failed\n";
  23 my $client = PerlACE::TestTarget::create_target (2) || die "Create target 2 failed\n";
  24 my $middle = PerlACE::TestTarget::create_target (3) || die "Create target 3 failed\n";
  25
  26 my $inputfile = "test.ior";
  27 my $thrserverfile = "thr_server.ior";
  28 my $middleserverfile = "middle.ior";
  29
  30 #Files which used by client
  31 my $client_inputfile = $client->LocalFile ($inputfile);
  32 my $client_thrserverfile = $client->LocalFile ($thrserverfile);
  33 $client->DeleteFile($inputfile);
  34 $client->DeleteFile($thrserverfile);
  35
  36 #Files which used by server
  37 my $server_inputfile = $server->LocalFile ($inputfile);
  38 my $server_middleserverfile = $server->LocalFile ($middleserverfile);
  39 $server->DeleteFile($inputfile);
  40 $server->DeleteFile($middleserverfile);
  41
  42 #Files which used by middle server
  43 my $middle_thrserverfile = $middle->LocalFile ($thrserverfile);
  44 my $middle_middleserverfile = $middle->LocalFile ($middleserverfile);
  45 $middle->DeleteFile($middleserverfile);
  46 $middle->DeleteFile($thrserverfile);
  47
  48 $SV = $server->CreateProcess ("server",
  49                               "-ORBdebuglevel $debug_level " .
  50                               "-o $server_inputfile " .
  51                               "-i file://$server_middleserverfile");
  52
  53 $CL = $client->CreateProcess ("client",
  54                               "-ORBdebuglevel $debug_level " .
  55                               "-i file://$client_inputfile " .
  56                               "-o $client_thrserverfile");
  57
  58 $ML = $middle->CreateProcess ("server",
  59                               "-ORBdebuglevel $debug_level " .
  60                               "-i file://$middle_thrserverfile " .
  61                               "-o $middle_middleserverfile");
  62
  63 $client_status = $CL->Spawn ();
  64
  65 if ($client_status != 0) {
  66     print STDERR "ERROR: client returned $client_status\n";
  67     exit 1;
  68 }
  69
  70 if ($client->WaitForFileTimed ($thrserverfile,
  71                                $client->ProcessStartWaitInterval()) == -1) {
  72     print STDERR "ERROR: cannot find file <$client_thrserverfile>\n";
  73     $SV->Kill (); $SV->TimedWait (1);
  74     exit 1;
  75 }
  76
  77 if ($client->GetFile ($thrserverfile) == -1) {
  78     print STDERR "ERROR: cannot retrieve file <$client_thrserverfile>\n";
  79     $CL->Kill (); $CL->TimedWait (1);
  80     exit 1;
  81 }
  82 if ($middle->PutFile ($thrserverfile) == -1) {
  83     print STDERR "ERROR: cannot set file <$middle_thrserverfile>\n";
  84     $CL->Kill (); $CL->TimedWait (1);
  85     exit 1;
  86 }
  87
  88 $middle_status = $ML->Spawn ();
  89
  90 if ($middle_status != 0) {
  91     print STDERR "ERROR: client returned <$middle_status>\n";
  92     exit 1;
  93 }
  94
  95 if ($middle->WaitForFileTimed ($middleserverfile,
  96                                $client->ProcessStartWaitInterval()) == -1) {
  97     print STDERR "ERROR: cannot find file <$middle_middleserverfile>\n";
  98     $SV->Kill (); $SV->TimedWait (1);
  99     exit 1;
 100 }
 101
 102 if ($middle->GetFile ($middleserverfile) == -1) {
 103     print STDERR "ERROR: cannot retrieve file <$middle_middleserverfile>\n";
 104     $CL->Kill (); $CL->TimedWait (1);
 105     exit 1;
 106 }
 107 if ($server->PutFile ($middleserverfile) == -1) {
 108     print STDERR "ERROR: cannot set file <$server_middleserverfile>\n";
 109     $CL->Kill (); $CL->TimedWait (1);
 110     exit 1;
 111 }
 112
 113 $server_status = $SV->SpawnWaitKill ($server->ProcessStartWaitInterval() + 35);
 114
 115 if ($server_status != 0) {
 116     print STDERR "ERROR: client returned $server_status\n";
 117     $status = 1;
 118 }
 119
 120 $client_status = $CL->WaitKill ($client->ProcessStopWaitInterval());
 121
 122 if ($client_status != 0) {
 123     print STDERR "ERROR: client returned $client_status\n";
 124     $status = 1;
 125 }
 126
 127 $middle_status = $ML->WaitKill ($middle->ProcessStopWaitInterval());
 128
 129 if ($client_status != 0) {
 130     print STDERR "ERROR: client returned $middle_status\n";
 131     $status = 1;
 132 }
 133
 134 $client->DeleteFile($inputfile);
 135 $client->DeleteFile($thrserverfile);
 136
 137 $server->DeleteFile($inputfile);
 138 $server->DeleteFile($middleserverfile);
 139
 140 $middle->DeleteFile($middleserverfile);
 141 $middle->DeleteFile($thrserverfile);
 142
 143 exit $status;