diff options
| -rw-r--r-- | TAO/ChangeLog | 11 | ||||
| -rwxr-xr-x | TAO/tests/Servant_To_Reference_Test/run_test.pl | 28 | ||||
| -rw-r--r-- | TAO/tests/Servant_To_Reference_Test/server.cpp | 2 |
3 files changed, 40 insertions, 1 deletions
diff --git a/TAO/ChangeLog b/TAO/ChangeLog index 82fb2bc128f..dced441feb4 100644 --- a/TAO/ChangeLog +++ b/TAO/ChangeLog @@ -1,3 +1,14 @@ +Tue Nov 25 16:21:59 2003 Balachandran Natarajan <bala@dre.vanderbilt.edu> + + * tests/Servant_To_Reference_Test/server.cpp (svc): + + Reduced the number of iterations so that they have any chance of + completing on slower machines. + + * tests/Servant_To_Reference_Test/run_test.pl: + + Scripts for daily builds + Tue Nov 25 15:52:03 2003 Balachandran Natarajan <bala@dre.vanderbilt.edu> * tao/PortableServer/POA.cpp: diff --git a/TAO/tests/Servant_To_Reference_Test/run_test.pl b/TAO/tests/Servant_To_Reference_Test/run_test.pl new file mode 100755 index 00000000000..dcae6d38fb7 --- /dev/null +++ b/TAO/tests/Servant_To_Reference_Test/run_test.pl @@ -0,0 +1,28 @@ +eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' + & eval 'exec perl -S $0 $argv:q' + if 0; + +# $Id$ +# -*- perl -*- + +use lib '../../../bin'; +use PerlACE::Run_Test; + +$iorfile = PerlACE::LocalFile ("server.ior"); +unlink $iorfile; +$status = 0; + +$SV = new PerlACE::Process ("server", "-o $iorfile"); + +$SV->Spawn (); + +$server = $SV->WaitKill (120); + +if ($server != 0) { + print STDERR "ERROR: server returned $server\n"; + $status = 1; +} + +unlink $iorfile; + +exit $status; diff --git a/TAO/tests/Servant_To_Reference_Test/server.cpp b/TAO/tests/Servant_To_Reference_Test/server.cpp index 9d5b1623de9..545e7014b90 100644 --- a/TAO/tests/Servant_To_Reference_Test/server.cpp +++ b/TAO/tests/Servant_To_Reference_Test/server.cpp @@ -42,7 +42,7 @@ MT_Task::svc (void) ACE_TRY { for (CORBA::Long i = 0; - i != 10000; + i != 2000; ++i) { CORBA::Object_var one_ref = |