1 files changed, 60 insertions, 0 deletions
diff --git a/TAO/CIAO/examples/Hello/descriptors/run_test_default.pl b/TAO/CIAO/examples/Hello/descriptors/run_test_default.pl
new file mode 100755
index 00000000000..daaa8031714
--- /dev/null
+++ b/TAO/CIAO/examples/Hello/descriptors/run_test_default.pl
@@ -0,0 +1,60 @@
+eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
+    & eval 'exec perl -S $0 $argv:q'
+    if 0;
+
+# $Id$
+# -*- perl -*-
+
+# This is a Perl script that runs the Hello example.
+
+use lib "$ENV{'ACE_ROOT'}/bin";
+use PerlACE::Run_Test;
+
+$status = 0;
+
+$ACE_ROOT=$ENV{'ACE_ROOT'};
+$CIAO_ROOT=$ENV{'CIAO_ROOT'};
+# amount of delay between running the servers
+$sleeptime = 1;
+$longsleeptime = 3;
+$DM_args = "-ORBEndpoint iiop://localhost:20000 -n ${CIAO_ROOT}/tools/ComponentServer/ComponentServer";
+$DM = new PerlACE::Process ("${CIAO_ROOT}/tools/Daemon/CIAO_Daemon", "$DM_args");
+
+$AM_args = "-o ior -c test.dat";
+$AM = new PerlACE::Process ("${CIAO_ROOT}/tools/Assembly_Deployer/Assembly_Manager", "$AM_args");
+
+$AD_args = "-k file://ior -a default.cad";
+$AD = new PerlACE::Process ("${CIAO_ROOT}/tools/Assembly_Deployer/Assembly_Deployer", "$AD_args");
+
+$ST = new PerlACE::Process ("${CIAO_ROOT}/examples/Hello/Sender/starter");
+
+# Start the daemons.
+$DM->Spawn ();
+
+# Give the service time to settle
+sleep $sleeptime;
+
+# Start the Assembly_Manager
+$AM->Spawn ();
+
+# Sait till the Manager finishes writing the IOR
+sleep $longsleeptime;
+
+# Start the Assembly_Deployer
+$AD->Spawn ();
+
+# This might take a while
+sleep $longsleeptime;
+
+
+#Now start the starter for 1 times.
+#$ST->SpawnWaitKill (10);
+$ST->SpawnWaitKill (2);
+$ST->SpawnWaitKill (2);
+$ST->SpawnWaitKill (2);
+
+sleep 2;
+
+#You will see lots of errors when shutting down all services.
+#I will try to find a way to shutdown everything gracefully.
+exit $status;