RubyGems - r2corba - Versions diffs - 1.4.1-x86-mingw32 → 1.5.1-x86-mingw32 - Mend

r2corba 1.4.1-x86-mingw32 → 1.5.1-x86-mingw32

This diff represents the content of publicly available package versions that have been released to one of the supported registries. The information contained in this diff is provided for informational purposes only and reflects changes between package versions as they appear in their respective public registries.

Files changed (254) hide show

checksums.yaml +7 -7
data/CHANGES +173 -159
data/LICENSE +59 -59
data/README +62 -62
data/THANKS +54 -52
data/bin/r2corba +1 -1
data/bin/ridlc +1 -1
data/bin/rins +1 -1
data/lib/corba.rb +16 -16
data/lib/corba/cbase/IORMap.rb +33 -33
data/lib/corba/cbase/ORB.rb +237 -231
data/lib/corba/cbase/Request.rb +133 -133
data/lib/corba/cbase/Streams.rb +129 -129
data/lib/corba/cbase/Stub.rb +19 -19
data/lib/corba/cbase/Typecode.rb +441 -441
data/lib/corba/cbase/Values.rb +129 -129
data/lib/corba/cbase/exception.rb +66 -66
data/lib/corba/cbase/poa.rb +23 -23
data/lib/corba/cbase/policies.rb +77 -77
data/lib/corba/cbase/post_require.rb +13 -13
data/lib/corba/cbase/require.rb +28 -28
data/lib/corba/cmds/base.rb +85 -85
data/lib/corba/cmds/test.rb +30 -30
data/lib/corba/common/Any.rb +91 -91
data/lib/corba/common/IDL.rb +104 -104
data/lib/corba/common/ORB.rb +368 -368
data/lib/corba/common/Object.rb +208 -208
data/lib/corba/common/Request.rb +19 -19
data/lib/corba/common/Servant.rb +108 -108
data/lib/corba/common/Struct.rb +21 -21
data/lib/corba/common/Stub.rb +79 -79
data/lib/corba/common/Typecode.rb +1121 -1121
data/lib/corba/common/Union.rb +55 -55
data/lib/corba/common/Values.rb +91 -91
data/lib/corba/common/const.rb +22 -22
data/lib/corba/common/exception.rb +68 -68
data/lib/corba/common/require.rb +27 -27
data/lib/corba/common/version.rb +22 -22
data/lib/corba/idl/IDL.rb +21 -21
data/lib/corba/idl/IORTable.pidl +62 -62
data/lib/corba/idl/TAO_Ext.pidl +46 -46
data/lib/corba/idl/require.rb +20 -20
data/lib/corba/jbase/Any.rb +273 -273
data/lib/corba/jbase/IORMap.rb +35 -35
data/lib/corba/jbase/ORB.rb +112 -99
data/lib/corba/jbase/Object.rb +99 -98
data/lib/corba/jbase/Request.rb +225 -225
data/lib/corba/jbase/Servant.rb +247 -246
data/lib/corba/jbase/ServerRequest.rb +127 -127
data/lib/corba/jbase/Streams.rb +670 -670
data/lib/corba/jbase/Stub.rb +38 -38
data/lib/corba/jbase/Typecode.rb +520 -520
data/lib/corba/jbase/Values.rb +173 -173
data/lib/corba/jbase/exception.rb +106 -106
data/lib/corba/jbase/poa.rb +228 -228
data/lib/corba/jbase/policies.rb +299 -299
data/lib/corba/jbase/post_require.rb +14 -14
data/lib/corba/jbase/require.rb +89 -86
data/lib/corba/naming.rb +14 -14
data/lib/corba/naming_service.rb +15 -15
data/lib/corba/poa.rb +15 -15
data/lib/corba/policies.rb +18 -18
data/lib/corba/require.rb +17 -17
data/lib/corba/svcs/ins/cos_naming.rb +426 -426
data/lib/corba/svcs/ins/ins.rb +526 -526
data/lib/corba/svcs/ins/naming_service.rb +119 -119
data/lib/ridlbe/ruby/config.rb +336 -336
data/lib/ridlbe/ruby/orb.pidlc +0 -0
data/lib/ridlbe/ruby/require.rb +16 -16
data/lib/ridlbe/ruby/walker.rb +1582 -1582
data/mkrf_conf_bingem.rb +151 -101
data/rakelib/bin.rake +80 -80
data/rakelib/bin.rb +145 -145
data/rakelib/build.rake +87 -87
data/rakelib/config.rake +51 -51
data/rakelib/config.rb +543 -449
data/rakelib/ext.rake +242 -242
data/rakelib/ext.rb +316 -308
data/rakelib/ext_r2tao.rb +235 -232
data/rakelib/gem.rake +235 -211
data/rakelib/gem.rb +145 -145
data/rakelib/package.rake +26 -26
data/rakelib/test.rake +23 -23
data/test/BiDirectional/Test.idl +34 -34
data/test/BiDirectional/client.rb +131 -131
data/test/BiDirectional/run_test.rb +68 -68
data/test/BiDirectional/server.ior +1 -1
data/test/BiDirectional/server.rb +169 -169
data/test/CORBA_Services/Naming/BindingIterator/Test.idl +27 -27
data/test/CORBA_Services/Naming/BindingIterator/client.rb +121 -121
data/test/CORBA_Services/Naming/BindingIterator/ins.ior +1 -1
data/test/CORBA_Services/Naming/BindingIterator/run_test.rb +82 -82
data/test/CORBA_Services/Naming/BindingIterator/server.rb +109 -109
data/test/CORBA_Services/Naming/Corbaname/Test.idl +27 -27
data/test/CORBA_Services/Naming/Corbaname/client.rb +85 -85
data/test/CORBA_Services/Naming/Corbaname/ins.ior +1 -1
data/test/CORBA_Services/Naming/Corbaname/run_test.rb +88 -88
data/test/CORBA_Services/Naming/Corbaname/server.rb +135 -135
data/test/CORBA_Services/Naming/Simple/Test.idl +27 -27
data/test/CORBA_Services/Naming/Simple/client.rb +84 -84
data/test/CORBA_Services/Naming/Simple/ins.ior +1 -1
data/test/CORBA_Services/Naming/Simple/run_test.rb +82 -82
data/test/CORBA_Services/Naming/Simple/server.rb +109 -109
data/test/Collocation/Diamond.idl +39 -39
data/test/Collocation/run_test.rb +52 -52
data/test/Collocation/test.rb +195 -195
data/test/Connect_Timeout/Test.idl +27 -27
data/test/Connect_Timeout/client.rb +111 -111
data/test/Connect_Timeout/run_test.rb +52 -52
data/test/DII/Test.idl +27 -27
data/test/DII/client.rb +115 -115
data/test/DII/run_test.rb +69 -69
data/test/DII/server.ior +1 -1
data/test/DII/server.rb +95 -95
data/test/DSI/Test.idl +27 -27
data/test/DSI/client.rb +66 -66
data/test/DSI/run_test.rb +69 -69
data/test/DSI/server.ior +1 -1
data/test/DSI/server.rb +106 -106
data/test/Exceptions/Test.idl +48 -48
data/test/Exceptions/client.rb +117 -117
data/test/Exceptions/run_test.rb +69 -69
data/test/Exceptions/server.ior +1 -1
data/test/Exceptions/server.rb +131 -131
data/test/Hello/Test.idl +27 -27
data/test/Hello/client.rb +78 -78
data/test/Hello/run_test.rb +71 -71
data/test/Hello/server.rb +95 -95
data/test/IDL_Test/Test.idl +113 -113
data/test/IDL_Test/Test_inc.idl +17 -17
data/test/IDL_Test/client.rb +102 -102
data/test/IDL_Test/run_test.rb +69 -69
data/test/IDL_Test/server.ior +1 -1
data/test/IDL_Test/server.rb +99 -99
data/test/IORMap/Test.idl +27 -27
data/test/IORMap/client.rb +73 -73
data/test/IORMap/run_test.rb +69 -69
data/test/IORMap/server.ior +1 -1
data/test/IORMap/server.rb +114 -114
data/test/IORTable/Test.idl +27 -27
data/test/IORTable/client.rb +75 -75
data/test/IORTable/run_test.rb +69 -69
data/test/IORTable/server.ior +1 -1
data/test/IORTable/server.rb +130 -130
data/test/Implicit_Conversion/Test.idl +31 -31
data/test/Implicit_Conversion/client.rb +110 -110
data/test/Implicit_Conversion/run_test.rb +69 -69
data/test/Implicit_Conversion/server.ior +1 -1
data/test/Implicit_Conversion/server.rb +99 -99
data/test/Multi_Threading/Multiple_ORB/Test.idl +27 -27
data/test/Multi_Threading/Multiple_ORB/client.rb +82 -82
data/test/Multi_Threading/Multiple_ORB/run_test.rb +71 -71
data/test/Multi_Threading/Multiple_ORB/server.rb +108 -108
data/test/Multi_Threading/Multiple_ORB/server0.ior +1 -1
data/test/Multi_Threading/Multiple_ORB/server1.ior +1 -1
data/test/Multi_Threading/Simple/Test.idl +27 -27
data/test/Multi_Threading/Simple/client.rb +93 -88
data/test/Multi_Threading/Simple/run_test.rb +69 -69
data/test/Multi_Threading/Simple/server.ior +1 -1
data/test/Multi_Threading/Simple/server.rb +117 -117
data/test/Multi_Threading/Threads/Test.idl +31 -31
data/test/Multi_Threading/Threads/client.rb +80 -80
data/test/Multi_Threading/Threads/run_test.rb +76 -76
data/test/Multi_Threading/Threads/server.ior +1 -1
data/test/Multi_Threading/Threads/server.rb +119 -119
data/test/Multi_Threading/Threads/watchdog.ior +1 -1
data/test/Multi_Threading/Threads/watchdog.rb +87 -87
data/test/Multiple_Servant_Interfaces/Test.idl +34 -34
data/test/Multiple_Servant_Interfaces/client.rb +70 -70
data/test/Multiple_Servant_Interfaces/run_test.rb +69 -69
data/test/Multiple_Servant_Interfaces/server.ior +1 -1
data/test/Multiple_Servant_Interfaces/server.rb +102 -102
data/test/Nil/Test.idl +27 -27
data/test/Nil/run_test.rb +52 -52
data/test/Nil/test.rb +78 -78
data/test/OBV/AbstractInterface/client.rb +179 -179
data/test/OBV/AbstractInterface/run_test.rb +69 -69
data/test/OBV/AbstractInterface/server.ior +1 -1
data/test/OBV/AbstractInterface/server.rb +149 -149
data/test/OBV/AbstractInterface/test.idl +53 -53
data/test/OBV/Custom/OBV.idl +18 -18
data/test/OBV/Custom/OBV_impl.rb +40 -40
data/test/OBV/Custom/client.rb +86 -86
data/test/OBV/Custom/run_test.rb +69 -69
data/test/OBV/Custom/server.ior +1 -1
data/test/OBV/Custom/server.rb +100 -100
data/test/OBV/Simple/OBV.idl +15 -15
data/test/OBV/Simple/OBV_impl.rb +26 -26
data/test/OBV/Simple/client.rb +86 -86
data/test/OBV/Simple/run_test.rb +69 -69
data/test/OBV/Simple/server.ior +1 -1
data/test/OBV/Simple/server.rb +100 -100
data/test/OBV/Simple_Event/Event.idl +15 -15
data/test/OBV/Simple_Event/Event_impl.rb +26 -26
data/test/OBV/Simple_Event/client.rb +86 -86
data/test/OBV/Simple_Event/run_test.rb +69 -69
data/test/OBV/Simple_Event/server.ior +1 -1
data/test/OBV/Simple_Event/server.rb +100 -100
data/test/OBV/Supports/client.rb +116 -116
data/test/OBV/Supports/run_test.rb +69 -69
data/test/OBV/Supports/server.ior +1 -1
data/test/OBV/Supports/server.rb +103 -103
data/test/OBV/Supports/supports.idl +33 -33
data/test/OBV/Supports/supports_impl.rb +57 -57
data/test/OBV/Tree/client.rb +116 -116
data/test/OBV/Tree/run_test.rb +69 -69
data/test/OBV/Tree/server.ior +1 -1
data/test/OBV/Tree/server.rb +117 -117
data/test/OBV/Tree/test.idl +32 -32
data/test/OBV/Truncatable/Extra.idl +27 -27
data/test/OBV/Truncatable/Truncatable.idl +105 -105
data/test/OBV/Truncatable/Truncatable_impl.rb +86 -86
data/test/OBV/Truncatable/client.rb +279 -279
data/test/OBV/Truncatable/run_test.rb +69 -69
data/test/OBV/Truncatable/server.ior +1 -1
data/test/OBV/Truncatable/server.rb +89 -89
data/test/OBV/ValueBox/client.rb +497 -497
data/test/OBV/ValueBox/run_test.rb +69 -69
data/test/OBV/ValueBox/server.ior +1 -1
data/test/OBV/ValueBox/server.rb +271 -271
data/test/OBV/ValueBox/valuebox.idl +101 -101
data/test/OBV/ValueBox/vb_basic.idl +75 -75
data/test/OBV/ValueBox/vb_struct.idl +68 -68
data/test/OBV/ValueBox/vb_union.idl +21 -21
data/test/Object/Test.idl +27 -27
data/test/Object/client.rb +112 -103
data/test/Object/run_test.rb +69 -69
data/test/Object/server.ior +1 -1
data/test/Object/server.rb +126 -126
data/test/POA/Test.idl +27 -27
data/test/POA/run_test.rb +52 -52
data/test/POA/test.rb +111 -111
data/test/Param_Test/Test.idl +182 -182
data/test/Param_Test/client.rb +277 -277
data/test/Param_Test/run_test.rb +69 -69
data/test/Param_Test/server.ior +1 -1
data/test/Param_Test/server.rb +296 -296
data/test/Performance/Simple/Test.idl +27 -27
data/test/Performance/Simple/client.rb +90 -90
data/test/Performance/Simple/run_test.rb +69 -69
data/test/Performance/Simple/server.ior +1 -1
data/test/Performance/Simple/server.rb +95 -95
data/test/Policies/Test.idl +27 -27
data/test/Policies/run_test.rb +52 -52
data/test/Policies/test.rb +144 -144
data/test/Timeout/client.rb +207 -207
data/test/Timeout/run_test.rb +69 -69
data/test/Timeout/server.ior +1 -1
data/test/Timeout/server.rb +109 -109
data/test/Timeout/test.idl +19 -19
data/test/lib/assert.rb +43 -43
data/test/lib/test.rb +542 -542
data/test/test_runner.rb +193 -193
metadata +141 -137

data/test/OBV/Truncatable/Truncatable_impl.rb CHANGED Viewed

@@ -1,86 +1,86 @@
-#--------------------------------------------------------------------
-#
-# 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
-#--------------------------------------------------------------------
-class Test_impl < POA::OBV_TruncatableTest::Test
-  def initialize(orb)
-    @orb_ = orb
-  end
-  def op1(id, iv, desc)
-    tmp = "#{id}: #{desc}"
-    desc = tmp
-    ov = ::OBV_TruncatableTest::BaseValue.new
-    ov.basic_data = iv.basic_data
-    [ov, desc]
-  end
-  def op2(iv, id, desc)
-    tmp = "#{id}: #{desc}"
-    desc = tmp
-    ov = ::OBV_TruncatableTest::TValue1.new
-    ov.basic_data = iv.basic_data
-    ov.data1 = iv.data1
-    [ov, desc]
-  end
-  def op3(id, iv, desc)
-    tmp = "#{id}: #{desc}"
-    desc = tmp
-    ov = ::OBV_TruncatableTest::TValue4.new
-    nv = ::OBV_TruncatableTest::NestedValue.new
-    nv.data = iv.nv4.data
-    ov.basic_data = iv.basic_data
-    ov.nv4 = nv
-    ov.data4 = iv.data4
-    [ov, desc]
-  end
-  def op4(id, iv1, x, iv2, iv3, iv4, desc)
-    tmp = "#{id}: #{desc}"
-    desc = tmp
-    ov = ::OBV_TruncatableTest::BaseValue.new
-    total = x * (iv1.basic_data + iv2.basic_data +
-                 iv3.basic_data + iv4.basic_data)
-    ov.basic_data = total
-    [ov, desc]
-  end
-  def op5(val, id,  desc)
-    ov = ::OBV_TruncatableTest::TValue1.new
-    iv = nil
-    target = CORBA::Any.value_for_any(val)
-    if (target.nil?)
-      STDERR.puts "server:Test_impl::op5 extract failed\n"
-      ov.basic_data = 101
-      ov.data1 = 10101
-    else
-      iv = target
-      tmp = "#{id}: #{desc}"
-      desc = tmp
-      ov.basic_data = iv.basic_data
-      ov.data1 = iv.data1
-    end
-    [ov, desc]
-  end
-  def shutdown()
-    @orb_.shutdown
-  end
-end
+#--------------------------------------------------------------------
+#
+# 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
+#--------------------------------------------------------------------
+class Test_impl < POA::OBV_TruncatableTest::Test
+  def initialize(orb)
+    @orb_ = orb
+  end
+  def op1(id, iv, desc)
+    tmp = "#{id}: #{desc}"
+    desc = tmp
+    ov = ::OBV_TruncatableTest::BaseValue.new
+    ov.basic_data = iv.basic_data
+    [ov, desc]
+  end
+  def op2(iv, id, desc)
+    tmp = "#{id}: #{desc}"
+    desc = tmp
+    ov = ::OBV_TruncatableTest::TValue1.new
+    ov.basic_data = iv.basic_data
+    ov.data1 = iv.data1
+    [ov, desc]
+  end
+  def op3(id, iv, desc)
+    tmp = "#{id}: #{desc}"
+    desc = tmp
+    ov = ::OBV_TruncatableTest::TValue4.new
+    nv = ::OBV_TruncatableTest::NestedValue.new
+    nv.data = iv.nv4.data
+    ov.basic_data = iv.basic_data
+    ov.nv4 = nv
+    ov.data4 = iv.data4
+    [ov, desc]
+  end
+  def op4(id, iv1, x, iv2, iv3, iv4, desc)
+    tmp = "#{id}: #{desc}"
+    desc = tmp
+    ov = ::OBV_TruncatableTest::BaseValue.new
+    total = x * (iv1.basic_data + iv2.basic_data +
+                 iv3.basic_data + iv4.basic_data)
+    ov.basic_data = total
+    [ov, desc]
+  end
+  def op5(val, id,  desc)
+    ov = ::OBV_TruncatableTest::TValue1.new
+    iv = nil
+    target = CORBA::Any.value_for_any(val)
+    if (target.nil?)
+      STDERR.puts "server:Test_impl::op5 extract failed\n"
+      ov.basic_data = 101
+      ov.data1 = 10101
+    else
+      iv = target
+      tmp = "#{id}: #{desc}"
+      desc = tmp
+      ov.basic_data = iv.basic_data
+      ov.data1 = iv.data1
+    end
+    [ov, desc]
+  end
+  def shutdown()
+    @orb_.shutdown
+  end
+end

data/test/OBV/Truncatable/client.rb CHANGED Viewed

@@ -1,279 +1,279 @@
-#--------------------------------------------------------------------
-#
-# 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('Extra.idl', OPTIONS)
-else
-  require 'ExtraC'
-end
-orb = CORBA.ORB_init(["-ORBDebugLevel", OPTIONS[:orb_debuglevel]], 'myORB')
-begin
-  # make sure valuetype factories are registered
-  OBV_TruncatableTest::BaseValueFactory.get_factory(orb)
-  OBV_TruncatableTest::TValue1Factory.get_factory(orb)
-  OBV_TruncatableTest::TValue2Factory.get_factory(orb)
-  OBV_TruncatableTest::TValue3Factory.get_factory(orb)
-  OBV_TruncatableTest::TValue4Factory.get_factory(orb)
-  OBV_TruncatableTest::TValue5Factory.get_factory(orb)
-  OBV_TruncatableTest::NestedValueFactory.get_factory(orb)
-  obj = orb.string_to_object(OPTIONS[:iorfile])
-  tester = OBV_TruncatableTest::Test._narrow(obj)
-  assert_not 'Object reference is nil.', CORBA::is_nil(tester)
-  if defined?(JRUBY_VERSION)
-    STDERR.puts "Skipping. Value type truncation currently not properly supported by JacORB!"
-    tester.shutdown
-    exit 0
-  end
-  # 1.
-  v1 = OBV_TruncatableTest::TValue1.new
-  v1.basic_data = 9
-  v1.data1 = 99
-  desc = "A<-tB, truncate B to A"
-  STDERR.print "Case 1: #{desc}: "
-  ov1, odesc = tester.op1("case1", v1, desc)
-  assert '\nERROR: tester.op1 desc FAILED', odesc == "case1: #{desc}"
-  assert '\nERROR: tester.op1 ov FAILED' , v1.basic_data == ov1.basic_data
-  STDERR.puts 'passed'
-  # 2.
-  v2 = OBV_TruncatableTest::TValue2.new
-  v2.basic_data = 9
-  v2.data1 = 99
-  v2.data2 = 99 * 2
-  desc = "A<-tB<-tC, truncate C to A"
-  STDERR.print "Case 2: #{desc}: "
-  ov2, odesc = tester.op1("case2", v2, desc)
-  assert '\nERROR: tester.op1 - 2 desc FAILED', odesc == "case2: #{desc}"
-  assert '\nERROR: tester.op1 - 2 ov FAILED' , v2.basic_data == ov2.basic_data
-  STDERR.puts 'passed'
-  desc = "A<-tB<-tC, truncate C to B"
-  STDERR.print "Case 2b: #{desc}: "
-  otv1, odesc = tester.op2(v2, "case2b", desc)
-  assert '\nERROR: tester.op2 - 2b desc FAILED', odesc == "case2b: #{desc}"
-  assert '\nERROR: tester.op2 - 2b otv1 FAILED' , v2.basic_data == otv1.basic_data
-  assert '\nERROR: tester.op2 - 2b otv1 FAILED' , v2.data1 == otv1.data1
-  STDERR.puts 'passed'
-  # 3.
-  itv1b = OBV_TruncatableTest::TValue1.new
-  itv1b.basic_data = 7
-  itv1b.data1 = 8
-  desc = "A<-tB, truncatable but no truncation"
-  STDERR.print "Case 3: #{desc}: "
-  otv1b, odesc = tester.op2(itv1b, "case3", desc)
-  assert '\nERROR: tester.op2 - 3 desc FAILED', odesc == "case3: #{desc}"
-  assert '\nERROR: tester.op2 - 3 otv1b FAILED' , itv1b.basic_data == otv1b.basic_data
-  assert '\nERROR: tester.op2 - 3 otv1b FAILED' , itv1b.data1 == otv1b.data1
-  STDERR.puts 'passed'
-  # 4.
-  v3 = OBV_TruncatableTest::TValue3.new
-  v3.basic_data = 9
-  v3.data1 = 99
-  v3.data3 = (99 * 3)
-  begin
-    desc = "A<-tB<-C, try truncate C to A, MARSHAL exception"
-    STDERR.print "Case 4: #{desc}: "
-    ov3, odesc = tester.op1("case4", v3, desc)
-    STDERR.puts 'failed'
-  rescue CORBA::MARSHAL
-    STDERR.puts 'passed'
-  end
-  # 5.
-  nv = OBV_TruncatableTest::NestedValue.new
-  nv.data = 2
-  v5 = OBV_TruncatableTest::TValue5.new
-  v5.basic_data = 9
-  v5.nv4 = nv
-  v5.data4 = (99 * 4)
-  v5.str1 = "str1"
-  v5.data5 = (99 * 5)
-  v5.nv5 = nv
-  v5.str2 = "str2"
-  desc = "A<-tB<-tC, B & C have nested value type, truncate C to A"
-  STDERR.print "Case 5: #{desc}: "
-  ov5, odesc = tester.op1("case5", v5, desc)
-  assert '\nERROR: tester.op1 - 5 desc FAILED', odesc == "case5: #{desc}"
-  assert '\nERROR: tester.op1 - 5 ov5 FAILED' , v5.basic_data == ov5.basic_data
-  STDERR.puts 'passed'
-  desc = "A<-tB<-tC, B & C have nested value type, truncate C to B"
-  STDERR.print "Case 5b: #{desc}: "
-  otv4, odesc = tester.op3("case5b", v5, desc)
-  assert '\nERROR: tester.op3 - 5b desc FAILED', odesc == "case5b: #{desc}"
-  assert '\nERROR: tester.op3 - 5b otv4 FAILED' , v5.basic_data == otv4.basic_data
-  assert '\nERROR: tester.op3 - 5b otv4.nv4 FAILED' , v5.nv4.data == otv4.nv4.data
-  assert '\nERROR: tester.op3 - 5b otv4.data4 FAILED' , v5.data4 == otv4.data4
-  STDERR.puts 'passed'
-  # 6.
-  iv = OBV_TruncatableTest::TValue6.new
-  iv.basic_data = 9
-  desc = "A<-tB, B has no data, truncate B to A"
-  STDERR.print "Case 6: #{desc}: "
-  ov, odesc = tester.op1("case6", iv, desc)
-  assert '\nERROR: tester.op1 - 6 desc FAILED', odesc == "case6: #{desc}"
-  assert '\nERROR: tester.op1 - 6 ov FAILED' , iv.basic_data == ov.basic_data
-  STDERR.puts 'passed'
-  # 7.
-  v1 = OBV_TruncatableTest::TValue1.new
-  v1.basic_data = 8
-  v1.data1 = 88
-  v4 = OBV_TruncatableTest::TValue1.new
-  v4.basic_data = 9
-  v4.data1 = 99
-  nv = OBV_TruncatableTest::NestedValue.new
-  nv.data = 2
-  v2 = OBV_TruncatableTest::TValue4.new
-  v2.basic_data = 7
-  v2.nv4 = nv
-  v2.data4 = 77
-  v3 = OBV_TruncatableTest::TValue4.new
-  v3.basic_data = 6
-  v3.nv4 = nv
-  v3.data4 = 66
-  desc = "multiple IN truncatable valuetype parameters"+
-         " and return truncatable valuetype"
-  STDERR.print "Case 7: #{desc}: "
-  ov, odesc = tester.op4("case7", v1, 5, v2, v3, v4, desc)
-  assert '\nERROR: tester.op4 - 7 desc FAILED', odesc == "case7: #{desc}"
-  total = 5 * (v1.basic_data + v2.basic_data +
-               v3.basic_data + v4.basic_data)
-  assert '\nERROR: tester.op4 - 7 ov FAILED' ,  total == ov.basic_data
-  STDERR.puts 'passed'
-  # 8.
-  v1 = OBV_TruncatableTest::Extra1.new
-  v1.basic_data = 9
-  v1.data1 = 99
-  v1.edata1 = 1234
-  desc = "A<-tB, truncate unknown B to A"
-  STDERR.print "Case 8: #{desc}: "
-  ov1, odesc = tester.op2(v1, "case8", desc)
-  assert '\nERROR: tester.op2 - 8 desc FAILED', odesc == "case8: #{desc}"
-  assert '\nERROR: tester.op2 - 8 ov1 FAILED' , v1.basic_data == ov1.basic_data &&
-                                                v1.data1 == ov1.data1
-  STDERR.puts 'passed'
-  # 9.
-  v1 = OBV_TruncatableTest::TValue1.new
-  v1.basic_data = 9
-  v1.data1 = 99
-  a = CORBA::Any.to_any(v1)
-  desc = "A<-tB, known truncatable via Any"
-  STDERR.print "Case 9: #{desc}: "
-  ov1, odesc = tester.op5(a, "case9", desc)
-  assert '\nERROR: tester.op5 - 9 desc FAILED', odesc == "case9: #{desc}"
-  assert '\nERROR: tester.op5 - 9 ov1 FAILED' , v1.basic_data == ov1.basic_data &&
-                                                v1.data1 == ov1.data1
-  STDERR.puts 'passed'
-  # 10.
-  v1 = OBV_TruncatableTest::Extra1.new
-  v1.basic_data = 9
-  v1.data1 = 99
-  v1.edata1 = 1234
-  a = CORBA::Any.to_any(v1)
-  desc = "A<-tB, unknown truncatable via Any"
-  STDERR.print "Case 10: #{desc}: "
-  ov1, odesc = tester.op5(a, "case10", desc)
-  assert '\nERROR: tester.op5 - 10 desc FAILED', odesc == "case10: #{desc}"
-  assert '\nERROR: tester.op5 - 10 ov1 FAILED' , v1.basic_data == ov1.basic_data &&
-                                                 v1.data1 == ov1.data1
-  STDERR.puts 'passed'
-  # shutdown tester service
-  tester.shutdown()
-ensure
-  orb.destroy()
-end
+#--------------------------------------------------------------------
+#
+# 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('Extra.idl', OPTIONS)
+else
+  require 'ExtraC'
+end
+orb = CORBA.ORB_init(["-ORBDebugLevel", OPTIONS[:orb_debuglevel]], 'myORB')
+begin
+  # make sure valuetype factories are registered
+  OBV_TruncatableTest::BaseValueFactory.get_factory(orb)
+  OBV_TruncatableTest::TValue1Factory.get_factory(orb)
+  OBV_TruncatableTest::TValue2Factory.get_factory(orb)
+  OBV_TruncatableTest::TValue3Factory.get_factory(orb)
+  OBV_TruncatableTest::TValue4Factory.get_factory(orb)
+  OBV_TruncatableTest::TValue5Factory.get_factory(orb)
+  OBV_TruncatableTest::NestedValueFactory.get_factory(orb)
+  obj = orb.string_to_object(OPTIONS[:iorfile])
+  tester = OBV_TruncatableTest::Test._narrow(obj)
+  assert_not 'Object reference is nil.', CORBA::is_nil(tester)
+  if defined?(JRUBY_VERSION)
+    STDERR.puts "Skipping. Value type truncation currently not properly supported by JacORB!"
+    tester.shutdown
+    exit 0
+  end
+  # 1.
+  v1 = OBV_TruncatableTest::TValue1.new
+  v1.basic_data = 9
+  v1.data1 = 99
+  desc = "A<-tB, truncate B to A"
+  STDERR.print "Case 1: #{desc}: "
+  ov1, odesc = tester.op1("case1", v1, desc)
+  assert '\nERROR: tester.op1 desc FAILED', odesc == "case1: #{desc}"
+  assert '\nERROR: tester.op1 ov FAILED' , v1.basic_data == ov1.basic_data
+  STDERR.puts 'passed'
+  # 2.
+  v2 = OBV_TruncatableTest::TValue2.new
+  v2.basic_data = 9
+  v2.data1 = 99
+  v2.data2 = 99 * 2
+  desc = "A<-tB<-tC, truncate C to A"
+  STDERR.print "Case 2: #{desc}: "
+  ov2, odesc = tester.op1("case2", v2, desc)
+  assert '\nERROR: tester.op1 - 2 desc FAILED', odesc == "case2: #{desc}"
+  assert '\nERROR: tester.op1 - 2 ov FAILED' , v2.basic_data == ov2.basic_data
+  STDERR.puts 'passed'
+  desc = "A<-tB<-tC, truncate C to B"
+  STDERR.print "Case 2b: #{desc}: "
+  otv1, odesc = tester.op2(v2, "case2b", desc)
+  assert '\nERROR: tester.op2 - 2b desc FAILED', odesc == "case2b: #{desc}"
+  assert '\nERROR: tester.op2 - 2b otv1 FAILED' , v2.basic_data == otv1.basic_data
+  assert '\nERROR: tester.op2 - 2b otv1 FAILED' , v2.data1 == otv1.data1
+  STDERR.puts 'passed'
+  # 3.
+  itv1b = OBV_TruncatableTest::TValue1.new
+  itv1b.basic_data = 7
+  itv1b.data1 = 8
+  desc = "A<-tB, truncatable but no truncation"
+  STDERR.print "Case 3: #{desc}: "
+  otv1b, odesc = tester.op2(itv1b, "case3", desc)
+  assert '\nERROR: tester.op2 - 3 desc FAILED', odesc == "case3: #{desc}"
+  assert '\nERROR: tester.op2 - 3 otv1b FAILED' , itv1b.basic_data == otv1b.basic_data
+  assert '\nERROR: tester.op2 - 3 otv1b FAILED' , itv1b.data1 == otv1b.data1
+  STDERR.puts 'passed'
+  # 4.
+  v3 = OBV_TruncatableTest::TValue3.new
+  v3.basic_data = 9
+  v3.data1 = 99
+  v3.data3 = (99 * 3)
+  begin
+    desc = "A<-tB<-C, try truncate C to A, MARSHAL exception"
+    STDERR.print "Case 4: #{desc}: "
+    ov3, odesc = tester.op1("case4", v3, desc)
+    STDERR.puts 'failed'
+  rescue CORBA::MARSHAL
+    STDERR.puts 'passed'
+  end
+  # 5.
+  nv = OBV_TruncatableTest::NestedValue.new
+  nv.data = 2
+  v5 = OBV_TruncatableTest::TValue5.new
+  v5.basic_data = 9
+  v5.nv4 = nv
+  v5.data4 = (99 * 4)
+  v5.str1 = "str1"
+  v5.data5 = (99 * 5)
+  v5.nv5 = nv
+  v5.str2 = "str2"
+  desc = "A<-tB<-tC, B & C have nested value type, truncate C to A"
+  STDERR.print "Case 5: #{desc}: "
+  ov5, odesc = tester.op1("case5", v5, desc)
+  assert '\nERROR: tester.op1 - 5 desc FAILED', odesc == "case5: #{desc}"
+  assert '\nERROR: tester.op1 - 5 ov5 FAILED' , v5.basic_data == ov5.basic_data
+  STDERR.puts 'passed'
+  desc = "A<-tB<-tC, B & C have nested value type, truncate C to B"
+  STDERR.print "Case 5b: #{desc}: "
+  otv4, odesc = tester.op3("case5b", v5, desc)
+  assert '\nERROR: tester.op3 - 5b desc FAILED', odesc == "case5b: #{desc}"
+  assert '\nERROR: tester.op3 - 5b otv4 FAILED' , v5.basic_data == otv4.basic_data
+  assert '\nERROR: tester.op3 - 5b otv4.nv4 FAILED' , v5.nv4.data == otv4.nv4.data
+  assert '\nERROR: tester.op3 - 5b otv4.data4 FAILED' , v5.data4 == otv4.data4
+  STDERR.puts 'passed'
+  # 6.
+  iv = OBV_TruncatableTest::TValue6.new
+  iv.basic_data = 9
+  desc = "A<-tB, B has no data, truncate B to A"
+  STDERR.print "Case 6: #{desc}: "
+  ov, odesc = tester.op1("case6", iv, desc)
+  assert '\nERROR: tester.op1 - 6 desc FAILED', odesc == "case6: #{desc}"
+  assert '\nERROR: tester.op1 - 6 ov FAILED' , iv.basic_data == ov.basic_data
+  STDERR.puts 'passed'
+  # 7.
+  v1 = OBV_TruncatableTest::TValue1.new
+  v1.basic_data = 8
+  v1.data1 = 88
+  v4 = OBV_TruncatableTest::TValue1.new
+  v4.basic_data = 9
+  v4.data1 = 99
+  nv = OBV_TruncatableTest::NestedValue.new
+  nv.data = 2
+  v2 = OBV_TruncatableTest::TValue4.new
+  v2.basic_data = 7
+  v2.nv4 = nv
+  v2.data4 = 77
+  v3 = OBV_TruncatableTest::TValue4.new
+  v3.basic_data = 6
+  v3.nv4 = nv
+  v3.data4 = 66
+  desc = "multiple IN truncatable valuetype parameters"+
+         " and return truncatable valuetype"
+  STDERR.print "Case 7: #{desc}: "
+  ov, odesc = tester.op4("case7", v1, 5, v2, v3, v4, desc)
+  assert '\nERROR: tester.op4 - 7 desc FAILED', odesc == "case7: #{desc}"
+  total = 5 * (v1.basic_data + v2.basic_data +
+               v3.basic_data + v4.basic_data)
+  assert '\nERROR: tester.op4 - 7 ov FAILED' ,  total == ov.basic_data
+  STDERR.puts 'passed'
+  # 8.
+  v1 = OBV_TruncatableTest::Extra1.new
+  v1.basic_data = 9
+  v1.data1 = 99
+  v1.edata1 = 1234
+  desc = "A<-tB, truncate unknown B to A"
+  STDERR.print "Case 8: #{desc}: "
+  ov1, odesc = tester.op2(v1, "case8", desc)
+  assert '\nERROR: tester.op2 - 8 desc FAILED', odesc == "case8: #{desc}"
+  assert '\nERROR: tester.op2 - 8 ov1 FAILED' , v1.basic_data == ov1.basic_data &&
+                                                v1.data1 == ov1.data1
+  STDERR.puts 'passed'
+  # 9.
+  v1 = OBV_TruncatableTest::TValue1.new
+  v1.basic_data = 9
+  v1.data1 = 99
+  a = CORBA::Any.to_any(v1)
+  desc = "A<-tB, known truncatable via Any"
+  STDERR.print "Case 9: #{desc}: "
+  ov1, odesc = tester.op5(a, "case9", desc)
+  assert '\nERROR: tester.op5 - 9 desc FAILED', odesc == "case9: #{desc}"
+  assert '\nERROR: tester.op5 - 9 ov1 FAILED' , v1.basic_data == ov1.basic_data &&
+                                                v1.data1 == ov1.data1
+  STDERR.puts 'passed'
+  # 10.
+  v1 = OBV_TruncatableTest::Extra1.new
+  v1.basic_data = 9
+  v1.data1 = 99
+  v1.edata1 = 1234
+  a = CORBA::Any.to_any(v1)
+  desc = "A<-tB, unknown truncatable via Any"
+  STDERR.print "Case 10: #{desc}: "
+  ov1, odesc = tester.op5(a, "case10", desc)
+  assert '\nERROR: tester.op5 - 10 desc FAILED', odesc == "case10: #{desc}"
+  assert '\nERROR: tester.op5 - 10 ov1 FAILED' , v1.basic_data == ov1.basic_data &&
+                                                 v1.data1 == ov1.data1
+  STDERR.puts 'passed'
+  # shutdown tester service
+  tester.shutdown()
+ensure
+  orb.destroy()
+end