summaryrefslogtreecommitdiff
path: root/TAO/tests/Simple/run_test.pl
diff options
context:
space:
mode:
Diffstat (limited to 'TAO/tests/Simple/run_test.pl')
-rwxr-xr-xTAO/tests/Simple/run_test.pl31
1 files changed, 0 insertions, 31 deletions
diff --git a/TAO/tests/Simple/run_test.pl b/TAO/tests/Simple/run_test.pl
deleted file mode 100755
index 4c607a123b6..00000000000
--- a/TAO/tests/Simple/run_test.pl
+++ /dev/null
@@ -1,31 +0,0 @@
-#$Id$
-eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
- & eval 'exec perl -S $0 $argv:q'
- if 0;
-
-unshift @INC, '../../../bin';
-require Process;
-require Uniqueid;
-
-$nsport = 20000 + uniqueid ();
-# doesn't actually use ns yet
-$client_port = 0;
-$server_port = 0;
-$iorfile = "theior";
-$sleeptime = 3;
-
-$SV = Process::Create ("server".$Process::EXE_EXT,
- "-ORBport $server_port -o $iorfile -ORBobjrefstyle url");
-
-sleep ($sleeptime);
-
-system ("client".$Process::EXE_EXT." -f $iorfile -x -ORBport $client_port");
-
-if ($^O eq "MSWin32")
-{
- system ("del ".$iorfile);
-}
-else
-{
- system ("rm ".$iorfile);
-}