TAO/orbsvcs/DevGuideExamples/EventServices/RTEC_Basic/run_test.pl

   1
   2 eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
   3     & eval 'exec perl -S $0 $argv:q'
   4     if 0;
   5
   6 use lib "$ENV{ACE_ROOT}/bin";
   7 use PerlACE::TestTarget;
   8
   9 $status = 0;
  10 $debug_level = '0';
  11
  12 foreach $i (@ARGV) {
  13     if ($i eq '-debug') {
  14         $debug_level = '10';
  15     }
  16 }
  17
  18 my $ns = PerlACE::TestTarget::create_target (1) || die "Create target 1 failed\n";
  19 my $es = PerlACE::TestTarget::create_target (2) || die "Create target 2 failed\n";
  20 my $s = PerlACE::TestTarget::create_target (3) || die "Create target 3 failed\n";
  21 my $c = PerlACE::TestTarget::create_target (4) || die "Create target 4 failed\n";
  22
  23 my $nsiorfile = "ns.ior";
  24 my $esiorfile = "es.ior";
  25
  26 my $ns_nsiorfile = $ns->LocalFile ($nsiorfile);
  27 my $es_nsiorfile = $es->LocalFile ($nsiorfile);
  28 my $s_nsiorfile = $s->LocalFile ($nsiorfile);
  29 my $c_nsiorfile = $c->LocalFile ($nsiorfile);
  30 my $es_esiorfile = $es->LocalFile ($esiorfile);
  31 $ns->DeleteFile ($nsiorfile);
  32 $es->DeleteFile ($nsiorfile);
  33 $s->DeleteFile ($nsiorfile);
  34 $c->DeleteFile ($nsiorfile);
  35 $es->DeleteFile ($esiorfile);
  36
  37 $NameService = "$ENV{TAO_ROOT}/orbsvcs/Naming_Service/tao_cosnaming";
  38 $NS = $ns->CreateProcess ($NameService, "-ORBdebuglevel $debug_level ".
  39                                         " -o $ns_nsiorfile");
  40 $EventService = "$ENV{TAO_ROOT}/orbsvcs/Event_Service/tao_rtevent";
  41 $ES = $es->CreateProcess ($EventService, " -o $es_esiorfile ".
  42                                         "-ORBInitRef NameService=file://$es_nsiorfile");
  43 $S = $ns->CreateProcess ("EchoEventSupplier", "-ORBInitRef NameService=file://$s_nsiorfile");
  44 $C = $ns->CreateProcess ("EchoEventConsumer", "-ORBInitRef NameService=file://$c_nsiorfile");
  45
  46 # start Naming Service
  47 $NS_status = $NS->Spawn ();
  48
  49 if ($NS_status != 0) {
  50     print STDERR "ERROR: Name Service returned $NS_status\n";
  51     exit 1;
  52 }
  53
  54 if ($ns->WaitForFileTimed ($nsiorfile,$ns->ProcessStartWaitInterval()) == -1) {
  55     print STDERR "ERROR: cannot find file <$ns_nsiorfile>\n";
  56     $NS->Kill (); $NS->TimedWait (1);
  57     exit 1;
  58 }
  59
  60 if ($ns->GetFile ($nsiorfile) == -1) {
  61     print STDERR "ERROR: cannot retrieve file <$ns_nsiorfile>\n";
  62     $NS->Kill (); $NS->TimedWait (1);
  63     exit 1;
  64 }
  65 if ($es->PutFile ($nsiorfile) == -1) {
  66     print STDERR "ERROR: cannot set file <$es_nsiorfile>\n";
  67     $NS->Kill (); $NS->TimedWait (1);
  68     exit 1;
  69 }
  70 if ($s->PutFile ($nsiorfile) == -1) {
  71     print STDERR "ERROR: cannot set file <$s_nsiorfile>\n";
  72     $NS->Kill (); $NS->TimedWait (1);
  73     exit 1;
  74 }
  75 if ($c->PutFile ($nsiorfile) == -1) {
  76     print STDERR "ERROR: cannot set file <$c_nsiorfile>\n";
  77     $NS->Kill (); $NS->TimedWait (1);
  78     exit 1;
  79 }
  80
  81
  82 # start Event Service
  83 $ES_status = $ES->Spawn ();
  84
  85 if ($ES_status != 0) {
  86     print STDERR "ERROR: Event Service returned $ES_status\n";
  87     exit 1;
  88 }
  89
  90 if ($es->WaitForFileTimed ($esiorfile,$es->ProcessStartWaitInterval()) == -1) {
  91     print STDERR "ERROR: cannot find file <$es_esiorfile>\n";
  92     $ES->Kill (); $ES->TimedWait (1);
  93     exit 1;
  94 }
  95
  96 # start EchoEventSupplier
  97 $S_status = $S->Spawn ();
  98
  99 if ($S_status != 0) {
 100     print STDERR "ERROR: Supplier returned $S_status\n";
 101     exit 1;
 102 }
 103
 104 # start EchoEventConsumer
 105 $C_status = $C->Spawn ();
 106
 107 if ($C_status != 0) {
 108     print STDERR "ERROR: Consumer returned $C_status\n";
 109     exit 1;
 110 }
 111
 112 $C_status = $C->WaitKill ($c->ProcessStopWaitInterval()+45);
 113
 114 if ($C_status != 0) {
 115     print STDERR "ERROR: Consumer returned $C_status\n";
 116     $status = 1;
 117 }
 118
 119 $S_status = $S->TerminateWaitKill ($s->ProcessStopWaitInterval());
 120
 121 if ($S_status != 0) {
 122     print STDERR "ERROR: Supplier returned $S_status\n";
 123     $status = 1;
 124 }
 125
 126 $ES_status = $ES->TerminateWaitKill ($es->ProcessStopWaitInterval());
 127
 128 if ($ES_status != 0) {
 129     print STDERR "ERROR: Event Service returned $ES_status\n";
 130     $status = 1;
 131 }
 132
 133 $NS_status = $NS->TerminateWaitKill ($ns->ProcessStopWaitInterval());
 134
 135 if ($NS_status != 0) {
 136     print STDERR "ERROR: Name Service returned $NS_status\n";
 137     $status = 1;
 138 }
 139
 140 $ns->DeleteFile ($nsiorfile);
 141 $es->DeleteFile ($nsiorfile);
 142 $s->DeleteFile ($nsiorfile);
 143 $c->DeleteFile ($nsiorfile);
 144 $es->DeleteFile ($esiorfile);
 145
 146 exit $status;