ChangeLogTag:Mon Jun 12 18:17:42 2000 Darrell Brunsch <brunsch@cs.wustl.edu>

2 files changed, 195 insertions, 0 deletions

diff --git a/bin/auto_run_tests.lst b/bin/auto_run_tests.lst
new file mode 100644
index 00000000000..19ccdb51989
--- /dev/null
+++ b/bin/auto_run_tests.lst
@@ -0,0 +1,81 @@
+# This is the list of run_test.pl's that need to be run by 
+# auto_run_tests.pl.
+# Each line has its own test, and a test can be followed by a
+# list of configurations it does _not_ run on.
+# 
+# Example: TAO\examples\foo\run_test.pl: MINIMUM ST
+
+tests/run_test.pl
+
+TAO/tests/Param_Test/run_test.pl: MINIMUM
+TAO/performance-tests/Cubit/TAO/IDL_Cubit/run_test.pl: MINIMUM ST
+TAO/performance-tests/Cubit/TAO/MT_Cubit/run_test.pl: ST
+TAO/performance-tests/Latency/run_test.pl: MINIMUM ST
+TAO/performance-tests/POA/Object_Creation_And_Registration/run_test.pl
+TAO/performance-tests/RTCorba/Oneways/Reliable/run_test.pl: MINIMUM
+
+
+TAO/tests/OctetSeq/run_test.pl
+TAO/tests/Leader_Followers/run_test.pl: ST
+TAO/tests/Multiple_Inheritance/run_test.pl
+#HANGS TAO/tests/Endpoint_Per_Priority/run_test.pl
+TAO/tests/MT_Client/run_test.pl: ST
+TAO/tests/MT_Server/run_test.pl: ST
+TAO/tests/Faults/run_test.pl: MINIMUM
+TAO/tests/NestedUpcall/Simple/run_test.pl: ST
+TAO/tests/NestedUpcall/MT_Client_Test/run_test.pl
+TAO/tests/NestedUpcall/Triangle_Test/run_test.pl
+TAO/tests/Nested_Event_Loop/run_test.pl
+TAO/tests/POA/Identity/run_test.pl
+TAO/tests/POA/Deactivation/run_test.pl
+TAO/tests/POA/Destruction/run_test.pl
+TAO/tests/POA/Non_Servant_Upcalls/run_test.pl
+TAO/tests/IORManipulation/run_test.pl
+TAO/tests/Policies/run_test.pl: MINIMUM ST
+TAO/tests/Timeout/run_test.pl: MINIMUM
+TAO/tests/Timed_Buffered_Oneways/run_test.pl: MINIMUM
+TAO/tests/IDL_Test/run_test.pl
+TAO/tests/ORB_init/run_test.pl
+TAO/tests/DSI_Gateway/run_test.pl: MINIMUM
+TAO/tests/DynAny_Test/run_test.pl: MINIMUM
+TAO/tests/Connection_Purging/run_test.pl: ST
+TAO/examples/Buffered_Oneways/run_test.pl: MINIMUM
+# REQUIRES AMI 'TAO/examples/Buffered_AMI/run_test.pl: MINIMUM
+TAO/tests/InterOp-Naming/run_test.pl: MINIMUM
+
+
+TAO/examples/POA/Adapter_Activator/run_test.pl: MINIMUM
+TAO/examples/POA/DSI/run_test.pl: MINIMUM
+TAO/examples/POA/Default_Servant/run_test.pl: MINIMUM
+TAO/examples/POA/Explicit_Activation/run_test.pl: MINIMUM
+TAO/examples/POA/FindPOA/run_test.pl: MINIMUM
+TAO/examples/POA/Forwarding/run_test.pl: MINIMUM
+TAO/examples/POA/NewPOA/run_test.pl: MINIMUM
+TAO/examples/POA/On_Demand_Activation/run_test.pl: MINIMUM
+TAO/examples/POA/On_Demand_Loading/run_test.pl: MINIMUM
+TAO/examples/POA/Reference_Counted_Servant/run_test.pl
+TAO/examples/POA/Loader/run_test.pl: MINIMUM
+TAO/examples/POA/RootPOA/run_test.pl
+TAO/examples/POA/Adapter_Activator/run_test.pl: MINIMUM
+TAO/examples/Simple/bank/run_test.pl
+TAO/examples/Simple/grid/run_test.pl
+TAO/examples/Simple/time-date/run_test.pl: ST
+TAO/examples/Simple/time/run_test.pl
+TAO/examples/Load_Balancing/run_test.pl: MINIMUM
+
+
+TAO/orbsvcs/tests/Simple_Naming/run_test.pl
+TAO/orbsvcs/tests/Trading/run_test.pl: MINIMUM
+TAO/orbsvcs/tests/Event/Basic/run_test.pl: ST
+TAO/orbsvcs/tests/Event/Performance/run_test.pl: ST
+TAO/orbsvcs/tests/EC_Basic/run_test.pl
+TAO/orbsvcs/tests/EC_Custom_Marshal/run_test.pl: ST
+TAO/orbsvcs/tests/EC_Throughput/run_test.pl: ST
+# BREAKS LINUX 'TAO/orbsvcs/tests/EC_Mcast/run_test.pl
+# FAILS 'TAO/orbsvcs/tests/EC_Multiple/run_test.pl
+TAO/orbsvcs/tests/Event_Latency/run_test.pl
+# NO REDIRECTION TAO/examples/Simple/echo/run_test.pl < Echo.idl
+# INTERACTIVE 'TAO/examples/Simple/chat/run_test.pl
+TAO/orbsvcs/tests/Property/run_test.pl
+#HANGS TAO/orbsvcs/tests/ImplRepo/run_test.pl airplane
+#HANGS'TAO/orbsvcs/tests/ImplRepo/run_test.pl airplane_ir
diff --git a/bin/auto_run_tests.pl b/bin/auto_run_tests.pl
new file mode 100755
index 00000000000..8227473b3fb
--- /dev/null
+++ b/bin/auto_run_tests.pl
@@ -0,0 +1,114 @@
+eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
+    & eval 'exec perl -S $0 $argv:q'
+    if 0;
+
+# $Id$
+# -*- perl -*-
+# This file is for running the run_test.pl scripts listed in 
+# auto_run_tests.lst.
+
+use English;
+use Getopt::Std;
+
+if (!getopts ('ac:') || $opt_h) {
+    print "run_test.pl [-h] [-c config]\n";
+    print "\n";
+    print "Runs the tests listed in auto_run_tests.lst\n";
+    print "\n";
+    print "Options:\n";
+    print "    -a         ACE tests only\n";
+    print "    -c config  Run the tests for the <config> configuration\n";
+    print "    -h         display this help\n";
+    print "\n";
+    print "Configs: MSVC\n";
+    exit (1);
+}
+
+use Cwd;
+
+if (!($ACE_ROOT = $ENV{ACE_ROOT})) {
+    my $cd = getcwd ();
+    chdir ('..');
+    $ACE_ROOT = getcwd ().$DIR_SEPARATOR;
+    chdir ($cd);
+    warn "ACE_ROOT not defined, defaulting to ACE_ROOT=$ACE_ROOT";
+}
+
+unshift @INC, "$ACE_ROOT/bin";
+require ACEutils;
+
+$config = 'DEFAULT';
+
+if ($opt_c) {
+    $config = $opt_c;
+}
+else {
+    print "Defaulting to configuration: $config\n";
+}
+
+
+################################################################################
+
+@tests = ();
+
+# Loads the list and runs it
+sub read_run_test_list ()
+{
+    my $line;
+    open (LIST, "<$ACE_ROOT/bin/auto_run_tests.lst") 
+        || die "Cannot open $ACE_ROOT/bin/auto_run_tests.lst";
+
+    while (<LIST>) {
+        next if (/^#/ || /^\s*$/);  # ignore comments and blank lines
+
+        chomp;
+        my @stuff = split ":";
+
+        if (!/$config/) {
+            my $program = shift @stuff;
+            $program =~ s/\s*//g;  #remove any extra whitepace
+            push @tests, $program;
+        }
+    }   
+
+    close (LIST);
+}
+
+################################################################################
+
+read_run_test_list ();
+
+foreach $test (@tests) {
+    my $directory = ".";
+    my $program = ".";
+
+    if ($opt_a && $test =~ /^TAO/) {
+        next;
+    }
+
+    if ($test =~ /(.*)\/([^\/]*)$/) {
+        $directory = $1;
+        $program = $2;
+    }
+    else {
+        $program = $test;
+    }
+
+    print "auto_run_tests: $test\n";
+
+    chdir ($ACE_ROOT."/$directory")
+        || die "Error: Cannot chdir to $ACE_ROOT/$directory";
+
+    $run_error = 0;
+
+    if (! -e $program) {
+        print STDERR "Error: $test does not exist\n";
+        next;
+    }
+
+    my $result = system ($program);
+
+    if ($result > 0) {
+        print "Error: $test returned with status $status\n";
+    }
+}