From 3e0560a883f3b674454c6508d369c6aaeceac4c0 Mon Sep 17 00:00:00 2001
From: coryan <coryan@ae88bc3d-4319-0410-8dbf-d08b4c9d3795>
Date: Tue, 18 Apr 2000 20:36:19 +0000
Subject: ChangeLogTag:Tue Apr 18 13:34:27 2000  Carlos O'Ryan 
 <coryan@uci.edu>

---
 TAO/orbsvcs/tests/Event/Basic/exhaustive_test.pl | 68 ++++++++++++++++++++++++
 1 file changed, 68 insertions(+)
 create mode 100755 TAO/orbsvcs/tests/Event/Basic/exhaustive_test.pl

(limited to 'TAO/orbsvcs/tests/Event/Basic/exhaustive_test.pl')

diff --git a/TAO/orbsvcs/tests/Event/Basic/exhaustive_test.pl b/TAO/orbsvcs/tests/Event/Basic/exhaustive_test.pl
new file mode 100755
index 00000000000..77bf4379b7c
--- /dev/null
+++ b/TAO/orbsvcs/tests/Event/Basic/exhaustive_test.pl
@@ -0,0 +1,68 @@
+eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
+    & eval 'exec perl -S $0 $argv:q'
+    if 0;
+
+# $Id$
+# -*- perl -*-
+
+# This is a Perl script that runs the client and all the other servers that
+# are needed
+
+unshift @INC, '../../../../../bin';
+require ACEutils;
+require Uniqueid;
+use Cwd;
+
+$cwd = getcwd();
+ACE::checkForTarget($cwd);
+$status = 0;
+
+$conf_file = 'exhaustive.conf';
+@dispatching_configs = ("-ECDispatching reactive",
+			"-ECDispatching mt -ECDispatchingThreads 4");
+@collection_strategies = ("copy_on_read",
+			  "copy_on_write",
+			  "delayed");
+@collection_types = ("list", "rb_tree");
+@filtering_configs = ("-ECFiltering prefix -ECSupplierFilter per-supplier",
+		      "-ECFiltering prefix -ECSupplierFilter null");
+
+foreach $d (@dispatching_configs) {
+  foreach $f (@filtering_configs) {
+    foreach $c (@collection_strategies) {
+      foreach $t (@collection_types) {
+	local $collection = "mt:".$c.":".$t;
+	local $config =
+	  'static EC_Factory "'
+	  .$d
+	  ." -ECProxyPushConsumerCollection ".$collection
+	  ." -ECProxyPushSupplierCollection ".$collection
+	  ." ".$f
+	  .'"';
+	open (CONFIG,">$conf_file")
+	  || die "Cannot open $conf_file\n";
+	print CONFIG $config, "\n";
+	close (CONFIG);
+
+	print STDERR "\n\n", $config, "\n";
+
+	$T = Process::Create ($EXEPREFIX . "Random".$EXE_EXT,
+			      " -ORBSvcConf "
+			      .$cwd.$DIR_SEPARATOR.
+			      "$conf_file"
+			      ." -suppliers 16"
+			      ." -consumers 16"
+			      ." -max_recursion 0");
+	if ($T->TimedWait (900) == -1) {
+	  print STDERR "ERROR: Test timedout\n";
+	  $status = 1;
+	  $T->Kill (); $T->TimedWait (1);
+	}
+      }
+    }
+  }
+}
+
+unlink "$conf_file";
+
+exit $status;
-- 
cgit v1.2.1