diff options
author | coryan <coryan@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 2000-04-18 20:36:19 +0000 |
---|---|---|
committer | coryan <coryan@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 2000-04-18 20:36:19 +0000 |
commit | 3e0560a883f3b674454c6508d369c6aaeceac4c0 (patch) | |
tree | 13fe97558268646df127ebf57c9b6dae895974cf /TAO/orbsvcs/tests/Event/Basic/exhaustive_test.pl | |
parent | d90faf90f97662f678cf9c69c471e012c8daff3b (diff) | |
download | ATCD-3e0560a883f3b674454c6508d369c6aaeceac4c0.tar.gz |
ChangeLogTag:Tue Apr 18 13:34:27 2000 Carlos O'Ryan <coryan@uci.edu>
Diffstat (limited to 'TAO/orbsvcs/tests/Event/Basic/exhaustive_test.pl')
-rwxr-xr-x | TAO/orbsvcs/tests/Event/Basic/exhaustive_test.pl | 68 |
1 files changed, 68 insertions, 0 deletions
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; |