1 files changed, 0 insertions, 99 deletions
diff --git a/TAO/CIAO/tests/RTCCM/Priority_Test/descriptors/basic_remote.pl b/TAO/CIAO/tests/RTCCM/Priority_Test/descriptors/basic_remote.pl
deleted file mode 100755
index 12b6882fe19..00000000000
--- a/TAO/CIAO/tests/RTCCM/Priority_Test/descriptors/basic_remote.pl
+++ /dev/null
@@ -1,99 +0,0 @@
-eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
-    & eval 'exec perl -S $0 $argv:q'
-    if 0;
-
-# $Id$
-# -*- perl -*-
-
-#
-# @@ Run this script from ../descriptors/ instead.
-#
-
-use lib "$ENV{'ACE_ROOT'}/bin";
-use PerlACE::Run_Test;
-
-$status = 0;
-$assembly = PerlACE::LocalFile ("basic-remote.cad");
-$am_ior = PerlACE::LocalFile ("am.ior");
-$controller_ior = PerlACE::LocalFile ("controller.ior");
-$cookie = PerlACE::LocalFile ("ck_demo_deployment");
-$topo_config = PerlACE::LocalFile ("remote.dat");
-
-$ACE_ROOT=$ENV{'ACE_ROOT'};
-$CIAO_ROOT=$ENV{'CIAO_ROOT'};
-
-if ($CIAO_ROOT eq "") {
-    $CIAO_ROOT="$ACE_ROOT/TAO/CIAO";
-}
-
-unlink $am_ior;
-unlink $cookie;
-
-
-$assembly_manager_args = "-o $am_ior -c $topo_config";
-
-$ad_deploy = " -k file://$am_ior -o $cookie -a $assembly";
-
-$ad_teardown = " -k file://$am_ior -d $cookie -x";
-
-## Starting up the CIAO Assembly Manager
-$AM = new PerlACE::Process("$CIAO_ROOT/tools/Assembly_Deployer/Assembly_Manager",
-                           $assembly_manager_args);
-$AM->Spawn ();
-if (PerlACE::waitforfile_timed ($am_ior, 15) == -1) {
-    print STDERR "ERROR: Could not find assembly ior file <$am_ior>\n";
-    $AM->Kill ();
-    exit 1;
-}
-
-## Now actually deploy the application
-$AD = new PerlACE::Process("$CIAO_ROOT/tools/Assembly_Deployer/Assembly_Deployer",
-                           $ad_deploy);
-if ($AD->SpawnWaitKill (60) == -1) {
-    print STDERR "ERROR: Failed to deploy assembly file <$assembly>\n";
-    $AD->Kill ();
-    $AM->Kill ();
-}
-
-## Make sure the application is up and running
-if (PerlACE::waitforfile_timed ($controller_ior, 15) == -1) {
-    print STDERR "ERROR: Could not find controller ior file <$controller_ior>\n";
-    $AM->Kill ();
-    exit 1;
-}
-
-for ($work = 10; $work < 401; $work += 10)
-{
-    printf "Test work: $work\n";
-
-#Start the client to send the trigger message
-    $CL = new PerlACE::Process ("../Controllers/client",
-                                "-k file://$controller_ior -w $work");
-    $CL->SpawnWaitKill(60);
-
-## Now wait for the test to complete.  Need to figure out a way to
-## detect this.
-    sleep (1);
-}
-
-## Now teardown the application
-$AD = new PerlACE::Process("$CIAO_ROOT/tools/Assembly_Deployer/Assembly_Deployer",
-                           $ad_teardown);
-if ($AD->SpawnWaitKill (60) == -1) {
-    print STDERR "ERROR: Failed to teardown assembly file <$assembly>\n";
-    $AD->Kill ();
-    $AM->Kill ();
-    exit 1;
-}
-
-#$AM->WaitKill(5);
-#$AD->WaitKill(5);
-
-$AM->WaitKill (40);
-
-
-unlink $cookie;
-unlink $controller_ior;
-unlink $am_ior;
-
-exit $status;