INTEGRATION: CWS sb18 (1.1.2); FILE ADDED

2004/05/19 14:30:22 sb 1.1.2.1: #i21150# New exectest tool.

1 files changed, 132 insertions, 0 deletions

diff --git a/solenv/bin/exectest.pl b/solenv/bin/exectest.pl
new file mode 100644
index 000000000000..59f7de629008
--- /dev/null
+++ b/solenv/bin/exectest.pl
@@ -0,0 +1,132 @@
+#*************************************************************************
+#
+#   $RCSfile: exectest.pl,v $
+#
+#   $Revision: 1.2 $
+#
+#   last change: $Author: obo $ $Date: 2004-06-04 02:41:30 $
+#
+#   The Contents of this file are made available subject to the terms of
+#   either of the following licenses
+#
+#          - GNU Lesser General Public License Version 2.1
+#          - Sun Industry Standards Source License Version 1.1
+#
+#   Sun Microsystems Inc., October, 2000
+#
+#   GNU Lesser General Public License Version 2.1
+#   =============================================
+#   Copyright 2000 by Sun Microsystems, Inc.
+#   901 San Antonio Road, Palo Alto, CA 94303, USA
+#
+#   This library is free software; you can redistribute it and/or
+#   modify it under the terms of the GNU Lesser General Public
+#   License version 2.1, as published by the Free Software Foundation.
+#
+#   This library is distributed in the hope that it will be useful,
+#   but WITHOUT ANY WARRANTY; without even the implied warranty of
+#   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+#   Lesser General Public License for more details.
+#
+#   You should have received a copy of the GNU Lesser General Public
+#   License along with this library; if not, write to the Free Software
+#   Foundation, Inc., 59 Temple Place, Suite 330, Boston,
+#   MA  02111-1307  USA
+#
+#
+#   Sun Industry Standards Source License Version 1.1
+#   =================================================
+#   The contents of this file are subject to the Sun Industry Standards
+#   Source License Version 1.1 (the "License"); You may not use this file
+#   except in compliance with the License. You may obtain a copy of the
+#   License at http://www.openoffice.org/license.html.
+#
+#   Software provided under this License is provided on an "AS IS" basis,
+#   WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING,
+#   WITHOUT LIMITATION, WARRANTIES THAT THE SOFTWARE IS FREE OF DEFECTS,
+#   MERCHANTABLE, FIT FOR A PARTICULAR PURPOSE, OR NON-INFRINGING.
+#   See the License for the specific provisions governing your rights and
+#   obligations concerning the Software.
+#
+#   The Initial Developer of the Original Code is: Sun Microsystems, Inc.
+#
+#   Copyright: 2000 by Sun Microsystems, Inc.
+#
+#   All Rights Reserved.
+#
+#   Contributor(s): _______________________________________
+#
+#
+#*************************************************************************
+
+$#ARGV >= 1
+    or die "Usage: $0 <input file>|-SUCCESS|-FAILURE <command> <arguments...>";
+if ($ARGV[0] eq "-SUCCESS")
+{
+    $expect = "SUCCESS";
+    $input = 0;
+}
+elsif ($ARGV[0] eq "-FAILURE")
+{
+    $expect = "FAILURE";
+    $input = 0;
+}
+else
+{
+    open INPUT, $ARGV[0] or die "cannot open $ARGV[0]: $!";
+    $input = 1;
+}
+shift @ARGV;
+$failed = 0;
+$open = 0;
+while (1) {
+    $eof = $input ? eof INPUT : $open;
+    $in = <INPUT> if $input && !$eof;
+    if (!$input || $eof
+        || $in =~ /^EXPECT (SUCCESS|FAILURE|\d+)( "([^"]*)")?:\n$/)
+    {
+        if ($open)
+        {
+            close PIPE;
+            if ($? % 256 == 0)
+            {
+                $exit = $? / 256;
+                $ok = $expect eq "SUCCESS" ? $exit == 0
+                    : $expect eq "FAILURE" ? $exit != 0 : $exit == $expect;
+            }
+            else
+            {
+                $exit = "signal";
+                $ok = 0;
+            }
+            print "\"$title\", " if defined $title;
+            print "expected $expect, got $exit ($?): ";
+            if ($ok)
+            {
+                print "ok\n";
+            }
+            else
+            {
+                print "FAILED!\n";
+                $failed = 1;
+            }
+        }
+        last if $eof;
+        $expect = $1 if $input;
+        if (defined $3)
+        {
+            $title = $3;
+        }
+        else
+        {
+            undef $title;
+        }
+        open PIPE, "| @ARGV" or die "cannot start process: $!";
+        $open = 1;
+    }
+    elsif ($open && $input)
+    {
+        print PIPE $in or die "cannot write to pipe: $!";
+    }
+}
+exit $failed;