idlc/test/parser/constructor.tests

   1 #*************************************************************************
   2 #
   3 # DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   4 #
   5 # Copyright 2008 by Sun Microsystems, Inc.
   6 #
   7 # OpenOffice.org - a multi-platform office productivity suite
   8 #
   9 # $RCSfile: constructor.tests,v $
  10 #
  11 # $Revision: 1.7 $
  12 #
  13 # This file is part of OpenOffice.org.
  14 #
  15 # OpenOffice.org is free software: you can redistribute it and/or modify
  16 # it under the terms of the GNU Lesser General Public License version 3
  17 # only, as published by the Free Software Foundation.
  18 #
  19 # OpenOffice.org is distributed in the hope that it will be useful,
  20 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  21 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  22 # GNU Lesser General Public License version 3 for more details
  23 # (a copy is included in the LICENSE file that accompanied this code).
  24 #
  25 # You should have received a copy of the GNU Lesser General Public License
  26 # version 3 along with OpenOffice.org.  If not, see
  27 # <http://www.openoffice.org/license.html>
  28 # for a copy of the LGPLv3 License.
  29 #
  30 #*************************************************************************
  31
  32 EXPECT SUCCESS "constructor.tests 1":
  33 interface X {};
  34 service S: X;
  35
  36
  37 EXPECT SUCCESS "constructor.tests 2":
  38 interface X {};
  39 service S: X {};
  40
  41
  42 EXPECT SUCCESS "constructor.tests 3":
  43 interface X {};
  44 service S: X {
  45     f();
  46 };
  47
  48
  49 EXPECT FAILURE "constructor.tests 4":
  50 interface X {};
  51 service S: X {
  52     f();
  53     f();
  54 };
  55
  56
  57 EXPECT FAILURE "constructor.tests 5":
  58 interface X {
  59     void f([in] any... p);
  60 };
  61
  62
  63 EXPECT FAILURE "constructor.tests 6":
  64 interface X {
  65     void f([out] any... p);
  66 };
  67
  68
  69 EXPECT SUCCESS "constructor.tests 7":
  70 interface X {};
  71 service S: X {
  72     f([in] any... p);
  73 };
  74
  75
  76 EXPECT SUCCESS "constructor.tests 8":
  77 interface X {};
  78 typedef any some;
  79 service S: X {
  80     f([in] some... p);
  81 };
  82
  83
  84 EXPECT FAILURE "constructor.tests 9":
  85 interface X {};
  86 service S: X {
  87     f([in] long p1, [in] any... p2);
  88 };
  89
  90
  91 EXPECT FAILURE "constructor.tests 10":
  92 interface X {};
  93 service S: X {
  94     f([in] any... p2, [in] long p1);
  95 };
  96
  97
  98 EXPECT FAILURE "constructor.tests 11":
  99 interface X {};
 100 service S: X {
 101     f([in] long p1, [in] long... p2);
 102 };
 103
 104
 105 EXPECT FAILURE "constructor.tests 12":
 106 interface X {};
 107 service S: X {
 108     f([out] long p);
 109 };
 110
 111
 112 EXPECT FAILURE "constructor.tests 13":
 113 interface X {};
 114 service S: X {
 115     f([out] any... p);
 116 };
 117
 118
 119 EXPECT FAILURE "constructor.tests 14":
 120 interface X {};
 121 singleton S: X {
 122     f();
 123 };
 124
 125
 126 EXPECT FAILURE "constructor.tests 15":
 127 module com { module sun { module star { module test {
 128     interface X {};
 129 service S: com::sun::star::test::X {
 130     c1([in] long a, [in] com::sun::star::test::X b);
 131     c2([in] long c, [in] X d);
 132 };
 133 }; }; }; };
 134
 135
 136 EXPECT FAILURE "constructor.tests 16":
 137 module com { module sun { module star { module test {
 138     interface X {};
 139 }; }; }; };
 140 typedef long T;
 141 service S: com::sun::star::test::X {
 142     c1([in] sequence<long> a);
 143     c2([in] sequence<T> b);
 144 };
 145
 146
 147 EXPECT FAILURE "constructor.tests 17":
 148 module com { module sun { module star { module test {
 149     interface X {};
 150 }; }; }; };
 151 service S: com::sun::star::test::X {
 152     c1([in] any... a);
 153     c2([in] any... b);
 154 };
 155
 156
 157 EXPECT SUCCESS "constructor.tests 18":
 158 module com { module sun { module star { module test {
 159     interface X {};
 160 }; }; }; };
 161 service S: com::sun::star::test::X {
 162     c1([in] any... a);
 163     c2([in] sequence<any> b);
 164 };
 165
 166
 167 EXPECT SUCCESS "constructor.tests 19":
 168 module com { module sun { module star { module test {
 169     interface X { void m(); };
 170 }; }; }; };
 171 service S: com::sun::star::test::X {
 172     c([in] any... a);
 173 };
 174
 175
 176 EXPECT SUCCESS "constructor.tests 20":
 177 module com { module sun { module star { module uno {
 178     interface XInterface { void m(); };
 179 }; }; }; };
 180 service S: com::sun::star::uno::XInterface {
 181     c1([in] long a, [in] long b);
 182     c2([in] long a);
 183 };
 184
 185
 186 EXPECT SUCCESS "constructor.tests 21":
 187 module com { module sun { module star { module uno {
 188     interface XInterface { void m(); };
 189 }; }; }; };
 190 service S: com::sun::star::uno::XInterface {
 191     c1([in] long a);
 192     c2([in] long a, [in] long b);
 193 };
 194
 195
 196 EXPECT SUCCESS "constructor.tests 22":
 197 module com { module sun { module star { module uno {
 198     interface XInterface { void m(); };
 199 }; }; }; };
 200 service S: com::sun::star::uno::XInterface {
 201     c1([in] long a, [in] short b);
 202     c2([in] long a, [in] long b);
 203 };