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/Bug_3068_Regression/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/Bug_3068_Regression/run_test.pl')
-rwxr-xr-x | tests/Bug_3068_Regression/run_test.pl | 17 |
1 files changed, 15 insertions, 2 deletions
diff --git a/tests/Bug_3068_Regression/run_test.pl b/tests/Bug_3068_Regression/run_test.pl index 74ef14252e6..456f2895ad2 100755 --- a/tests/Bug_3068_Regression/run_test.pl +++ b/tests/Bug_3068_Regression/run_test.pl @@ -26,8 +26,21 @@ my $client_iorfile = $client->LocalFile ($iorbase); $server->DeleteFile($iorbase); $client->DeleteFile($iorbase); -my $server_conf = $server->LocalFile ("server.conf"); -my $client_conf = $client->LocalFile ("client.conf"); +my $server_conf_base = "server.conf"; +my $client_conf_base = "client.conf"; +my $server_conf = $server->LocalFile ($server_conf_base); +my $client_conf = $client->LocalFile ($client_conf_base); + +if ($server->PutFile ($server_conf_base) == -1) { + print STDERR "ERROR: cannot set file <$server_conf>\n"; + $SV->Kill (); $SV->TimedWait (1); + exit 1; +} +if ($client->PutFile ($client_conf_base) == -1) { + print STDERR "ERROR: cannot set file <$client_conf>\n"; + $SV->Kill (); $SV->TimedWait (1); + exit 1; +} $SV = $server->CreateProcess ("server", "-ORBdebuglevel $debug_level " . |