1 files changed, 0 insertions, 31 deletions
diff --git a/TAO/tests/Cubit/TAO/DII_Cubit/run_test.pl b/TAO/tests/Cubit/TAO/DII_Cubit/run_test.pl
deleted file mode 100755
index f3e5d5ba27a..00000000000
--- a/TAO/tests/Cubit/TAO/DII_Cubit/run_test.pl
+++ /dev/null
@@ -1,31 +0,0 @@
-#$Id$
-# -*- perl-mode -*-
-eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
-    & eval 'exec perl -S $0 $argv:q'
-    if 0;
-
-unshift @INC, '../../../../../bin';
-require Process;
-
-$client_port = 0;
-$server_port = 0;
-$iorfile = "theior";
-
-$SV = Process::Create ("..$DIR_SEPARATOR"."IDL_Cubit".
-		       $DIR_SEPARATOR."server".$Process::EXE_EXT, 
-                       " -ORBport ".$server_port.
-		       " -ORBobjrefstyle url".
-		       " -s -f $iorfile");
-
-sleep (2);
-
-$status = system ("client".$Process::EXE_EXT.
-		  " -ORBport $client_port".
-		  " -s -f $iorfile -x");
-
-# @@ TODO change to Wait() once the -x option works.
-$SV->Kill (); $SV->Wait ();
-
-unlink $iorfile;
-
-exit $status;