diff options
author | Niclas Eklund <[email protected]> | 2010-03-30 14:32:30 +0000 |
---|---|---|
committer | Erlang/OTP <[email protected]> | 2010-03-31 13:32:22 +0200 |
commit | f2117134584093f9b001002576410be09321bbc3 (patch) | |
tree | c1b5894f5f9f4f9e3010a96a401287a78a7c48f9 /lib/orber/test/orber_test.idl | |
parent | 6bfd4d74d1b1b240b5e87311528e67d3e9f080ca (diff) | |
download | otp-f2117134584093f9b001002576410be09321bbc3.tar.gz otp-f2117134584093f9b001002576410be09321bbc3.tar.bz2 otp-f2117134584093f9b001002576410be09321bbc3.zip |
CORBA applications test suites published
Diffstat (limited to 'lib/orber/test/orber_test.idl')
-rw-r--r-- | lib/orber/test/orber_test.idl | 95 |
1 files changed, 95 insertions, 0 deletions
diff --git a/lib/orber/test/orber_test.idl b/lib/orber/test/orber_test.idl new file mode 100644 index 0000000000..3d943f2d18 --- /dev/null +++ b/lib/orber/test/orber_test.idl @@ -0,0 +1,95 @@ +// +// %CopyrightBegin% +// +// Copyright Ericsson AB 1997-2010. All Rights Reserved. +// +// The contents of this file are subject to the Erlang Public License, +// Version 1.1, (the "License"); you may not use this file except in +// compliance with the License. You should have received a copy of the +// Erlang Public License along with this software. If not, it can be +// retrieved online at http://www.erlang.org/. +// +// Software distributed under the License is distributed on an "AS IS" +// basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See +// the License for the specific language governing rights and limitations +// under the License. +// +// %CopyrightEnd% +// +module Module +{ + + enum Enum {horse, pig, cow}; + + struct Struct0 { + long l; + short s; + char c; + }; + + struct Struct1 { + string s; + unsigned short us; + unsigned long ul; + }; + + struct Struct2 { + sequence <long> long_sequence; + Enum e; + octet o; + }; + + struct HEADER { + short EID; + short NDW; + short SSID; + }; + + enum Enum1 {orange,banana, apple}; + + union Union switch (short) { + case 0: short First; + case 1: string Second; + case 2: char Third; + }; + + union Union1 switch (Enum){ + case horse: short horse; + case pig: sequence <string> Second; + case cow: Enum1 Third; + }; + + union Union2 switch (Enum){ + case horse: long a[10]; + case pig: Union u; + case cow: Union1 u1; + }; + + exception Except1 { + string why; + sequence <string> rest_of_name; + }; + + exception Except2 { + Enum1 e; + Struct2 s; + }; + + exception Except3 { + Union1 u; + unsigned short s; + Object o ; + }; + + exception Except4 {}; + + interface I1 { + void a(); + }; + + interface I2 { + void a(); + }; + +}; + |