TAO/tests/Bug_2935_Regression/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 sub count_matching_lines {
  11    my($file) = shift;
  12    my($pattern) = shift;
  13    my($count) = 0;
  14    open(FILE, $file);
  15    while(<FILE>) {
  16        ++$count if /$pattern/;
  17    }
  18    close FILE;
  19    return $count;
  20 }
  21
  22 $status = 0;
  23
  24 my $sink = PerlACE::TestTarget::create_target (1) || die "Create target 1 failed\n";
  25 my $middle = PerlACE::TestTarget::create_target (2) || die "Create target 2 failed\n";
  26 my $source = PerlACE::TestTarget::create_target (2) || die "Create target 2 failed\n";
  27
  28 my $sinkiorfilebase = "sink.ior";
  29 my $sinkiorfile = $sink->LocalFile ($sinkiorfilebase);
  30
  31 my $middleiorfilebase = "middle.ior";
  32 my $middleiorfile = $middle->LocalFile ($middleiorfilebase);
  33
  34 my $sinklogfilebase = "sink.log";
  35 my $sinklogfile = $sink->LocalFile ($sinklogfilebase);
  36
  37 my $middlelogfilebase = "middle.log";
  38 my $middlelogfile = $middle->LocalFile ($middlelogfilebase);
  39
  40 my $sourcelogfilebase = "source.log";
  41 my $sourcelogfile = $source->LocalFile ($sourcelogfilebase);
  42
  43 $sink->DeleteFile ($sinkiorfilebase);
  44 $sink->DeleteFile ($sinklogfilebase);
  45
  46 $middle->DeleteFile ($middleiorfilebase);
  47 $middle->DeleteFile ($middlelogfilebase);
  48
  49 $source->DeleteFile ($sourcelogfilebase);
  50
  51 my $middleconffilebase = "middle.conf";
  52 my $middleconffile = $middle->LocalFile ($middleconffilebase);
  53
  54 # copy the configuation file
  55 if ($middle->PutFile ($middleconffilebase) == -1) {
  56     print STDERR "ERROR: cannot set file <$middleconffile>\n";
  57     $SV->Kill (); $SV->TimedWait (1);
  58     return 1;
  59 }
  60
  61
  62 $SV = $sink->CreateProcess ("sink", "-o $sinkiorfile -orblogfile $sinklogfile -orbdebuglevel 9");
  63 $MD = $middle->CreateProcess ("middle", "-o $middleiorfile -f $sinkiorfile -ORBSvcConf $middleconffile -orblogfile $middlelogfile  -orbdebuglevel 9");
  64 $CL = $source->CreateProcess ("source", "-f $middleiorfile -orblogfile $sourcelogfile  -orbdebuglevel 9");
  65
  66 $SV->Spawn ();
  67
  68 if ($sink->WaitForFileTimed ($sinkiorfilebase,
  69                              $sink->ProcessStartWaitInterval ()) == -1) {
  70     print STDERR "ERROR: Could not find file <$sinkiorfile>\n";
  71     $SV->Kill (); $SV->TimedWait (1);
  72     exit 1;
  73 }
  74
  75 $MD->Spawn ();
  76
  77 if ($middle->WaitForFileTimed($middleiorfilebase,
  78                               $middle->ProcessStartWaitInterval ()) == -1) {
  79     print STDERR "ERROR: Could not find file <$middleiorfile>\n";
  80     $SV->Kill (); $SV->TimedWait (1);
  81     $MD->Kill (); $MD->TimedWait (1);
  82     exit 1;
  83 }
  84
  85
  86 $source_status = $CL->SpawnWaitKill ($source->ProcessStartWaitInterval ());
  87
  88 if ($source_status != 0) {
  89     print STDERR "ERROR: source returned $source_status\n";
  90     $status = 1;
  91 }
  92
  93 $middle_status = $MD->WaitKill ($middle->ProcessStopWaitInterval ());
  94 if ($middle_status != 0) {
  95     print STDERR "ERROR: middle returned $middle_status\n";
  96     $status = 1;
  97 }
  98
  99 $sink_status = $SV->WaitKill ($sink->ProcessStopWaitInterval ());
 100 if ($sink_status != 0) {
 101     print STDERR "ERROR: sink returned $sink_status\n";
 102     $status = 1;
 103 }
 104
 105 if($status == 0){
 106     $connections = count_matching_lines($sinklogfile, "IIOP connection to peer");
 107     if ($connections != 1) {
 108         print STDERR "ERROR: Connections to sink should be 1: $connections\n";
 109         $status = 1;
 110     }
 111     else {
 112         print STDERR "OK: Found 1 connection to sink.\n";
 113    }
 114 }
 115
 116 if($status == 0){
 117     $sink->DeleteFile ($sinkiorfilebase);
 118     $sink->DeleteFile ($sinklogfilebase);
 119
 120     $middle->DeleteFile ($middleiorfilebase);
 121     $middle->DeleteFile ($middlelogfilebase);
 122
 123     $source->DeleteFile ($sourcelogfilebase);
 124 }
 125
 126 exit $status;