summaryrefslogtreecommitdiff
path: root/orbsvcs/tests/InterfaceRepo/Bug_3495_Regression/Test.idl
blob: 6e5d83ab0fc8076ffd92b2491c1c3ee0ca242d08 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
//
// $Id$
//

module Test {
  typedef long ErrorType;

  const ErrorType ErrorOne = 0;
  const ErrorType ErrorTwo = 10;
  const ErrorType ErrorThree = 100;

  struct structOne
  {
    boolean first;
    union ErrorInfo switch (ErrorType)
    {
      case ErrorOne: string errorstring;
      case ErrorTwo: long errornumber;
    } second;
  };

  struct structTwo
  {
    union ErrorInfo switch (ErrorType)
    {
      case ErrorThree: string failstring;
    } thisonly;
  };

  exception exceptionOne
  {
    union ExceptionUnion switch (ErrorType)
    {
      case ErrorThree: string failstring;
    } exceptiononly;
  };

  interface interfaceOne {
    void getstruct (out structOne tester) raises(exceptionOne);
  };
};