r2corba 1.5.1-universal-java

data/test/POA/run_test.rb

@@ -0,0 +1,52 @@
+#--------------------------------------------------------------------
+#
+# Author: Martin Corino
+#
+# This program is free software; you can redistribute it and/or
+# modify it under the terms of the R2CORBA LICENSE which is
+# included with this program.
+#
+# Copyright (c) Remedy IT Expertise BV
+# Chamber of commerce Rotterdam nr.276339, The Netherlands
+#--------------------------------------------------------------------
+
+OPTIONS = {
+  :debug_opt => '',
+  :use_implement => '--use-implement'
+}
+
+require 'optparse'
+
+ARGV.options do |opts|
+    script_name = File.basename($0)
+    opts.banner = "Usage: ruby #{script_name} [options]"
+
+    opts.separator ""
+
+    opts.on("-d",
+            "Run with debugging output.",
+            "Default: false") { OPTIONS[:debug_opt] = '--d 10' }
+    opts.on("--use-stubs",
+            "Use stubs generated by RIDL.",
+            "Default: false (uses embedded IDL)") { OPTIONS[:use_implement] = '' }
+
+    opts.separator ""
+
+    opts.on("-h", "--help",
+            "Show this help message.") { puts opts; exit }
+
+    opts.parse!
+end
+
+require 'lib/test.rb'
+include TestUtil
+
+clt = Test.new
+
+if !clt.run('test.rb', "#{OPTIONS[:debug_opt]} #{OPTIONS[:use_implement]}")
+  exit(255)
+end
+
+exrc = clt.wait(400)
+
+exit(exrc)

data/test/POA/test.rb

@@ -0,0 +1,112 @@
+#--------------------------------------------------------------------
+#
+# Author: Martin Corino
+#
+# This program is free software; you can redistribute it and/or
+# modify it under the terms of the R2CORBA LICENSE which is
+# included with this program.
+#
+# Copyright (c) Remedy IT Expertise BV
+# Chamber of commerce Rotterdam nr.276339, The Netherlands
+#--------------------------------------------------------------------
+
+require 'optparse'
+require 'lib/assert'
+include TestUtil::Assertions
+
+OPTIONS = {
+  :use_implement => false,
+  :orb_debuglevel => 0,
+  :iorfile => 'server.ior'
+}
+
+ARGV.options do |opts|
+    script_name = File.basename($0)
+    opts.banner = "Usage: ruby #{script_name} [options]"
+
+    opts.separator ""
+
+    opts.on("--o IORFILE",
+            "Set IOR filename.",
+            "Default: 'server.ior'") { |v| OPTIONS[:iorfile]=v }
+    opts.on("--d LVL",
+            "Set ORBDebugLevel value.",
+            "Default: 0") { |v| OPTIONS[:orb_debuglevel]=v }
+    opts.on("--use-implement",
+            "Load IDL through CORBA.implement() instead of precompiled code.",
+            "Default: off") { |v| OPTIONS[:use_implement]=v }
+
+    opts.separator ""
+
+    opts.on("-h", "--help",
+            "Show this help message.") { puts opts; exit }
+
+    opts.parse!
+end
+
+if OPTIONS[:use_implement]
+  require 'corba/poa'
+  CORBA.implement('Test.idl', OPTIONS, CORBA::IDL::SERVANT_INTF)
+else
+  require 'TestS.rb'
+end
+
+class MyHello < POA::Test::Hello
+  def initialize(orb)
+    @orb = orb
+  end
+
+  def get_string()
+    "Hello there!"
+  end
+
+  def shutdown()
+    @orb.shutdown()
+  end
+end #of servant MyHello
+
+orb = CORBA.ORB_init(["-ORBDebugLevel", OPTIONS[:orb_debuglevel]], 'myORB')
+
+begin
+  obj = orb.resolve_initial_references('RootPOA')
+
+  rootpoa = PortableServer::POA._narrow(obj)
+
+  assert_not 'Failed to resolve RootPOA', CORBA.is_nil(rootpoa) || !rootpoa.is_a?(PortableServer::POA)
+
+  poaman = rootpoa.the_POAManager
+
+  assert_not 'Failed to resolve the_POAManager', CORBA.is_nil(poaman) || !poaman.is_a?(PortableServer::POAManager)
+
+  childpoa = rootpoa.create_POA('childPOA', poaman, [])
+
+  assert_not 'Failed to create child POA', CORBA.is_nil(childpoa) || !childpoa.is_a?(PortableServer::POA)
+
+  assert 'POAManager state should have been HOLDING', poaman.get_state == PortableServer::POAManager::HOLDING
+
+  poaman.activate
+
+  assert_except('No PortableServer::POA::AdapterNonExistent exception thrown on rootpoa.find_POA(\'non-existent-poa\')',
+                PortableServer::POA::AdapterNonExistent) { rootpoa.find_POA('non-existent-poa', true) }
+
+  childpoa = rootpoa.find_POA('childPOA', true)
+
+  hello_srv = MyHello.new(orb)
+
+  assert_except('childpoa.servant_to_id should have thrown ServantNotActive',
+                PortableServer::POA::ServantNotActive) { childpoa.servant_to_id(hello_srv) }
+
+  id = childpoa.activate_object(hello_srv)
+
+  assert 'object ids returned from #activate_object and #servant_to_id not equal', id == childpoa.servant_to_id(hello_srv)
+
+  poaman.deactivate(true, true)
+
+  assert 'POAManager state should have been INACTIVE', poaman.get_state == PortableServer::POAManager::INACTIVE
+
+  assert_except('poaman.activate should have thrown AdapterInactive',
+                PortableServer::POAManager::AdapterInactive) { poaman.activate }
+
+ensure
+  orb.destroy
+end

data/test/Param_Test/Test.idl

@@ -0,0 +1,182 @@
+
+#include "orb.idl"
+
+#pragma prefix "Remedy"
+
+module Types
+{
+
+  typedef string TString;
+
+};
+
+/// Put the interfaces in a module, to avoid global namespace pollution
+module Test
+{
+  interface Hello;
+
+  const long long max_longlong = 0x7fffffffffffffff;
+  const long long min_longlong = -0x8000000000000000;
+
+  const unsigned long long max_ulonglong = 0xffffffffffffffff;
+  const unsigned long long min_ulonglong = 0;
+
+  const long max_long = 0x7fffffff;
+  const long min_long = -0x80000000;
+
+  const unsigned long max_ulong = 0xffffffff;
+  const unsigned long min_ulong = 0;
+
+  const short max_short = 0x7fff;
+  const short min_short = -0x8000;
+
+  const unsigned short max_ushort = 0xffff;
+  const unsigned short min_ushort = 0;
+
+  const octet max_octet = 0xff;
+  const octet min_octet = 0;
+
+  typedef short TShort;
+  typedef unsigned long TULong;
+  typedef string TString;
+  typedef Test::TString TString2;
+  typedef Types::TString TString3;
+  typedef string<128> TString128;
+  typedef any TMyAny;
+  typedef ::CORBA::StringSeq TStringSeq;
+
+  const long myConst = 32;
+  const octet myOctet = 243;
+  const char myChar = 'A';
+  const wchar myWChar = L'a';
+  const string myString = "ABC";
+  const wstring myWString = L"abc\u1234";
+
+  const short DIM1 = 3;
+  typedef long TLongCube[DIM1][3][4];
+
+  enum test_enum
+  {
+    TE_ZEROTH,
+    TE_FIRST,
+    TE_SECOND,
+    TE_THIRD,
+    TE_FOURTH
+  };
+
+  struct S1
+  {
+    long m_one;
+    double m_two;
+    string m_three;
+    struct S2 {
+      boolean m_b;
+    }      m_four;
+    test_enum m_five;
+  };
+
+  struct S3;
+
+  typedef sequence<S3> TS3Seq;
+  typedef sequence<TS3Seq> TS3SeqSeq;
+
+  struct S3
+  {
+    TS3Seq m_seq;
+    boolean m_has_more;
+  };
+
+  typedef sequence<S1> S1Seq;
+
+  typedef sequence<double> TDoubleSeq;
+
+  typedef sequence<TShort, 10> TShortSeq;
+
+  typedef test_enum TSWitch;
+
+  union U1 switch(TSWitch)
+  {
+    case TE_ZEROTH:   long m_l;
+    case TE_FIRST:
+    case TE_SECOND:   string m_str;
+    default:          boolean m_bool;
+  };
+
+  union U2 switch( enum SWITCH_T { ONE, TWO, THREE })
+  {
+    case ONE: long l_;
+    case TWO: boolean b_;
+    case THREE: string s_;
+  };
+
+  union U3 switch(boolean)
+  {
+    case TRUE: long lval;
+  };
+
+  union U4 switch(TSWitch)
+  {
+    case TE_ZEROTH:   long m_l;
+    case TE_FIRST:
+    case TE_SECOND:   string m_str;
+  };
+
+  /// A very simple interface
+  interface Hello
+  {
+    readonly attribute long long max_LongLong;
+    readonly attribute long long min_LongLong;
+
+    readonly attribute unsigned long long max_ULongLong;
+    readonly attribute unsigned long long min_ULongLong;
+
+    readonly attribute long max_Long;
+    readonly attribute long min_Long;
+
+    readonly attribute unsigned long max_ULong;
+    readonly attribute unsigned long min_ULong;
+
+    readonly attribute short max_Short;
+    readonly attribute short min_Short;
+
+    readonly attribute unsigned short max_UShort;
+    readonly attribute unsigned short min_UShort;
+
+    readonly attribute octet max_Octet;
+    readonly attribute octet min_Octet;
+
+    TString2 get_string();
+
+    attribute TString3 _Message;
+
+    attribute TShortSeq Numbers;
+
+    readonly attribute TDoubleSeq list_of_doubles;
+
+    attribute S1Seq StructSeq;
+
+    attribute TLongCube theCube;
+
+    attribute any AnyValue;
+
+    readonly attribute Hello selfref;
+
+    attribute any S3Value;
+
+    attribute U1 UnionValue;
+
+    attribute U2 UnionValue2;
+
+    attribute U3 UnionValue3;
+
+    attribute U4 UnionValue4;
+
+    long run_test(in TString instr, inout string inoutstr, out string outstr);
+
+    /// A method to shutdown the ORB
+    /**
+     * This method is used to simplify the test shutdown process
+     */
+    oneway void shutdown ();
+  };
+};

data/test/Param_Test/client.rb

@@ -0,0 +1,277 @@
+#--------------------------------------------------------------------
+#
+# Author: Martin Corino
+#
+# This program is free software; you can redistribute it and/or
+# modify it under the terms of the R2CORBA LICENSE which is
+# included with this program.
+#
+# Copyright (c) Remedy IT Expertise BV
+# Chamber of commerce Rotterdam nr.276339, The Netherlands
+#--------------------------------------------------------------------
+
+require 'optparse'
+require 'lib/assert.rb'
+include TestUtil::Assertions
+
+OPTIONS = {
+  :use_implement => false,
+  :orb_debuglevel => 0,
+  :iorfile => 'file://server.ior'
+}
+
+ARGV.options do |opts|
+    script_name = File.basename($0)
+    opts.banner = "Usage: ruby #{script_name} [options]"
+
+    opts.separator ""
+
+    opts.on("--k IORFILE",
+            "Set IOR.",
+            "Default: 'file://server.ior'") { |v| OPTIONS[:iorfile]=v }
+    opts.on("--d LVL",
+            "Set ORBDebugLevel value.",
+            "Default: 0") { |v| OPTIONS[:orb_debuglevel]=v }
+    opts.on("--use-implement",
+            "Load IDL through CORBA.implement() instead of precompiled code.",
+            "Default: off") { |v| OPTIONS[:use_implement]=v }
+
+    opts.separator ""
+
+    opts.on("-h", "--help",
+            "Show this help message.") { puts opts; exit }
+
+    opts.parse!
+end
+
+if OPTIONS[:use_implement]
+  require 'corba'
+  CORBA.implement('Test.idl', OPTIONS)
+else
+  require 'TestC.rb'
+end
+
+orb = CORBA.ORB_init(["-ORBDebugLevel", OPTIONS[:orb_debuglevel]], 'myORB')
+
+begin
+
+  obj = orb.string_to_object(OPTIONS[:iorfile])
+
+  hello_obj = Test::Hello._narrow(obj)
+
+  ## integer max/min values test
+
+  [ :max_LongLong,
+    :min_LongLong,
+    :max_ULongLong,
+    :min_ULongLong,
+    :max_Long,
+    :min_Long,
+    :max_ULong,
+    :min_ULong,
+    :max_Short,
+    :min_Short,
+    :max_UShort,
+    :min_UShort,
+    :max_Octet,
+    :min_Octet ].each do |att|
+    att_val = hello_obj.send(att)
+    assert "ERROR: value of attribute #{att} (#{att_val}) does not match expected value #{Test.const_get(att.to_s.capitalize)}", Test.const_get(att.to_s.capitalize) == att_val
+  end
+
+  ## string test
+
+  str = hello_obj.get_string()
+
+  msg = hello_obj.message
+
+  hello_obj.message = str
+
+  assert "ERROR setting message attribute", str == hello_obj.message
+
+  ## sequence test
+
+  nums = hello_obj.numbers
+
+  begin
+    hello_obj.numbers = (0...11).to_a.collect { |i| i*3 }
+  rescue CORBA::MARSHAL => ex
+    ## expected exception since sequence can hold max. 10 elements
+  end
+
+  assert "ERROR numbers attribute changed while it shouldn't", nums == hello_obj.numbers
+
+  hello_obj.numbers = nums.collect { |i| i*3 }
+
+  assert_not "ERROR numbers attribute did not change while it should have", nums == hello_obj.numbers
+
+  doubles_list = hello_obj.list_of_doubles
+
+  puts doubles_list.inspect
+
+  ## (sequence of) struct test
+
+  svseq = hello_obj.structSeq
+
+  svseq.each { |sv|
+    sv.m_one += 1
+    sv.m_two += 1.03
+    sv.m_three.upcase!
+    sv.m_four.m_b = TRUE
+    sv.m_five = Test::TE_FIRST
+  }
+
+  hello_obj.structSeq = svseq
+
+  ix = 0
+  assert_not "ERROR setting attribute structSeq" do
+    hello_obj.structSeq.any? { |sv|
+      sv2 = svseq[ix]
+      ix += 1
+      sv.m_one != sv2.m_one ||
+      sv.m_two != sv2.m_two ||
+      sv.m_three != sv2.m_three ||
+      sv.m_four.m_b != sv2.m_four.m_b ||
+      sv.m_five != sv2.m_five
+    }
+  end
+
+  ## array test
+
+  cube = hello_obj.theCube
+
+  cube2 = cube.collect { |plane|
+    plane.collect { |row|
+      row.collect { |elem|
+        (elem / 3) + (elem % 3)
+      }
+    }
+  }
+
+  hello_obj.theCube = cube2
+
+  assert_not "ERROR setting attribute theCube" do
+    cube2 != hello_obj.theCube || cube == hello_obj.theCube
+  end
+
+  ## objref test
+
+  self_obj = hello_obj.selfref
+
+  assert "ERROR with attribute selfref", self_obj.message == hello_obj.message
+
+  ## Any test
+
+  any = hello_obj.anyValue
+
+  hello_obj.anyValue = 1
+
+  assert_not "ERROR with attribute anyValue" do
+    any == hello_obj.anyValue || 1 == hello_obj.anyValue
+  end
+
+  hello_obj.anyValue = 2
+
+  assert_not "ERROR with attribute anyValue" do
+    any == hello_obj.anyValue || 2 == hello_obj.anyValue
+  end
+
+  hello_obj.anyValue = 3
+
+  assert_not "ERROR with attribute anyValue" do
+    any == hello_obj.anyValue || 3 == hello_obj.anyValue
+  end
+
+  ## union test
+
+  uv1 = hello_obj.unionValue
+
+  uv2 = uv1.class.new
+  uv2.m_l = 1234
+
+  hello_obj.unionValue = uv2
+
+  assert_not "ERROR with attribute unionValue" do
+    uv1._disc == hello_obj.unionValue._disc || uv1._value == hello_obj.unionValue._value
+  end
+
+  uv21 = hello_obj.unionValue2
+
+  uv22 = uv21.class.new
+  uv22.s_ = 'bye bye'
+
+  hello_obj.unionValue2 = uv22
+
+  assert_not "ERROR with attribute unionValue2" do
+    uv21._disc == hello_obj.unionValue2._disc || uv21._value == hello_obj.unionValue2._value
+  end
+
+  assert_not "ERROR with attribute unionValue2" do
+    uv21._disc == hello_obj.unionValue2._disc || uv21._value == hello_obj.unionValue2._value
+  end
+
+  uv3 = hello_obj.unionValue3
+
+  assert_except "ERROR with attribute unionValue3", CORBA::BAD_PARAM do
+    uv3._disc = FALSE
+  end
+
+  uv3._default  # set implicit default
+
+  assert "ERROR with implicit default union U3" do
+    uv3._disc == false
+  end
+
+  hello_obj.unionValue3 = uv3
+
+  assert "ERROR with implicit default attribute unionValue3" do
+    hello_obj.unionValue3._disc == false
+  end
+
+  uv4 = hello_obj.unionValue4
+
+  assert_except "ERROR with attribute unionValue4", CORBA::BAD_PARAM do
+    uv4._disc = Test::TE_THIRD
+  end
+
+  uv4._default  # set implicit default
+
+  assert "ERROR with implicit default union U4" do
+    uv4._disc == Test::TE_THIRD
+  end
+
+  hello_obj.unionValue4 = uv4
+
+  assert "ERROR with implicit default attribute unionValue4" do
+    hello_obj.unionValue4._disc == Test::TE_THIRD
+  end
+
+  ## recursive struct test
+
+  s3val = hello_obj.s3Value
+
+  s3 = s3val.m_seq.shift
+  s3val.m_seq.first.m_seq << s3
+  s3val.m_seq.first.m_has_more = true
+
+  hello_obj.s3Value = s3val
+
+  assert_not "ERROR with attribute s3Value" do
+    s3val.m_seq.size != hello_obj.s3Value.m_seq.size || s3val.m_seq.first.m_has_more != hello_obj.s3Value.m_seq.first.m_has_more
+  end
+
+  ## in, inout, out test
+
+  reslen, resinoutstr, resoutstr = hello_obj.run_test(instr = Test::TString.new("This is instr"), inoutstr = "This is inoutstr")
+
+  assert_not "ERROR with run_test" do
+    reslen != resoutstr.size || resinoutstr != instr || resoutstr != (instr+inoutstr)
+  end
+
+  hello_obj.shutdown()
+
+ensure
+
+  orb.destroy()
+
+end