diff options
author | coryan <coryan@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 1998-08-19 17:48:00 +0000 |
---|---|---|
committer | coryan <coryan@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 1998-08-19 17:48:00 +0000 |
commit | 7b16d0571113e52c8ad74dbd144996df48ec4836 (patch) | |
tree | f0c9f621014d1d4ab32712fd1965d2f10d808fd0 | |
parent | 5d340244a2eaa309e4dfc22b96d18425b19869a9 (diff) | |
download | ATCD-7b16d0571113e52c8ad74dbd144996df48ec4836.tar.gz |
ChangeLogTag:Wed Aug 19 10:48:37 1998 Carlos O'Ryan <coryan@cs.wustl.edu>
-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 (); |