From f2117134584093f9b001002576410be09321bbc3 Mon Sep 17 00:00:00 2001
From: Niclas Eklund <nick@erlang.org>
Date: Tue, 30 Mar 2010 14:32:30 +0000
Subject: CORBA applications test suites published

---
 lib/orber/test/orber_test.idl | 95 +++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 95 insertions(+)
 create mode 100644 lib/orber/test/orber_test.idl

(limited to 'lib/orber/test/orber_test.idl')

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();
+  };
+
+};
+
-- 
cgit v1.2.3