TAO/orbsvcs/tests/InterfaceRepo/Persistence_Test/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 $persistent = "-p";
  11 $status = 0;
  12
  13 $debug = "";
  14 $query_opt = "-q";
  15 $other = "";
  16
  17 for ($i = 0; $i <= $#ARGV; $i++) {
  18     if ($ARGV[$i] eq "-d") {
  19         $debug = "-d";
  20     }
  21     else {
  22         $other .= $ARGV[$i];
  23     }
  24 }
  25
  26 my $server = PerlACE::TestTarget::create_target (1) || die "Create target 1 failed\n";
  27 my $client = PerlACE::TestTarget::create_target (2) || die "Create target 2 failed\n";
  28
  29 my $iorbase = "if_repo.ior";
  30 my $backing_file = "ifr_default_backing_store";
  31
  32
  33 my $server_iorfile = $server->LocalFile ($iorbase);
  34 my $server_backing_file = $server->LocalFile ($backing_file);
  35 my $client_iorfile = $client->LocalFile ($iorbase);
  36 $server->DeleteFile($iorbase);
  37 $server->DeleteFile($backing_file);
  38 $client->DeleteFile($iorbase);
  39
  40 $SV = $server->CreateProcess ("$ENV{TAO_ROOT}/orbsvcs/IFR_Service/tao_ifr_service",
  41                               " -o $server_iorfile " .
  42                               " $persistent");
  43
  44 $CL = $client->CreateProcess ("Persistence_Test",
  45                               "-ORBInitRef InterfaceRepository=file://$client_iorfile");
  46
  47 $server_status = $SV->Spawn ();
  48
  49 if ($server_status != 0) {
  50     print STDERR "ERROR: server returned $server_status\n";
  51     exit 1;
  52 }
  53
  54 if ($server->WaitForFileTimed ($iorbase,
  55                                $server->ProcessStartWaitInterval()) == -1) {
  56     print STDERR "ERROR: cannot find file <$server_iorfile>\n";
  57     $SV->Kill (); $SV->TimedWait (1);
  58     $server->DeleteFile($backing_file);
  59     exit 1;
  60 }
  61
  62 if ($server->GetFile ($iorbase) == -1) {
  63     print STDERR "ERROR: cannot retrieve file <$server_iorfile>\n";
  64     $SV->Kill (); $SV->TimedWait (1);
  65     $server->DeleteFile($backing_file);
  66     exit 1;
  67 }
  68 if ($client->PutFile ($iorbase) == -1) {
  69     print STDERR "ERROR: cannot set file <$client_iorfile>\n";
  70     $SV->Kill (); $SV->TimedWait (1);
  71     $server->DeleteFile($backing_file);
  72     exit 1;
  73 }
  74
  75 print "Starting Persistence_Test 1\n";
  76
  77 $client_status = $CL->SpawnWaitKill ($client->ProcessStartWaitInterval() + 45);
  78
  79 if ($client_status != 0) {
  80     print STDERR "ERROR: client returned $client_status\n";
  81     $status = 1;
  82 }
  83
  84 print "Terminating IFR_Service\n";
  85 $server_status = $SV->TerminateWaitKill ($server->ProcessStopWaitInterval());
  86
  87 if ($server_status != 0) {
  88     print STDERR "ERROR: server returned $server_status\n";
  89     $status = 1;
  90 }
  91
  92 $server->DeleteFile($iorbase);
  93 $client->DeleteFile($iorbase);
  94
  95 $CL->Arguments ("-ORBInitRef InterfaceRepository=file://$client_iorfile $debug $query_opt");
  96
  97 $server_status = $SV->Spawn ();
  98
  99 if ($server_status != 0) {
 100     print STDERR "ERROR: server returned $server_status\n";
 101     exit 1;
 102 }
 103
 104 if ($server->WaitForFileTimed ($iorbase,
 105                                $server->ProcessStartWaitInterval()) == -1) {
 106     print STDERR "ERROR: cannot find file <$server_iorfile>\n";
 107     $SV->Kill (); $SV->TimedWait (1);
 108     $server->DeleteFile($backing_file);
 109     exit 1;
 110 }
 111
 112 if ($server->GetFile ($iorbase) == -1) {
 113     print STDERR "ERROR: cannot retrieve file <$server_iorfile>\n";
 114     $SV->Kill (); $SV->TimedWait (1);
 115     $server->DeleteFile($backing_file);
 116     exit 1;
 117 }
 118 if ($client->PutFile ($iorbase) == -1) {
 119     print STDERR "ERROR: cannot set file <$client_iorfile>\n";
 120     $SV->Kill (); $SV->TimedWait (1);
 121     $server->DeleteFile($backing_file);
 122     exit 1;
 123 }
 124
 125 print "Starting Persistence_Test 2\n";
 126
 127 $client_status = $CL->SpawnWaitKill ($client->ProcessStartWaitInterval() + 45);
 128
 129 if ($client_status != 0) {
 130     print STDERR "ERROR: client returned $client_status\n";
 131     $status = 1;
 132 }
 133
 134 print "Terminating IFR_Service\n";
 135 $server_status = $SV->TerminateWaitKill ($server->ProcessStopWaitInterval());
 136
 137 if ($server_status != 0) {
 138     print STDERR "ERROR: server returned $server_status\n";
 139     $status = 1;
 140 }
 141
 142 $server->DeleteFile($iorbase);
 143 $client->DeleteFile($iorbase);
 144 $server->DeleteFile($backing_file);
 145
 146 exit $status;