diff options
author | msmit <msmit@remedy.nl> | 2011-09-15 07:41:19 +0000 |
---|---|---|
committer | msmit <msmit@remedy.nl> | 2011-09-15 07:41:19 +0000 |
commit | 896398bfce51d32b78ed278bf17fbca7453c30b2 (patch) | |
tree | ba137b6ed750e5a727a9f6927315d10d32fbb02e /TAO/tests/Bug_3068_Regression | |
parent | 96ad6525f66f03193580cecb65f06f808b56e3ef (diff) | |
download | ATCD-896398bfce51d32b78ed278bf17fbca7453c30b2.tar.gz |
Thu Sep 15 07:42:01 UTC 2011 Marcel Smit <msmit@remedy.nl>
* tests/AMI/run_test.pl:
* tests/Bug_2183_Regression/run_test.pl:
* tests/Bug_2186_Regression/run_test.pl:
* tests/Bug_2935_Regression/run_test.pl:
* tests/Bug_3068_Regression/run_test.pl:
* tests/Leader_Followers/run_test.pl:
* tests/Oneway_Send_Timeouts/run_test.pl:
Copy only those configuration files that are needed by the targets.
We don't want to solve this in the test framework; the script knows
which configuration files should be copied.
Diffstat (limited to 'TAO/tests/Bug_3068_Regression')
-rwxr-xr-x | TAO/tests/Bug_3068_Regression/run_test.pl | 17 |
1 files changed, 15 insertions, 2 deletions
diff --git a/TAO/tests/Bug_3068_Regression/run_test.pl b/TAO/tests/Bug_3068_Regression/run_test.pl index 74ef14252e6..456f2895ad2 100755 --- a/TAO/tests/Bug_3068_Regression/run_test.pl +++ b/TAO/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 " . |