1 files changed, 0 insertions, 46 deletions
diff --git a/TAO/orbsvcs/tests/Notify/Lanes/run_test_supplier.pl b/TAO/orbsvcs/tests/Notify/Lanes/run_test_supplier.pl
deleted file mode 100755
index ee07733aa8d..00000000000
--- a/TAO/orbsvcs/tests/Notify/Lanes/run_test_supplier.pl
+++ /dev/null
@@ -1,46 +0,0 @@
-eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
-    & eval 'exec perl -S $0 $argv:q'
-    if 0;
-
-# $Id$
-# -*- perl -*-
-
-use lib "$ENV{ACE_ROOT}/bin";
-use PerlACE::Run_Test;
-
-$experiment_timeout = 600;
-$startup_timeout = 600;
-$notify_ior = PerlACE::LocalFile ("notify.ior");
-$naming_ior = PerlACE::LocalFile ("naming.ior");
-$supplier_ior = PerlACE::LocalFile ("supplier.ior");
-$supplier_conf = PerlACE::LocalFile ("supplier.conf");
-$consumer_conf = PerlACE::LocalFile ("consumer.conf");
-$status = 0;
-
-$Supplier = new PerlACE::Process ("../Driver/Notify_Tests_Driver");
-
-#$Supplier_Args = "-ORBInitRef NameService=file://$naming_ior -IORoutput $supplier_ior -ORBSvcConf $supplier_conf";
-$Supplier_Args = "-ORBInitRef NameService=file://$naming_ior -IORoutput $supplier_ior -ORBSvcConf $supplier_conf -ORBDebugLevel 1";
-
-if (PerlACE::waitforfile_timed ($notify_ior, $startup_timeout) == -1) {
-  print STDERR "ERROR: waiting for the notify service to start\n";
-  exit 1;
-}
-
-unlink $supplier_ior;
-$Supplier->Arguments ($Supplier_Args);
-$args = $Supplier->Arguments ();
-print STDERR "Running Supplier with arguments: $args\n";
-$status = $Supplier->SpawnWaitKill ($experiment_timeout);
-
-if ($status != 0)
-  {
-    print STDERR "ERROR: Supplier returned $status\n";
-    $Supplier->Kill ();
-    exit 1;
-  }
-
-$Supplier->Kill ();
-unlink $supplier_ior;
-
-exit $status;