more testing

1 files changed, 4 insertions, 4 deletions

diff --git a/TAO/orbsvcs/tests/ImplRepo/run_test.pl b/TAO/orbsvcs/tests/ImplRepo/run_test.pl
index c7279c6f927..77f3b70fa1d 100755
--- a/TAO/orbsvcs/tests/ImplRepo/run_test.pl
+++ b/TAO/orbsvcs/tests/ImplRepo/run_test.pl
@@ -713,7 +713,7 @@ get_server_pid ();
 signal_server ("KILL");
 #TODO Kill Server
     # Starting the TAO_ImRActivator will also start the TAOImR
-    print "Starting TAO ImR Services\n";
+    print "Starting TAO ImR Activator Services\n";
     my $net_start_status = system("net start taoimractivator 2>&1");
     if ($net_start_status != 0) {
         print STDERR "ERROR: Stopping ImR service returned $net_start_status\n";
@@ -721,21 +721,21 @@ signal_server ("KILL");
     }
 
 	print "Listing TAO ImR Services after start of the activator\n";
-    $TI->Arguments ("$imr_initref list ");
+    $TI->Arguments ("$imr_initref list -v ");
     $TI_status = $TI->SpawnWaitKill ($ti->ProcessStartWaitInterval());
     if ($TI_status != 0) {
         print STDERR "ERROR: tao_imr list -v returned $TI_status\n";
         return 1;
     }
 
+	print "Starting server again\n";
     $TI->Arguments ("$imr_initref start $a_srv_name[0]");
     $TI_status = $TI->SpawnWaitKill ($ti->ProcessStartWaitInterval());
     if ($TI_status != 0) {
-        print STDERR "ERROR: tao_imr list -v returned $TI_status\n";
+        print STDERR "ERROR: tao_imr start returned $TI_status\n";
         return 1;
     }
 
-
     $TI->Arguments ("$imr_initref ior $a_srv_name[0] -f $a_srv_airplaneiorfile");
     $TI_status = $TI->SpawnWaitKill ($ti->ProcessStartWaitInterval());
     if ($TI_status != 0) {