r2corba 1.6.1-x64-mingw-ucrt

data/test/Object/run_test.rb

@@ -0,0 +1,68 @@
+#--------------------------------------------------------------------
+#
+# 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
+#--------------------------------------------------------------------
+
+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
+
+ior_file = 'server.ior'
+
+TestUtil.remove_file(ior_file)
+
+srv = Test.new
+
+exit(255) if !srv.run('server.rb', "--o #{ior_file} #{OPTIONS[:debug_opt]} #{OPTIONS[:use_implement]}")
+
+TestUtil.wait_for_file(ior_file, 400)
+
+clt = Test.new
+
+if !clt.run('client.rb', "--k file://#{ior_file} #{OPTIONS[:debug_opt]} #{OPTIONS[:use_implement]}")
+  srv.kill(100)
+  exit(255)
+end
+
+exrc = clt.wait(400)
+
+if exrc == 0
+  srv.wait(400)
+else
+  srv.wait_term(400)
+end
+
+exit(exrc)

data/test/Object/server.rb

@@ -0,0 +1,125 @@
+#--------------------------------------------------------------------
+#
+# 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
+#--------------------------------------------------------------------
+
+require 'optparse'
+
+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
+
+  ## overrides for standard CORBA::Object methods
+  def _get_component
+    # misuse this method to
+    # create second servant and
+    hello_srv = MyHello2.new(@orb)
+    # activate and return object ref
+    hello_srv._this()
+  end
+end # of servant MyHello
+
+class MyHello2 < POA::Test::Hello
+  def initialize(orb)
+    @orb = orb
+  end
+
+  def get_string()
+    'Hello2 there!'
+  end
+
+  def shutdown()
+    @orb.shutdown()
+  end
+
+  ## overrides for standard CORBA::Object methods
+  def _repository_id
+    'IDL:org.omg/custom.Test/Hello2:1.0'
+  end
+
+  def _is_a?(id)
+    Intf::Ids.include?(id) or id == 'IDL:org.omg/custom.Test/Hello:1.0'
+  end
+end # of servant MyHello
+orb = CORBA.ORB_init(['-ORBDebugLevel', OPTIONS[:orb_debuglevel]], 'myORB')
+
+obj = orb.resolve_initial_references('RootPOA')
+
+root_poa = PortableServer::POA._narrow(obj)
+
+poa_man = root_poa.the_POAManager
+
+poa_man.activate
+
+hello_srv = MyHello.new(orb)
+
+hello_obj = hello_srv._this()
+
+hello_ior = orb.object_to_string(hello_obj)
+
+open(OPTIONS[:iorfile], 'w') { |io|
+  io.write hello_ior
+}
+
+Signal.trap('INT') do
+  puts 'SIGINT - shutting down ORB...'
+  orb.shutdown()
+end
+
+if Signal.list.has_key?('USR2')
+  Signal.trap('USR2', 'EXIT')
+end
+
+orb.run

data/test/POA/Test.idl

@@ -0,0 +1,27 @@
+/*--------------------------------------------------------------------
+ * 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
+ *--------------------------------------------------------------------*/
+
+/// Put the interfaces in a module, to avoid global namespace pollution
+module Test
+{
+  /// A very simple interface
+  interface Hello
+  {
+    /// Return a simple string
+    string get_string ();
+
+    /// A method to shutdown the ORB
+    /**
+     * This method is used to simplify the test shutdown process
+     */
+    oneway void shutdown ();
+  };
+};

data/test/POA/run_test.rb

@@ -0,0 +1,51 @@
+#--------------------------------------------------------------------
+#
+# 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
+#--------------------------------------------------------------------
+
+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,111 @@
+#--------------------------------------------------------------------
+#
+# 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
+#--------------------------------------------------------------------
+
+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 ();
+  };
+};