diff options
| author | mcorino <mcorino@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 2014-04-04 08:47:51 +0000 |
|---|---|---|
| committer | mcorino <mcorino@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 2014-04-04 08:47:51 +0000 |
| commit | 10bd600013c421fa74ea2b162ba44c3b5f8773ac (patch) | |
| tree | 207e5f64219f93e58aad3c6b88e0543eaf8da822 /TAO/tests/Dynamic_TP/ORB_ThreadPool/run_test.pl | |
| parent | ce5ee5901f547ac79086672fdb5104efe545e109 (diff) | |
| download | ATCD-10bd600013c421fa74ea2b162ba44c3b5f8773ac.tar.gz | |
ChangeLogTag TAO:Fri Apr 4 08:40:43 UTC 2014 Martin Corino <mcorino@remedy.nl>
ChangeLogTag ACE:Fri Apr 4 08:38:05 UTC 2014 Martin Corino <mcorino@remedy.nl>
Diffstat (limited to 'TAO/tests/Dynamic_TP/ORB_ThreadPool/run_test.pl')
| -rwxr-xr-x | TAO/tests/Dynamic_TP/ORB_ThreadPool/run_test.pl | 21 |
1 files changed, 14 insertions, 7 deletions
diff --git a/TAO/tests/Dynamic_TP/ORB_ThreadPool/run_test.pl b/TAO/tests/Dynamic_TP/ORB_ThreadPool/run_test.pl index bd9c07d3d1f..2d6c81acb13 100755 --- a/TAO/tests/Dynamic_TP/ORB_ThreadPool/run_test.pl +++ b/TAO/tests/Dynamic_TP/ORB_ThreadPool/run_test.pl @@ -42,6 +42,20 @@ $middle->DeleteFile($siorbase); $middle->DeleteFile($miorbase); $client->DeleteFile($miorbase); +# copy the configuation files +if ($server->PutFile ('server.conf') == -1) { + print STDERR "ERROR: cannot set file <".$server->LocalFile ('server.conf').">\n"; + exit 1; +} +if ($middle->PutFile ('middle.conf') == -1) { + print STDERR "ERROR: cannot set file <".$middle->LocalFile ('middle.conf').">\n"; + exit 1; +} +if ($client->PutFile ('client.conf') == -1) { + print STDERR "ERROR: cannot set file <".$client->LocalFile ('client.conf').">\n"; + exit 1; +} + $SV = $server->CreateProcess ("server", "$sdebug -ORBSvcConf server.conf -ORBDynamicThreadPoolName ORBPool -o $server_iorfile"); $MD = $middle->CreateProcess ("middle", "$mdebug -ORBSvcConf middle.conf -ORBDynamicThreadPoolName ORBPool -o $middle_siorfile -k file://$middle_ciorfile"); $CL = $client->CreateProcess ("client", "$cdebug -ORBSvcConf client.conf -k file://$client_iorfile -n $threads -s $delay -x"); @@ -66,13 +80,6 @@ if ($server->GetFile ($siorbase) == -1) { exit 1; } - -if ($middle->PutFile ($miorbase) == -1) { - print STDERR "ERROR: cannot set file <$middle_ciorfile>\n"; - $SV->Kill (); $SV->TimedWait (1); - exit 1; -} - $middle_status = $MD->Spawn (); if ($middle_status != 0) { |