diff options
author | kirthika <kirthika@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 1998-09-17 00:04:27 +0000 |
---|---|---|
committer | kirthika <kirthika@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 1998-09-17 00:04:27 +0000 |
commit | 13bdde6625aac1e709062f367880c4f22d6ab5e2 (patch) | |
tree | d7157af1e03484beab67eeae0b0f998d5c6ca819 /TAO | |
parent | 045240d04003ab457a7098153eb54d21a8c32029 (diff) | |
download | ATCD-13bdde6625aac1e709062f367880c4f22d6ab5e2.tar.gz |
*** empty log message ***
Diffstat (limited to 'TAO')
-rw-r--r-- | TAO/ChangeLog-98c | 7 | ||||
-rwxr-xr-x | TAO/examples/Simple/echo/run_test.pl | 12 |
2 files changed, 10 insertions, 9 deletions
diff --git a/TAO/ChangeLog-98c b/TAO/ChangeLog-98c index 46975998ec2..3174f1d1b8b 100644 --- a/TAO/ChangeLog-98c +++ b/TAO/ChangeLog-98c @@ -1,3 +1,9 @@ +1998-09-16 Kirthika Parameswaran <kirthika@cs.wustl.edu> + + * examples/Simple/echo/run_test.pl: + modified the script so that it works for the test + example with Naming service. + Wed Sep 16 18:47:55 1998 Douglas C. Schmidt <schmidt@tango.cs.wustl.edu> * orbsvcs/orbsvcs/Event/EC_Gateway_UDP.cpp (push): Added a cast to @@ -65,6 +71,7 @@ Tue Sep 15 20:10:37 1998 Douglas C. Schmidt <schmidt@tango.cs.wustl.edu> /Client_i.h /Echo_i.cpp /Echo_i.h + /Echo.idl /Makefile /Server_i.cpp /Server_i.h diff --git a/TAO/examples/Simple/echo/run_test.pl b/TAO/examples/Simple/echo/run_test.pl index 0b51b245b17..4869ff01f4e 100755 --- a/TAO/examples/Simple/echo/run_test.pl +++ b/TAO/examples/Simple/echo/run_test.pl @@ -4,22 +4,16 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' & eval 'exec perl -S $0 $argv:q' if 0; - -#unshift @INC, '../../../../bin'; use lib "../../../../bin"; require ACEutils; require Process; -$iorfile = "echo.ior"; - -$SV = Process::Create ("server$Process::EXE_EXT", "-o $iorfile "); -ACE::waitforfile ($iorfile); +$SV = Process::Create ("server$Process::EXE_EXT", " "); -$status = system ("client$Process::EXE_EXT -f $iorfile -x"); +sleep($ACE::sleeptime); +$status = system ("client$Process::EXE_EXT -x"); $SV->Kill (); $SV->Wait (); -unlink $iorfile; - exit $status; |