diff options
author | William R. Otte <wotte@dre.vanderbilt.edu> | 2006-07-24 15:50:21 +0000 |
---|---|---|
committer | William R. Otte <wotte@dre.vanderbilt.edu> | 2006-07-24 15:50:21 +0000 |
commit | 3aff90f4a822fcf5d902bbfbcc9fa931d6191a8c (patch) | |
tree | 197c810e5f5bce17b1233a7cb8d7b50c0bcd25e2 /TAO/orbsvcs/tests/Notify/performance-tests/scripts/Max_Throughput/2_Hops | |
parent | 6b846cf03c0bcbd8c276cb0af61a181e5f98eaae (diff) | |
download | ATCD-3aff90f4a822fcf5d902bbfbcc9fa931d6191a8c.tar.gz |
Repo restructuring
Diffstat (limited to 'TAO/orbsvcs/tests/Notify/performance-tests/scripts/Max_Throughput/2_Hops')
3 files changed, 143 insertions, 0 deletions
diff --git a/TAO/orbsvcs/tests/Notify/performance-tests/scripts/Max_Throughput/2_Hops/consumer.conf b/TAO/orbsvcs/tests/Notify/performance-tests/scripts/Max_Throughput/2_Hops/consumer.conf new file mode 100644 index 00000000000..0f95a246f56 --- /dev/null +++ b/TAO/orbsvcs/tests/Notify/performance-tests/scripts/Max_Throughput/2_Hops/consumer.conf @@ -0,0 +1,24 @@ +## $Id$ +# +# Note that this test is not portable because it does not use RTCORBA. +# All priority values are for Linux +# +##---- Load the Factories------ +dynamic TAO_Notify_Tests_Application_Command_Factory Service_Object * TAO_NotifyTests:_make_TAO_Notify_Tests_Application_Command_Factory () "" +# +dynamic TAO_Notify_Tests_ConsumerAdmin_Command_Factory Service_Object *TAO_NotifyTests:_make_TAO_Notify_Tests_ConsumerAdmin_Command_Factory () "" +# +dynamic TAO_Notify_Tests_Periodic_Consumer_Command_Factory Service_Object* TAO_NotifyTests:_make_TAO_Notify_Tests_Periodic_Consumer_Command_Factory () "" +# +##------- Init the Application Object ---------- +static Command_Builder "Application -Init" +# +##--------- Consumer 3 , connected to CA 1 -------- +static Command_Builder "PeriodicConsumer -Create c_high -Direct" +# +##------- Run--------- +static Command_Builder "Application -WaitToStart" +static Command_Builder "Application -Run" +static Command_Builder "Application -WaitForEvents" +static Command_Builder "Application -DumpStats" +static Command_Builder "Application -Shutdown" diff --git a/TAO/orbsvcs/tests/Notify/performance-tests/scripts/Max_Throughput/2_Hops/run_test.pl b/TAO/orbsvcs/tests/Notify/performance-tests/scripts/Max_Throughput/2_Hops/run_test.pl new file mode 100755 index 00000000000..01ccf03a55d --- /dev/null +++ b/TAO/orbsvcs/tests/Notify/performance-tests/scripts/Max_Throughput/2_Hops/run_test.pl @@ -0,0 +1,94 @@ +eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' + & eval 'exec perl -S $0 $argv:q' + if 0; + +# $Id$ +# -*- perl -*- + +use lib "../../../../../../../../bin"; +use PerlACE::Run_Test; +use File::Copy; + +$experiment_timeout = 600; +$startup_timeout = 600; +$naming_ior = PerlACE::LocalFile ("naming.ior"); +$consumer_ior = PerlACE::LocalFile ("consumer.ior"); +$supplier_conf = PerlACE::LocalFile ("supplier.conf"); +$consumer_conf = PerlACE::LocalFile ("consumer.conf"); +$status = 0; + +$Naming = new PerlACE::Process ("../../../../../../Naming_Service/Naming_Service", + "-o $naming_ior"); + +$Supplier = new PerlACE::Process ("../../../../Driver/Notify_Tests_Driver"); + +$Supplier_Args = "-ORBInitRef NameService=file://$naming_ior -IORinput file://$consumer_ior -ORBSvcConf $supplier_conf -Skip_Priority_Levels_Check"; + +$Consumer = new PerlACE::Process ("../../../../Driver/Notify_Tests_Driver"); + +#$Consumer_Args = "-ORBInitRef NameService=file://$naming_ior -IORoutput $consumer_ior -ORBSvcConf $consumer_conf -ORBDebugLevel 1"; +$Consumer_Args = "-ORBInitRef NameService=file://$naming_ior -IORoutput $consumer_ior -ORBSvcConf $consumer_conf -Skip_Priority_Levels_Check"; + +unlink $naming_ior; +$Naming->Spawn (); + +if (PerlACE::waitforfile_timed ($naming_ior, $startup_timeout) == -1) { + print STDERR "ERROR: waiting for the naming service to start\n"; + $Naming->Kill (); + exit 1; +} + +unlink $consumer_ior; +$Consumer->Arguments ($Consumer_Args); +$args = $Consumer->Arguments (); +print STDERR "Running Consumer with arguments: $args\n"; +$status = $Consumer->Spawn (); + +if (PerlACE::waitforfile_timed ($consumer_ior, $startup_timeout) == -1) { + print STDERR "ERROR: waiting for the consumer to start\n"; + $Naming->Kill (); + exit 1; +} + +$Supplier->Arguments ($Supplier_Args); +$args = $Supplier->Arguments (); +print STDERR "Running Supplier with arguments: $args\n"; +$Supplier->SpawnWaitKill ($experiment_timeout); + +if ($status != 0) + { + print STDERR "ERROR: Supplier returned $status\n"; + $Supplier->Kill (); + $Notification->Kill (); + $Naming->Kill (); + exit 1; + } + + +$Consumer->Wait (); +unlink $consumer_ior; + +$Naming->Kill (); +unlink $naming_ior; + +if ($#ARGV > -1) + { + $results_directory = $ARGV[0]; + print STDERR "Saving results to $results_directory\n"; + + mkdir $results_directory, 0777; + + @list=glob("*.dat"); + for $file (@list) + { + copy ("$file", "$results_directory/$file"); + } + + @list=glob("*.conf"); + for $file (@list) + { + copy ("$file", "$results_directory/$file"); + } + } + +exit $status; diff --git a/TAO/orbsvcs/tests/Notify/performance-tests/scripts/Max_Throughput/2_Hops/supplier.conf b/TAO/orbsvcs/tests/Notify/performance-tests/scripts/Max_Throughput/2_Hops/supplier.conf new file mode 100644 index 00000000000..fef4d975c5d --- /dev/null +++ b/TAO/orbsvcs/tests/Notify/performance-tests/scripts/Max_Throughput/2_Hops/supplier.conf @@ -0,0 +1,25 @@ +## $Id$ +# +# Note that this test is not portable because it does not use RTCORBA. +# All priority values are for Linux +# +# +##---- Load the Factories------ +dynamic TAO_Notify_Tests_Application_Command_Factory Service_Object * TAO_NotifyTests:_make_TAO_Notify_Tests_Application_Command_Factory () "" +# +dynamic TAO_Notify_Tests_SupplierAdmin_Command_Factory Service_Object* TAO_NotifyTests:_make_TAO_Notify_Tests_SupplierAdmin_Command_Factory () "" +# +dynamic TAO_Notify_Tests_Periodic_Supplier_Command_Factory Service_Object* TAO_NotifyTests:_make_TAO_Notify_Tests_Periodic_Supplier_Command_Factory () "" +# +##------- Init the Application Object ---------- +static Command_Builder "Application -Init" +# +### --- Create Supplier connected to sa1 ---- +static Command_Builder "PeriodicSupplier -Create s_high -Direct c_high -EventType H -Priority 2 -Period 0 -Iter 50000 -Load 0 -RunTime 15" +# +##--------- Run ------------- +static Command_Builder "Application -SignalPeer" +static Command_Builder "Application -Run" +static Command_Builder "Application -WaitForEvents" +static Command_Builder "Application -DumpStats" +static Command_Builder "Application -Shutdown" |