merge the formfield patch from ooo-build
[ooovba.git] / cppu / test / purpenvhelper / purpenvhelper.test.pl
bloba38f4e129910aecf713bf6e2c40e0bbe83ac9ddd
2 eval 'exec perl -wS $0 ${1+"$@"}'
3 if 0;
5 #*************************************************************************
7 # DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
8 #
9 # Copyright 2008 by Sun Microsystems, Inc.
11 # OpenOffice.org - a multi-platform office productivity suite
13 # $RCSfile: purpenvhelper.test.pl,v $
15 # $Revision: 1.3 $
17 # This file is part of OpenOffice.org.
19 # OpenOffice.org is free software: you can redistribute it and/or modify
20 # it under the terms of the GNU Lesser General Public License version 3
21 # only, as published by the Free Software Foundation.
23 # OpenOffice.org is distributed in the hope that it will be useful,
24 # but WITHOUT ANY WARRANTY; without even the implied warranty of
25 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
26 # GNU Lesser General Public License version 3 for more details
27 # (a copy is included in the LICENSE file that accompanied this code).
29 # You should have received a copy of the GNU Lesser General Public License
30 # version 3 along with OpenOffice.org. If not, see
31 # <http://www.openoffice.org/license.html>
32 # for a copy of the LGPLv3 License.
34 #*************************************************************************
36 my $rc = 0;
37 my $comment = "";
40 @tests=(
41 "env.tester.bin uno:TestEnv"
44 foreach $test (@tests) {
45 $output = "";
47 $cmd = $test;
48 open TESTER, $cmd . "|";
49 while (<TESTER>) {
50 chomp;
52 $output = $output . "\t" . $_ . "\n";
54 close TESTER ;
56 if ($? != 0) {
57 $comment = $comment . "TEST FAILED: " . $cmd . "\n";
58 $comment = $comment . $output;
60 $rc = $rc + $?;
64 print $comment;
66 if ($rc == 0) {
67 print "*********** SUCCESS\n";
69 else {
70 print "*********** FAILURE\n";