1 files changed, 0 insertions, 41 deletions
diff --git a/TAO/tests/Param_Test/run_test.pl b/TAO/tests/Param_Test/run_test.pl
deleted file mode 100755
index bb4b865e604..00000000000
--- a/TAO/tests/Param_Test/run_test.pl
+++ /dev/null
@@ -1,41 +0,0 @@
-#!/pkg/gnu/bin/perl -I../../../bin
-#
-# If your perl installation isn't in /pkg/gnu/bin/perl,
-# please make the change accordingly
-#
-
-use Process;
-
-#uid=`id | cut -c5-20 | cut -f1 -d"("`
-$port = 30001 + $uid;
-$iorfile = "theior";
-$invocation = "sii";
-
-$SV = Process::Create (".".$DIR_SEPARATOR."server".$Process::EXE_EXT, 
-                       "-ORBobjrefstyle url -ORBport ".$port." -o ".$iorfile." 2");
-sleep (2);     # Give the server a chance to start up
-
-# "any" should be added at some time.
-
-@types = ("short", "ubstring", "fixed_struct", "strseq", "bounded_strseq", "var_struct", "nested_struct", 
-          "struct_seq", "bounded_struct_seq", "objref", "objref_sequence", "any_sequence", 
-          "short_sequence", "long_sequence", "bounded_short_sequence", "bounded_long_sequence");
-
-
-foreach $type (@types)
-{
-	print ("BEGIN Testing type ".$type."\n");
-	system (".".$DIR_SEPARATOR."client -f ".$iorfile."  -i ".$invocation." -t ".$type." 2");
-	print ("END   Testing type ".$type."\n");
-}
-
-$SV->Kill ();
-
-if ($^O eq "MSWin32")
-{
-  system ("del ".$iorfile);
-}
-else
-{
-  system ("rm ".$iorfile);
-}
-\ No newline at end of file