diff options
-rw-r--r-- | TAO/ChangeLog-98c | 7 | ||||
-rwxr-xr-x | TAO/tests/NestedUpcall/Reactor/run_test.pl | 14 |
2 files changed, 10 insertions, 11 deletions
diff --git a/TAO/ChangeLog-98c b/TAO/ChangeLog-98c index 61b89a6fe2b..dbf1ec2ce4d 100644 --- a/TAO/ChangeLog-98c +++ b/TAO/ChangeLog-98c @@ -5,8 +5,11 @@ Wed Aug 19 10:48:37 1998 Carlos O'Ryan <coryan@cs.wustl.edu> Fixed syntax errors, wrong paths and increased sleep time, seems to work now. - * tests/Cubit/TAO/DII_Cubit/run_test.pl: - The script was giving the wrong options to the server. + * tests/Cubit/TAO/DII_Cubit/run_test.pl: + The script was giving the wrong options to the server. + + * tests/NestedUpcall/Reactor/run_test.pl: + Increased sleep time, simplify command line args. Wed Aug 19 09:47:58 1998 David L. Levine <levine@cs.wustl.edu> diff --git a/TAO/tests/NestedUpcall/Reactor/run_test.pl b/TAO/tests/NestedUpcall/Reactor/run_test.pl index 8444962cbcd..ae24eb7881a 100755 --- a/TAO/tests/NestedUpcall/Reactor/run_test.pl +++ b/TAO/tests/NestedUpcall/Reactor/run_test.pl @@ -1,4 +1,6 @@ -#$Id$ +# +# $Id$ +# eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' & eval 'exec perl -S $0 $argv:q' if 0; @@ -7,22 +9,16 @@ unshift @INC, '../../../../bin'; require Process; require Uniqueid; -$nsport = 20000 + uniqueid (); -$client_port = 0; -$server_port = 0; $iorfile = "theior"; -$sleeptime = 3; +$sleeptime = 10; $SV = Process::Create ("server".$Process::EXE_EXT, - " -ORBport ".$server_port. - " -ORBnameserviceport ".$nsport. " -ORBobjrefstyle url"); sleep ($sleeptime); $status = system ("client".$Process::EXE_EXT. - " -x -ORBnameserviceport ".$nsport. - " -ORBport ".$client_port ); + " -x "); $SV->Wait (); |