Sun Jan 17 19:00:25 UTC 2010 Abdul Sowayan <sowayan@gmail.com>

1 files changed, 8 insertions, 2 deletions

diff --git a/TAO/orbsvcs/DevGuideExamples/EventServices/OMG_Basic/run_test.pl b/TAO/orbsvcs/DevGuideExamples/EventServices/OMG_Basic/run_test.pl
index 153ca3624e2..42b003b39c0 100755
--- a/TAO/orbsvcs/DevGuideExamples/EventServices/OMG_Basic/run_test.pl
+++ b/TAO/orbsvcs/DevGuideExamples/EventServices/OMG_Basic/run_test.pl
@@ -35,9 +35,12 @@ $s->DeleteFile ($nsiorfile);
 $c->DeleteFile ($nsiorfile);
 $es->DeleteFile ($esiorfile);
 
+$sleeptime = 10;
+
 $NameService = "$ENV{TAO_ROOT}/orbsvcs/Naming_Service/Naming_Service";
-$NS = $ns->CreateProcess ($NameService, "-ORBdebuglevel $debug_level ".
+$NS = $ns->CreateProcess ($NameService, "-ORBdebuglevel $debug_level -ORBListenEndpoints iiop://:2809 ".
                                         " -o $ns_nsiorfile");
+
 $EventService = "$ENV{TAO_ROOT}/orbsvcs/CosEvent_Service/CosEvent_Service";
 $ES = $es->CreateProcess ($EventService, " -o $es_esiorfile ".
                                         "-ORBInitRef NameService=file://$es_nsiorfile");
@@ -52,6 +55,8 @@ if ($NS_status != 0) {
     exit 1;
 }
 
+sleep $sleeptime;
+
 if ($ns->WaitForFileTimed ($nsiorfile,$ns->ProcessStartWaitInterval()) == -1) {
     print STDERR "ERROR: cannot find file <$ns_nsiorfile>\n";
     $NS->Kill (); $NS->TimedWait (1);
@@ -79,7 +84,6 @@ if ($c->PutFile ($nsiorfile) == -1) {
     exit 1;
 }
 
-
 # start Event Service
 $ES_status = $ES->Spawn ();
 
@@ -88,6 +92,8 @@ if ($ES_status != 0) {
     exit 1;
 }
 
+sleep $sleeptime;
+
 if ($es->WaitForFileTimed ($esiorfile,$es->ProcessStartWaitInterval()) == -1) {
     print STDERR "ERROR: cannot find file <$es_esiorfile>\n";
     $ES->Kill (); $ES->TimedWait (1);