diff options
author | parsons <parsons@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 2011-10-03 21:02:32 +0000 |
---|---|---|
committer | parsons <parsons@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 2011-10-03 21:02:32 +0000 |
commit | 4dcca24c609008f9fe8a4e01966702b8f4c08e61 (patch) | |
tree | 6bf00b87749636ef3ea7ec22a9b13d4dd2597378 /tests/Leader_Followers/run_test.pl | |
parent | 8c7cc4d18ddf28a18a01fef53aaea68422b2fff2 (diff) | |
download | ATCD-4dcca24c609008f9fe8a4e01966702b8f4c08e61.tar.gz |
Merged version 94552 from main trunk into this branchalt_mapping_SAIC
Diffstat (limited to 'tests/Leader_Followers/run_test.pl')
-rwxr-xr-x | tests/Leader_Followers/run_test.pl | 27 |
1 files changed, 27 insertions, 0 deletions
diff --git a/tests/Leader_Followers/run_test.pl b/tests/Leader_Followers/run_test.pl index 8935ffa36c4..ba7cf1d9d8e 100755 --- a/tests/Leader_Followers/run_test.pl +++ b/tests/Leader_Followers/run_test.pl @@ -24,11 +24,15 @@ my $iorbase = "lf.ior"; my $tp_conf_base = "tp$PerlACE::svcconf_ext"; my $select_mt_conf_base = "select_mt$PerlACE::svcconf_ext"; +# init server configuration files my $server_tp_conf_file = $server->LocalFile ($tp_conf_base); my $server_select_mt_conf_file = $server->LocalFile ($select_mt_conf_base); + +# init client configuration files my $client_tp_conf_file = $client->LocalFile ($tp_conf_base); my $client_select_mt_conf_file = $client->LocalFile ($select_mt_conf_base); +# init ior files my $server_iorfile = $server->LocalFile ($iorbase); my $client_iorfile = $client->LocalFile ($iorbase); $server->DeleteFile($iorbase); @@ -177,6 +181,29 @@ for ($i = 0; $i <= $#ARGV; $i++) { } } +# Copy configuration files to the targets +if ($server->PutFile ($tp_conf_base) == -1) { + print STDERR "ERROR: cannot set file <$server_tp_conf_file>\n"; + $SV->Kill (); $SV->TimedWait (1); + return 1; +} +if ($server->PutFile ($select_mt_conf_base) == -1) { + print STDERR "ERROR: cannot set file <$server_select_mt_conf_file>\n"; + $SV->Kill (); $SV->TimedWait (1); + return 1; +} + +if ($client->PutFile ($tp_conf_base) == -1) { + print STDERR "ERROR: cannot set file <$client_tp_conf_file>\n"; + $SV->Kill (); $SV->TimedWait (1); + return 1; +} +if ($client->PutFile ($select_mt_conf_base) == -1) { + print STDERR "ERROR: cannot set file <$client_select_mt_conf_file>\n"; + $SV->Kill (); $SV->TimedWait (1); + return 1; +} + if ($single == 1) { print STDERR "\n\n*** Single threaded server ***\n\n\n"; $run_status = run_server("-ORBsvcconf $server_select_mt_conf_file"); |