diff options
Diffstat (limited to 'TAO/tests/Muxing/run_test.pl')
-rwxr-xr-x | TAO/tests/Muxing/run_test.pl | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/TAO/tests/Muxing/run_test.pl b/TAO/tests/Muxing/run_test.pl index a96127632e8..9447f83d1c0 100755 --- a/TAO/tests/Muxing/run_test.pl +++ b/TAO/tests/Muxing/run_test.pl @@ -16,6 +16,9 @@ $SV = new PerlACE::Process ("server", "-o $iorfile"); $CL1 = new PerlACE::Process ("client", " -k file://$iorfile"); $CL2 = new PerlACE::Process ("client", " -k file://$iorfile"); +for ($i=0; $i!=75; $i++) +{ + print STDERR "******************* $i\n"; $SV->Spawn (); if (PerlACE::waitforfile_timed ($iorfile, 15) == -1) { @@ -49,5 +52,6 @@ if ($server != 0) { } unlink $iorfile; +} exit $status; |