rtiss_soap4r 1.6.0

data/test/interopR4/client.rb

@@ -0,0 +1,113 @@
+# encoding: ASCII-8BIT
+require 'test/unit'
+require 'soap/rpc/driver'
+
+
+class TestInteropR4 < Test::Unit::TestCase
+  include SOAP
+
+  class ArrayOfBinary < Array; end
+  MappingRegistry = Mapping::DefaultRegistry.dup
+  MappingRegistry.add(
+    ArrayOfBinary,
+    SOAPArray,
+    Mapping::Registry::TypedArrayFactory,
+    { :type => XSD::XSDBase64Binary::Type }
+  )
+
+  class << self
+    include SOAP
+    def setup(name, location)
+      setup_log(name)
+      setup_drv(location)
+    end
+
+    def teardown
+    end
+
+  private
+
+    def setup_log(name)
+      filename = File.basename($0).sub(/\.rb$/, '') << '.log'
+      @@log = File.open(filename, 'w')
+      @@log << "File: #{ filename } - Wiredumps for SOAP4R client / #{ name } server.\n"
+      @@log << "Date: #{ Time.now }\n\n"
+    end
+
+    def setup_drv(location)
+      namespace = "http://soapinterop.org/attachments/"
+      soap_action = "http://soapinterop.org/attachments/"
+      @@drv = RPC::Driver.new(location, namespace, soap_action)
+      @@drv.mapping_registry = MappingRegistry
+      @@drv.wiredump_dev = @@log
+      method_def(@@drv, soap_action)
+    end
+
+    def method_def(drv, soap_action = nil)
+      drv.add_method("EchoAttachment", 
+	[[:in, 'In', nil], [:retval, 'Out', nil]])
+      drv.add_method("EchoAttachments", 
+	[[:in, 'In', nil], [:retval, 'Out', nil]])
+      drv.add_method("EchoAttachmentAsBase64", 
+	[[:in, 'In', nil], [:retval, 'Out', nil]])
+      drv.add_method("EchoBase64AsAttachment", 
+	[[:in, 'In', nil], [:retval, 'Out', nil]])
+    end
+  end
+
+  def setup
+  end
+
+  def teardown
+  end
+
+  def drv
+    @@drv
+  end
+
+  def log_test
+    /`([^']+)'/ =~ caller(1)[0]
+    title = $1
+    title = "==== " + title + " " << "=" * (title.length > 72 ? 0 : (72 - title.length))
+    @@log << "#{title}\n\n"
+  end
+
+  def test_EchoAttachment
+    log_test
+    var = drv.EchoAttachment(Attachment.new("foobar"))
+    assert_equal("foobar", var.content)
+  end
+
+  def test_EchoAttachments
+    log_test
+    var =  drv.EchoAttachments(
+      ArrayOfBinary[
+	Attachment.new("foobar"),
+	Attachment.new("abc\0\0\0def"),
+	Attachment.new("ghi")
+      ]
+    )
+    assert_equal(3, var.size)
+    assert_equal("foobar", var[0].content)
+    assert_equal("abc\0\0\0def", var[1].content)
+    assert_equal("ghi", var[2].content)
+  end
+
+  def test_EchoAttachmentAsBase64
+    log_test
+    var =  drv.EchoAttachmentAsBase64(Attachment.new("foobar"))
+    assert_equal("foobar", var)
+  end
+
+  def test_EchoBase64AsAttachment
+    log_test
+    var =  drv.EchoBase64AsAttachment("abc\0\1\2def")
+    assert_equal("abc\0\1\2def", var.content)
+  end
+end
+
+if $0 == __FILE__
+  name = ARGV.shift || 'localhost'
+  location = ARGV.shift || 'http://localhost:10080/'
+  TestInteropR4.setup(name, location)
+end

data/test/runner.rb

@@ -0,0 +1,8 @@
+# encoding: ASCII-8BIT
+require 'test/unit'
+
+rcsid = %w$Id$
+Version = rcsid[2].scan(/\d+/).collect!(&method(:Integer)).freeze
+Release = rcsid[3].freeze
+
+exit Test::Unit::AutoRunner.run(true, File.dirname($0))

data/test/sm11/classDef.rb

@@ -0,0 +1,157 @@
+# encoding: ASCII-8BIT
+# http://dopg.gr.jp/sm11.xsd
+class C_struct
+  attr_accessor :e_boolean	# {http://www.w3.org/2001/XMLSchema}boolean
+  attr_accessor :e_short	# {http://www.w3.org/2001/XMLSchema}short
+  attr_accessor :e_int	# {http://www.w3.org/2001/XMLSchema}int
+  attr_accessor :e_long	# {http://www.w3.org/2001/XMLSchema}long
+  attr_accessor :e_float	# {http://www.w3.org/2001/XMLSchema}float
+  attr_accessor :e_double	# {http://www.w3.org/2001/XMLSchema}double
+  attr_accessor :e_String	# {http://www.w3.org/2001/XMLSchema}string
+
+  def initialize( e_boolean = nil,
+      e_short = nil,
+      e_int = nil,
+      e_long = nil,
+      e_float = nil,
+      e_double = nil,
+      e_String = nil )
+    @e_boolean = nil
+    @e_short = nil
+    @e_int = nil
+    @e_long = nil
+    @e_float = nil
+    @e_double = nil
+    @e_String = nil
+  end
+end
+
+# http://dopg.gr.jp/sm11.xsd
+class ArrayOfboolean < Array; end
+
+# http://dopg.gr.jp/sm11.xsd
+class ArrayOfshort < Array; end
+
+# http://dopg.gr.jp/sm11.xsd
+class ArrayOfint < Array; end
+
+# http://dopg.gr.jp/sm11.xsd
+class ArrayOflong < Array; end
+
+# http://dopg.gr.jp/sm11.xsd
+class ArrayOffloat < Array; end
+
+# http://dopg.gr.jp/sm11.xsd
+class ArrayOfdouble < Array; end
+
+# http://dopg.gr.jp/sm11.xsd
+class ArrayOfstring < Array; end
+
+# http://dopg.gr.jp/sm11.xsd
+class F_struct
+  attr_accessor :e_c_struct	# {http://dopg.gr.jp/sm11.xsd}C_struct
+  attr_accessor :e_c_array_e_boolean	# {http://dopg.gr.jp/sm11.xsd}ArrayOfboolean
+  attr_accessor :e_c_array_e_short	# {http://dopg.gr.jp/sm11.xsd}ArrayOfshort
+  attr_accessor :e_c_array_e_int	# {http://dopg.gr.jp/sm11.xsd}ArrayOfint
+  attr_accessor :e_c_array_e_long	# {http://dopg.gr.jp/sm11.xsd}ArrayOflong
+  attr_accessor :e_c_array_e_float	# {http://dopg.gr.jp/sm11.xsd}ArrayOffloat
+  attr_accessor :e_c_array_e_double	# {http://dopg.gr.jp/sm11.xsd}ArrayOfdouble
+  attr_accessor :e_c_array_e_String	# {http://dopg.gr.jp/sm11.xsd}ArrayOfstring
+
+  def initialize( e_c_struct = nil,
+      e_c_array_e_boolean = nil,
+      e_c_array_e_short = nil,
+      e_c_array_e_int = nil,
+      e_c_array_e_long = nil,
+      e_c_array_e_float = nil,
+      e_c_array_e_double = nil,
+      e_c_array_e_String = nil )
+    @e_c_struct = nil
+    @e_c_array_e_boolean = nil
+    @e_c_array_e_short = nil
+    @e_c_array_e_int = nil
+    @e_c_array_e_long = nil
+    @e_c_array_e_float = nil
+    @e_c_array_e_double = nil
+    @e_c_array_e_String = nil
+  end
+end
+
+# http://dopg.gr.jp/sm11.xsd
+class ArrayOfC_struct < Array; end
+
+# http://dopg.gr.jp/sm11.xsd
+class A_except < StandardError
+  attr_accessor :v1	# {http://www.w3.org/2001/XMLSchema}boolean
+  attr_accessor :v4	# {http://www.w3.org/2001/XMLSchema}short
+  attr_accessor :v5	# {http://www.w3.org/2001/XMLSchema}int
+  attr_accessor :v6	# {http://www.w3.org/2001/XMLSchema}long
+  attr_accessor :v7	# {http://www.w3.org/2001/XMLSchema}float
+  attr_accessor :v8	# {http://www.w3.org/2001/XMLSchema}double
+  attr_accessor :v9	# {http://www.w3.org/2001/XMLSchema}string
+
+  def initialize( v1 = nil,
+      v4 = nil,
+      v5 = nil,
+      v6 = nil,
+      v7 = nil,
+      v8 = nil,
+      v9 = nil )
+    @v1 = nil
+    @v4 = nil
+    @v5 = nil
+    @v6 = nil
+    @v7 = nil
+    @v8 = nil
+    @v9 = nil
+  end
+end
+
+# http://dopg.gr.jp/sm11.xsd
+class C_except < StandardError
+  attr_accessor :v10	# {http://dopg.gr.jp/sm11.xsd}C_struct
+  attr_accessor :v21	# {http://dopg.gr.jp/sm11.xsd}ArrayOfboolean
+  attr_accessor :v24	# {http://dopg.gr.jp/sm11.xsd}ArrayOfshort
+  attr_accessor :v25	# {http://dopg.gr.jp/sm11.xsd}ArrayOfint
+  attr_accessor :v26	# {http://dopg.gr.jp/sm11.xsd}ArrayOflong
+  attr_accessor :v27	# {http://dopg.gr.jp/sm11.xsd}ArrayOffloat
+  attr_accessor :v28	# {http://dopg.gr.jp/sm11.xsd}ArrayOfdouble
+  attr_accessor :v29	# {http://dopg.gr.jp/sm11.xsd}ArrayOfstring
+
+  def initialize( v10 = nil,
+      v21 = nil,
+      v24 = nil,
+      v25 = nil,
+      v26 = nil,
+      v27 = nil,
+      v28 = nil,
+      v29 = nil )
+    @v10 = nil
+    @v21 = nil
+    @v24 = nil
+    @v25 = nil
+    @v26 = nil
+    @v27 = nil
+    @v28 = nil
+    @v29 = nil
+  end
+end
+
+# http://dopg.gr.jp/sm11.xsd
+class F_except1 < StandardError
+  attr_accessor :v40	# {http://dopg.gr.jp/sm11.xsd}F_struct
+
+  def initialize( v40 = nil )
+    @v40 = nil
+  end
+end
+
+# http://dopg.gr.jp/sm11.xsd
+class F_except2 < StandardError
+  attr_accessor :v50	# {http://dopg.gr.jp/sm11.xsd}ArrayOfC_struct
+
+  def initialize( v50 = nil )
+    @v50 = nil
+  end
+end
+