ChangeLogTag:Fri Jul 9 16:24:18 1999 Carlos O'Ryan <coryan@cs.wustl.edu>

1 files changed, 230 insertions, 0 deletions

diff --git a/bin/run_all_win32.pl b/bin/run_all_win32.pl
new file mode 100755
index 00000000000..645605ab7bf
--- /dev/null
+++ b/bin/run_all_win32.pl
@@ -0,0 +1,230 @@
+# -*- perl -*-
+# $Id$
+#
+# This script checkouts ACE from CVS, updates the "clone" directory,
+# compiles $ACE_ROOT/ace and $ACE_ROOT/tests and finally runs
+# $ACE_ROOT/tests/run_tests.sh.
+#
+# If it detects any problem it send email.
+#
+# DO NOT invoke this script from your crontab, use
+# auto_compile_wrapper for that.
+#
+# This script requires Perl5.
+#
+# TODO: Modify the script or split it in such a way that the main copy
+# can be obtained either using cvs or downloading the lastest beta
+# from the WWW.
+#
+
+eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
+    & eval 'exec perl -S $0 $argv:q'
+    if 0;
+
+# The first three lines above let this script run without specifying the
+# full path to perl, as long as it is in the user's PATH.
+# Taken from perlrun man page.
+
+use Net::SMTP;
+use File::Basename;
+use FileHandle;
+require POSIX;
+
+# This is the module we will checkout, someday someone could define a
+# smaller module.
+$MODULE='ACE_wrappers';
+
+# This are the pairs "sub-directory , script" we run; the separator
+# *must* be a space followed by a comma and then another space.
+
+@RUN_LIST =
+      ( 'tests , run_tests.bat',
+        'TAO/tests/Param_Test , run_test.pl',
+        'TAO/tests/Param_Test , run_test.pl -i dii',
+        'TAO/performance-tests/Cubit/TAO/IDL_Cubit , run_test.pl',
+      'TAO/tests/OctetSeq , run_test.pl',
+      'TAO/tests/Multiple_Inheritance , run_test.pl',
+      'TAO/tests/MT_Client , run_test.pl',
+      'TAO/tests/MT_Server , run_test.pl',
+      'TAO/tests/Faults , run_test.pl',
+      'TAO/tests/NestedUpcall/Reactor , run_test.pl',
+      'TAO/tests/NestedUpcall/MT_Client_Test , run_test.pl',
+      'TAO/tests/POA/Identity , run_test.pl',
+      'TAO/tests/POA/Destruction , run_test.pl',
+      'TAO/tests/IORManipulation , run_test.pl',
+        'TAO/examples/POA/Adapter_Activator , run_test.pl',
+        'TAO/examples/POA/DSI , run_test.pl',
+        'TAO/examples/POA/Default_Servant , run_test.pl',
+        'TAO/examples/POA/Explicit_Activation , run_test.pl',
+        'TAO/examples/POA/FindPOA , run_test.pl',
+        'TAO/examples/POA/Forwarding , run_test.pl',
+        'TAO/examples/POA/NewPOA , run_test.pl',
+        'TAO/examples/POA/On_Demand_Activation , run_test.pl',
+        'TAO/examples/POA/On_Demand_Loading , run_test.pl',
+        'TAO/examples/POA/Reference_Counted_Servant , run_test.pl',
+      'TAO/examples/Simple/bank , run_test.pl',
+      'TAO/examples/Simple/grid , run_test.pl',
+      'TAO/examples/Simple/time-date , run_test.pl',
+      'TAO/examples/Simple/time , run_test.pl',
+      'TAO/orbsvcs/tests/Simple_Naming , run_test.pl',
+      'TAO/orbsvcs/tests/Trading , run_test.pl',
+      'TAO/orbsvcs/tests/Event/Basic , run_test.pl',
+      'TAO/orbsvcs/tests/Event/Performance , run_test.pl',
+      'TAO/orbsvcs/tests/EC_Basic , run_test.pl',
+      'TAO/orbsvcs/tests/EC_Custom_Marshal , run_test.pl',
+      'TAO/orbsvcs/tests/EC_Throughput , run_test.pl',
+#      'TAO/orbsvcs/tests/EC_Mcast , run_test.pl',
+#      'TAO/orbsvcs/tests/EC_Multiple , run_test.pl',
+      'TAO/orbsvcs/tests/Event_Latency , run_test.pl',
+      'TAO/examples/Simple/echo , run_test.pl < Echo.idl',
+#      'TAO/examples/Simple/chat , run_test.pl',
+      'TAO/orbsvcs/tests/Property , run_test.pl',
+   'TAO/performance-tests/POA/Object_Creation_And_Registration , run_test.pl',
+      'TAO/performance-tests/Cubit/TAO/MT_Cubit , run_test.pl -n 100'
+#      'TAO/orbsvcs/tests/ImplRepo , run_test.pl airplane',
+#      'TAO/orbsvcs/tests/ImplRepo , run_test.pl airplane_ir',
+    );
+
+
+# We obtain our revision to report errors.
+#$REVISION='$Revision$';
+
+# Find out the command name.
+$CMD = basename($0);
+
+# Extract configuration information from command line.
+# TODO: Some validation and checking should be done here.
+$CHECKOUT = $ARGV[0];
+$BUILD = $ARGV[1];
+$LOGDIR = $ARGV[2];
+$ADMIN = $ARGV[3];
+$MAKEFLAGS = $ARGV[4];
+
+# When an error is found we try to die gracefully and send some email
+# to ADMIN.
+
+$disable_file = $LOGDIR . '/.disable';
+
+sub mywarn {
+  local @msg = @_;
+
+  # Need more error checking here.
+
+  $smtp = Net::SMTP->new('mail.cs.wustl.edu');
+  $smtp->mail( "$ADMIN" );      # sender's address
+  $smtp->to("$ADMIN");          # recipient's address
+  $smtp->data();                # Start the mail
+
+  # Mail Header
+  $smtp->datasend("To: $ADMIN\n");
+  $smtp->datasend("Subject: Auto run results\n");
+  $smtp->datasend("From: $ADMIN\n");
+  $smtp->datasend("\n");
+
+  # Now the message body
+  $smtp->datasend ('The following message is brought to you by: ', "\n");
+  $smtp->datasend ("$CMD,  [ $REVISION ] for $BUILD on $CHECKOUT\n\n");
+
+  local $m;
+  foreach $m (@msg) {
+      $smtp->datasend ("$m \n");
+  }
+
+  $smtp->datasend ("\nPlease check log files for more info\n");
+
+  $smtp->dataend();                   # Finish sending the mail
+  $smtp->quit;                        # Close the SMTP connection
+}
+
+sub mydie {
+  mywarn @_;
+  print HIST 'FAILED', "\n";
+  unlink $disable_file
+    || die "cannot unlink disable file";
+  exit 0;
+}
+
+### MAIN FUNCTION
+
+### MAIN FUNCTION
+
+$histfile = $LOGDIR . '/history';
+open(HIST, '>>' . $histfile)
+    # Do not use 'mydie' to report the problem, it tries to use HIST....
+    || die "cannot open history file \"$histfile\"\n";
+
+$date = localtime;
+
+print HIST $CMD, ': running at ', $date, ' ';
+
+if (-f $disable_file) {
+    print HIST "DISABLED\n";
+    exit 0;
+}
+
+open (DISABLE, '>' . $disable_file)
+    || mydie "cannot open disable file";
+print DISABLE "auto_compile <$date> is running\n";
+close (DISABLE)
+    || mydie "cannot close disable file";
+
+$LOGFILE = $LOGDIR . '/' . POSIX::strftime("%b%d_%Y.log", localtime);
+open(LOG, '>' . $LOGFILE)
+    || mydie "cannot open log file";
+
+LOG->autoflush ();
+
+foreach $i (@RUN_LIST) {
+    local @test_info = split (/\ \,\ /, $i);
+    local $directory = $test_info[0];
+    local $program = $test_info[1];
+    print "$directory, $program\n";
+
+    $date = localtime;
+    print LOG "$CMD: =============================================\n";
+    print LOG "$CMD: running $program in $directory at ", $date, "\n";
+    local $subdir =
+	$ENV{ACE_ROOT} . '/'. $directory;
+    chdir ($subdir)
+	|| mydie "cannot chdir to $subdir";
+
+    $run_error = 0;
+    if (open(RUN, "$program 2>&1 |") == 0) {
+	push @failures, "cannot run $program in $directory";
+	next;
+    }
+    while (<RUN>) {
+	print LOG $_;
+	if (m/^Error/ || m/FAILED/ || m/EXCEPTION/) {
+	    $run_error = 1;
+	}
+    }
+    if (close(RUN) == 0) {
+	push @failures, "Error when closing pipe for $program in $directory";
+	next;
+    }
+    $date = localtime;
+    print LOG "$CMD: $program finished ", $date, "\n";
+
+    if ($run_error != 0) {
+	push @failures,
+	    "errors detected while running $program in $directory";
+    }
+}
+
+if ($#failures >= 0) {
+    mydie @failures;
+}
+
+close(LOG)
+    || mydie "cannot close LOGFILE";
+
+print HIST "OK\n";
+close(HIST)
+    || mydie "cannot close history file";
+
+unlink $disable_file
+    || mydie "cannot unlink disable file";
+
+exit 0;
+