1 files changed, 62 insertions, 0 deletions
diff --git a/TAO/tests/AMI/run_test.pl b/TAO/tests/AMI/run_test.pl
new file mode 100755
index 00000000000..0ef900d07f4
--- /dev/null
+++ b/TAO/tests/AMI/run_test.pl
@@ -0,0 +1,62 @@
+eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
+    & eval 'exec perl -S $0 $argv:q'
+    if 0;
+
+# $Id$
+# -*- perl -*-
+
+unshift @INC, '../../../bin';
+require ACEutils;
+
+$client_conf="client.global.conf";
+$client_process="client";
+$debug_level='0';
+$threads='10';
+
+foreach $i (@ARGV) {
+  if ($i eq '-tss') {
+    $client_conf = "client.tss.conf";
+  } elsif ($i eq '-debug') {
+    $debug_level = '1';
+  } elsif ($i eq '-creation') {
+    $client_process = 'orb_creation';
+    $threads='2';
+  }
+}
+
+$iorfile = "server.ior";
+$SV = Process::Create ($EXEPREFIX."server$EXE_EXT ",
+                       " -ORBsvcconf server.conf  -ORBdebuglevel $debug_level"
+                       . " -o $iorfile");
+
+if (ACE::waitforfile_timed ($iorfile, 5) == -1) {
+  print STDERR "ERROR: cannot find file <$iorfile>\n";
+  $SV->Kill (); $SV->TimedWait (1);
+  exit 1;
+}
+
+$CL = Process::Create ($EXEPREFIX."$client_process$EXE_EXT ",
+		       " -ORBsvcconf $client_conf "
+		       . "-ORBdebuglevel $debug_level"
+		       . " -k file://$iorfile "
+		       . " -n $threads -i 1000");
+
+$client = $CL->TimedWait (60);
+if ($client == -1) {
+  print STDERR "ERROR: client timedout\n";
+  $CL->Kill (); $CL->TimedWait (1);
+}
+
+$server = $SV->TimedWait (5);
+if ($server == -1) {
+  print STDERR "ERROR: server timedout\n";
+  $SV->Kill (); $SV->TimedWait (1);
+}
+
+unlink $iorfile;
+
+if ($server != 0 || $client != 0) {
+  exit 1;
+}
+
+exit 0;