update dev300-m58
[ooovba.git] / cppu / test / cascade_mapping / cascade_mapping.test.pl
blob6cc91c8d5f76fa0475cdf52eda478172164683e6
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: cascade_mapping.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 "mapping.tester uno:test uno -s path.test \"uno:test-->uno\"",
42 "mapping.tester uno uno:test -s path.test \"uno-->uno:test\"",
43 "mapping.tester uno:test:bla uno -s path.test \"uno:test:bla-->uno:test-->uno\"",
44 "mapping.tester uno uno:test:bla -s path.test \"uno-->uno:test-->uno:test:bla\"",
45 "mapping.tester uno:test:bla:blubb uno -s path.test \"uno:test:bla:blubb-->uno:test:bla-->uno:test-->uno\"",
46 "mapping.tester uno uno:test:bla:blubb -s path.test \"uno-->uno:test-->uno:test:bla-->uno:test:bla:blubb\"",
47 "mapping.tester uno:bla uno:test -s path.test \"uno:bla-->uno-->uno:test\"",
48 "mapping.tester uno:test uno:bla -s path.test \"uno:test-->uno-->uno:bla\"",
49 "mapping.tester uno:test:blubb uno:bla -s path.test \"uno:test:blubb-->uno:test-->uno-->uno:bla\"",
50 "mapping.tester uno:test uno:bla:blubb -s path.test \"uno:test-->uno-->uno:bla-->uno:bla:blubb\"",
51 "mapping.tester uno:test:bla uno:test:blubb -s path.test \"uno:test:bla-->uno:test-->uno:test:blubb\"",
52 "mapping.tester CPP:bla uno -s path.test \"CPP:bla-->uno:bla-->uno\"",
53 "mapping.tester uno CPP:bla -s path.test \"uno-->uno:bla-->CPP:bla\"",
54 "mapping.tester CPP uno:bla -s path.test \"CPP-->uno-->uno:bla\"",
55 "mapping.tester CPP:bla uno:blubb -s path.test \"CPP:bla-->uno:bla-->uno-->uno:blubb\"",
56 "mapping.tester CPP:test:bla uno:test:blubb -s path.test \"CPP:test:bla-->uno:test:bla-->uno:test-->uno:test:blubb\"",
57 "mapping.tester CPP:bla CPP -s path.test \"CPP:bla-->uno:bla-->uno-->CPP\"",
58 "mapping.tester CPP CPP:bla -s path.test \"CPP-->uno-->uno:bla-->CPP:bla\"",
59 "mapping.tester CPP:bla:test CPP -s path.test \"CPP:bla:test-->uno:bla:test-->uno:bla-->uno-->CPP\"",
60 "mapping.tester CPP CPP:bla:test -s path.test \"CPP-->uno-->uno:bla-->uno:bla:test-->CPP:bla:test\"",
61 "mapping.tester CPP:bla CPP:blubb -s path.test \"CPP:bla-->uno:bla-->uno-->uno:blubb-->CPP:blubb\"",
62 "mapping.tester CPP:test:bla CPP:blubb -s path.test \"CPP:test:bla-->uno:test:bla-->uno:test-->uno-->uno:blubb-->CPP:blubb\"",
63 "mapping.tester CPP:bla CPP:test:blubb -s path.test \"CPP:bla-->uno:bla-->uno-->uno:test-->uno:test:blubb-->CPP:test:blubb\"",
64 "mapping.tester CPP:bae:bla CPP:test:blubb -s path.test \"CPP:bae:bla-->uno:bae:bla-->uno:bae-->uno-->uno:test-->uno:test:blubb-->CPP:test:blubb\"",
65 "mapping.tester CPP:test:bla CPP:test:blubb -s path.test \"CPP:test:bla-->uno:test:bla-->uno:test-->uno:test:blubb-->CPP:test:blubb\""
68 foreach $test (@tests) {
69 $output = "";
71 $cmd = $test;
72 open TESTER, $cmd . "|";
73 while (<TESTER>) {
74 chomp;
76 $output = $output . "\t" . $_ . "\n";
78 close TESTER ;
80 if ($? != 0) {
81 $comment = $comment . "TEST FAILED: " . $cmd . "\n";
82 $comment = $comment . $output;
84 $rc = $rc + $?;
88 print $comment;
90 if ($rc == 0) {
91 print "*********** SUCCESS\n";
93 else {
94 print "*********** FAILURE\n";