diff options
| author | iliyan <iliyan@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 2008-03-20 20:22:59 +0000 |
|---|---|---|
| committer | iliyan <iliyan@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 2008-03-20 20:22:59 +0000 |
| commit | 341b867cb2f50225f4e8a3fdb1a4cb793b121f17 (patch) | |
| tree | 5742f14a194c788f1c95d1add73cf71008c40499 | |
| parent | ef10557a30bec58375d2e73e153864c0d39a0582 (diff) | |
| download | ATCD-341b867cb2f50225f4e8a3fdb1a4cb793b121f17.tar.gz | |
ChangeLogTag: Thu Mar 20 20:21:19 UTC 2008 Iliyan Jeliazkov <iliyan@ociweb.com>
| -rw-r--r-- | TAO/ChangeLog.iliyan-gestalt | 8 | ||||
| -rwxr-xr-x | TAO/tests/ORB_Local_Config/run_tests_all.pl | 5 |
2 files changed, 10 insertions, 3 deletions
diff --git a/TAO/ChangeLog.iliyan-gestalt b/TAO/ChangeLog.iliyan-gestalt index b7c87e14164..38739beb333 100644 --- a/TAO/ChangeLog.iliyan-gestalt +++ b/TAO/ChangeLog.iliyan-gestalt @@ -1,3 +1,9 @@ +Thu Mar 20 20:21:19 UTC 2008 Iliyan Jeliazkov <iliyan@ociweb.com> + + * tests/ORB_Local_Config/run_tests_all.pl: + + Fixed a bug that was preventing it from running. + Thu Mar 20 02:14:11 UTC 2008 Iliyan Jeliazkov <iliyan@ociweb.com> * tests/Bug_3251_Regression/Bug_3251.conf: @@ -5,7 +11,7 @@ Thu Mar 20 02:14:11 UTC 2008 Iliyan Jeliazkov <iliyan@ociweb.com> * tests/Bug_3251_Regression/PersistentPoa.h: * tests/Bug_3251_Regression/server.cpp: - Added some changes to makee it compile on Windows. Also added a + Added some changes to make it compile (but not test anything) on Windows. Also added a call to sync (after fork) so we get the correct values for PID in the child. diff --git a/TAO/tests/ORB_Local_Config/run_tests_all.pl b/TAO/tests/ORB_Local_Config/run_tests_all.pl index 076bf732bd4..3440928815d 100755 --- a/TAO/tests/ORB_Local_Config/run_tests_all.pl +++ b/TAO/tests/ORB_Local_Config/run_tests_all.pl @@ -27,11 +27,12 @@ sub test($) { (my $executable, my $arguments) = @_; chdir ($executable); + my $t1; if (PerlACE::is_vxworks_test()) { - my $t1 = new PerlACE::ProcessVX ("Test", ($arguments ? $arguments : "")); + $t1 = new PerlACE::ProcessVX ("Test", ($arguments ? $arguments : "")); } else { - my $t1 = new PerlACE::Process ("Test", ($arguments ? $arguments : "")); + $t1 = new PerlACE::Process ("Test", ($arguments ? $arguments : "")); } print STDERR "\nTest $executable is running ...\n"; my $status = $t1->SpawnWaitKill ($PerlACE::wait_interval_for_process_creation); |