summaryrefslogtreecommitdiff
path: root/orbsvcs/tests/Event/Mcast/Simple/run_test.pl
diff options
context:
space:
mode:
Diffstat (limited to 'orbsvcs/tests/Event/Mcast/Simple/run_test.pl')
-rwxr-xr-xorbsvcs/tests/Event/Mcast/Simple/run_test.pl14
1 files changed, 7 insertions, 7 deletions
diff --git a/orbsvcs/tests/Event/Mcast/Simple/run_test.pl b/orbsvcs/tests/Event/Mcast/Simple/run_test.pl
index 86285dfb808..286196cc55f 100755
--- a/orbsvcs/tests/Event/Mcast/Simple/run_test.pl
+++ b/orbsvcs/tests/Event/Mcast/Simple/run_test.pl
@@ -67,13 +67,13 @@ sub run_test {
kill_processes ();
return -1;
}
-
+
# Consumer EC.
if (run_ec (1, $consumer_conffile[$index], $consumer_iorfile) != 0) {
kill_processes ();
return -1;
}
-
+
# Consumer.
$ps[2] = $test->CreateProcess ("consumer", "-ORBLogFile $output_files[2] ".
"-ORBInitRef Event_Service=file://$consumer_iorfile");
@@ -81,10 +81,10 @@ sub run_test {
kill_processes ();
return -1;
}
-
+
# Give consumer a chance to connect to its EC before firing off the supplier.
sleep ($sleeptime);
-
+
# Supplier.
$ps[3] = $test->CreateProcess ("supplier", "-ORBLogFile $output_files[3] ".
"-ORBInitRef Event_Service=file://$supplier_iorfile");
@@ -172,16 +172,16 @@ sub analyze_results {
}
close (TEST_OUTPUT);
-
+
if ($events_received != 100) {
print STDERR "ERROR: consumer received $events_received events, expected 100\n";
}
-
+
if ($events_received == 100 && $status == 0) {
print STDERR "SUCCESS\n";
return 0;
}
-
+
print STDERR "ERROR - check $output_files[$process_id] for full output.\n";
return -1;
}