TAO/tests/Exposed_Policies/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
   8 use lib "$ENV{ACE_ROOT}/bin";
   9 use PerlACE::TestTarget;
  10
  11 $status = 0;
  12 $debug_level = '0';
  13
  14 foreach $i (@ARGV) {
  15     if ($i eq '-debug') {
  16         $debug_level = '10';
  17     }
  18 }
  19
  20 my $server = PerlACE::TestTarget::create_target (1) || die "Create target 1 failed\n";
  21 my $client = PerlACE::TestTarget::create_target (2) || die "Create target 2 failed\n";
  22
  23 my $ior_base = "default.ior";
  24 my $ior_overridden = "overridden.ior";
  25 my $cfg_poa = "POA.cfg";
  26 my $cfg_object = "Object.cfg";
  27 my $cfg_suffix_tru64 = ".tru64";
  28
  29 my $server_ior_base = $server->LocalFile ($ior_base);
  30 my $server_ior_overridden = $server->LocalFile ($ior_overridden);
  31 my $client_ior_base = $client->LocalFile ($ior_base);
  32 my $client_ior_overridden = $client->LocalFile ($ior_overridden);
  33 $server->DeleteFile($ior_base);
  34 $server->DeleteFile($ior_overridden);
  35 $client->DeleteFile($ior_base);
  36 $client->DeleteFile($ior_overridden);
  37
  38 my $server_cfg_poa = $server->LocalFile ($cfg_poa);
  39 my $server_cfg_object = $server->LocalFile ($cfg_object);
  40 my $client_cfg_poa = $client->LocalFile ($cfg_poa);
  41 my $client_cfg_object = $client->LocalFile ($cfg_object);
  42
  43 if ($server->PutFile ($cfg_poa) == -1) {
  44     print STDERR "ERROR: cannot set file <$server_cfg_poa>\n";
  45     return 1;
  46 }
  47 if ($server->PutFile ($cfg_object) == -1) {
  48     print STDERR "ERROR: cannot set file <$server_cfg_object>\n";
  49     return 1;
  50 }
  51
  52 if ($^O eq "dec_osf") {
  53     $server_cfg_poa = "$server_cfg_poa$cfg_suffix_tru64";
  54     $server_cfg_object = "$server_cfg_object$cfg_suffix_tru64";
  55     $client_cfg_poa = "$client_cfg_poa$cfg_suffix_tru64";
  56     $client_cfg_object = "$client_cfg_object$cfg_suffix_tru64";
  57 }
  58
  59 $SV = $server->CreateProcess ("server", "-ORBdebuglevel $debug_level ".
  60                                         "-POAConfigFile $server_cfg_poa ".
  61                                         "-ObjectConfigFile $server_cfg_object ".
  62                                         "-BaseObjectIOR $server_ior_base ".
  63                                         "-OverriddenIOR $server_ior_overridden");
  64
  65 $CL = $client->CreateProcess ("client", "-POAConfigFile $client_cfg_poa ".
  66                                         "-ObjectConfigFile $client_cfg_object ".
  67                                         "-BaseObjectIOR $client_ior_base ".
  68                                         "-OverriddenIOR $client_ior_overridden");
  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 ($ior_base,
  78                                $server->ProcessStartWaitInterval()) == -1) {
  79     print STDERR "ERROR: cannot find file <$server_ior_base>\n";
  80     $SV->Kill (); $SV->TimedWait (1);
  81     exit 1;
  82 }
  83
  84 if ($server->GetFile ($ior_base) == -1) {
  85     print STDERR "ERROR: cannot retrieve file <$server_ior_base>\n";
  86     $SV->Kill (); $SV->TimedWait (1);
  87     exit 1;
  88 }
  89
  90 if ($server->GetFile ($ior_overridden) == -1) {
  91     print STDERR "ERROR: cannot retrieve file <$server_ior_overridden>\n";
  92     $SV->Kill (); $SV->TimedWait (1);
  93     exit 1;
  94 }
  95
  96 if ($client->PutFile ($ior_base) == -1) {
  97     print STDERR "ERROR: cannot set file <$client_ior_base>\n";
  98     $SV->Kill (); $SV->TimedWait (1);
  99     exit 1;
 100 }
 101
 102 if ($client->PutFile ($ior_overridden) == -1) {
 103     print STDERR "ERROR: cannot set file <$client_ior_overridden>\n";
 104     $SV->Kill (); $SV->TimedWait (1);
 105     exit 1;
 106 }
 107
 108 $client_status = $CL->SpawnWaitKill ($client->ProcessStartWaitInterval() + 15);
 109
 110 if ($client_status != 0) {
 111     print STDERR "ERROR: client returned $client_status\n";
 112     $status = 1;
 113 }
 114
 115 $server_status = $SV->TerminateWaitKill ($server->ProcessStopWaitInterval());
 116
 117 if ($server_status != 0) {
 118     print STDERR "ERROR: server returned $server_status\n";
 119     $status = 1;
 120 }
 121
 122 $server->DeleteFile($ior_base);
 123 $server->DeleteFile($ior_overridden);
 124 $client->DeleteFile($ior_base);
 125 $client->DeleteFile($ior_overridden);
 126
 127 exit $status;