TAO/orbsvcs/examples/RtEC/Simple/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 $status = 0;
  11 $debug_level = '0';
  12
  13 foreach $i (@ARGV) {
  14     if ($i eq '-debug') {
  15         $debug_level = '10';
  16     }
  17 }
  18
  19 my $ns = PerlACE::TestTarget::create_target (1) || die "Create target 1 failed\n";
  20 my $t = PerlACE::TestTarget::create_target (2) || die "Create target 2 failed\n";
  21 my $c = PerlACE::TestTarget::create_target (3) || die "Create target 3 failed\n";
  22 my $s = PerlACE::TestTarget::create_target (4) || die "Create target 4 failed\n";
  23
  24 $nsiorfile = "ns.ior";
  25 $conffile = "ec" . "$PerlACE::svcconf_ext";
  26
  27 my $ns_nsiorfile = $ns->LocalFile ($nsiorfile);
  28 my $t_nsiorfile = $t->LocalFile ($nsiorfile);
  29 my $c_nsiorfile = $c->LocalFile ($nsiorfile);
  30 my $s_nsiorfile = $s->LocalFile ($nsiorfile);
  31 my $t_conffile = $t->LocalFile ($conffile);
  32 $ns->DeleteFile ($nsiorfile);
  33 $t->DeleteFile ($nsiorfile);
  34 $c->DeleteFile ($nsiorfile);
  35 $s->DeleteFile ($nsiorfile);
  36
  37 $NS = $ns->CreateProcess ("$ENV{TAO_ROOT}/orbsvcs/Naming_Service/tao_cosnaming",
  38                           " -o $ns_nsiorfile");
  39
  40 $T = $t->CreateProcess ("Service",
  41                           " -ORBInitRef NameService=file://$t_nsiorfile ".
  42                           "-ORBsvcconf $t_conffile ");
  43
  44 $C = $c->CreateProcess ("Consumer",
  45                         " -ORBInitRef NameService=file://$c_nsiorfile ");
  46
  47 $S = $s->CreateProcess ("Supplier",
  48                         " -ORBInitRef NameService=file://$s_nsiorfile ");
  49
  50
  51 print STDOUT "Starting name server\n";
  52 $NS_status = $NS->Spawn ();
  53
  54 if ($NS_status != 0) {
  55     print STDERR "ERROR: Name Service returned $NS_status\n";
  56     exit 1;
  57 }
  58
  59 if ($ns->WaitForFileTimed ($nsiorfile,$ns->ProcessStartWaitInterval()) == -1) {
  60     print STDERR "ERROR: cannot find file <$ns_nsiorfile>\n";
  61     $NS->Kill (); $NS->TimedWait (1);
  62     exit 1;
  63 }
  64
  65 if ($ns->GetFile ($nsiorfile) == -1) {
  66     print STDERR "ERROR: cannot retrieve file <$ns_nsiorfile>\n";
  67     $NS->Kill (); $NS->TimedWait (1);
  68     exit 1;
  69 }
  70 if ($t->PutFile ($nsiorfile) == -1) {
  71     print STDERR "ERROR: cannot set file <$t_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 if ($s->PutFile ($nsiorfile) == -1) {
  81     print STDERR "ERROR: cannot set file <$s_nsiorfile>\n";
  82     $NS->Kill (); $NS->TimedWait (1);
  83     exit 1;
  84 }
  85
  86 print STDOUT "Starting event server\n";
  87 $T_status = $T->Spawn ();
  88
  89 if ($T_status != 0) {
  90     print STDERR "ERROR: Service returned $T_status\n";
  91     exit 1;
  92 }
  93
  94 sleep 2;
  95
  96 print STDOUT "Starting consumer\n";
  97 $C_status = $C->Spawn ();
  98
  99 if ($C_status != 0) {
 100     print STDERR "ERROR: Consumer returned $C_status\n";
 101     exit 1;
 102 }
 103
 104 sleep 1;
 105
 106 print STDOUT "Starting supplier\n";
 107 $S_status = $S->SpawnWaitKill ($s->ProcessStartWaitInterval()+105);
 108 if ($S_status != 0) {
 109     print STDERR "ERROR: Supplier returned $S_status\n";
 110     exit 1;
 111 }
 112
 113 $C_status = $C->WaitKill ($c->ProcessStopWaitInterval());
 114 if ($C_status != 0) {
 115     print STDERR "ERROR: Consumer returned $C_status\n";
 116     $status = 1;
 117 }
 118
 119 $T_status = $T->TerminateWaitKill ($t->ProcessStopWaitInterval());
 120
 121 if ($T_status != 0) {
 122     print STDERR "ERROR: service returned $T_status\n";
 123     $status = 1;
 124 }
 125
 126 $NS_status = $NS->TerminateWaitKill ($ns->ProcessStopWaitInterval());
 127
 128 if ($NS_status != 0) {
 129     print STDERR "ERROR: Name Service returned $NS_status\n";
 130     $status = 1;
 131 }
 132
 133 $ns->DeleteFile ($nsiorfile);
 134 $t->DeleteFile ($nsiorfile);
 135 $c->DeleteFile ($nsiorfile);
 136 $s->DeleteFile ($nsiorfile);
 137
 138 exit $status;