mumboe-soap4r 1.5.8.2

data/test/interopR2/server.rb

@@ -0,0 +1,275 @@
+#!/usr/bin/env ruby
+
+$:.unshift(".")
+
+#$KCODE = "UTF8"      # Set $KCODE before loading 'soap/xmlparser'.
+#$KCODE = "EUC"
+$KCODE = "SJIS"
+
+require 'soap/rpc/standaloneServer'
+require 'base'
+require 'xsd/xmlparser/rexmlparser'
+
+class InteropApp < SOAP::RPC::StandaloneServer
+  include SOAP
+
+  def initialize(*arg)
+    super(*arg)
+    self.mapping_registry = SOAPBuildersInterop::MappingRegistry
+    self.level = Logger::Severity::ERROR
+  end
+
+  def on_init
+    (SOAPBuildersInterop::MethodsBase + SOAPBuildersInterop::MethodsGroupB + SOAPBuildersInterop::MethodsPolyMorph).each do |name, *params|
+      add_method(self, name, params)
+    end
+  end
+
+  # In echoVoid, 'retval' is not defined.  So nothing will be returned.
+  def echoVoid
+    return SOAP::RPC::SOAPVoid.new
+  end
+
+  def echoBoolean(inputBoolean)
+    inputBoolean
+  end
+
+  def echoString(inputString)
+    clone(inputString)
+  end
+
+  def echoStringArray(inputStringArray)
+    clone(inputStringArray)
+  end
+
+  def echoInteger(inputInteger)
+    SOAP::SOAPInt.new(clone(inputInteger))
+  end
+
+  def echoIntegerArray(inputIntegerArray)
+    clone(inputIntegerArray)
+  end
+
+  # Float is mapped to SOAPDouble by default.
+  def echoFloat(inputFloat)
+    SOAP::SOAPFloat.new(inputFloat)
+  end
+
+  def echoDecimal(inputDecimal)
+    SOAP::SOAPDecimal.new(clone(inputDecimal))
+  end
+
+  def echoFloatArray(inputFloatArray)
+    outArray = SOAPBuildersInterop::FloatArray.new
+    inputFloatArray.each do |f|
+      outArray << SOAPFloat.new(f)
+    end
+    outArray
+  end
+
+  def echoStruct(inputStruct)
+    clone_Struct(inputStruct)
+  end
+
+  def echoStructArray(inputStructArray)
+    clone_StructArray(inputStructArray)
+  end
+
+  def echoDate(inputDate)
+    clone(inputDate)
+  end
+
+  def echoBase64(inputBase64)
+    o = SOAP::SOAPBase64.new(clone(inputBase64))
+    o.as_xsd
+    o
+  end
+
+  def echoHexBinary(inputHexBinary)
+    SOAP::SOAPHexBinary.new(clone(inputHexBinary))
+  end
+
+  def echoDouble(inputDouble)
+    SOAP::SOAPDouble.new(inputDouble)
+  end
+
+  # for Round 2 group B
+  def echoStructAsSimpleTypes(inputStruct)
+    outputString = inputStruct.varString
+    outputInteger = inputStruct.varInt
+    outputFloat = inputStruct.varFloat ? SOAPFloat.new(inputStruct.varFloat) : nil
+    # retVal is not returned to SOAP client because retVal of this method is
+    #   not defined in method definition.
+    # retVal, out, out, out
+    return nil, outputString, outputInteger, outputFloat
+  end
+
+  def echoSimpleTypesAsStruct(inputString, inputInt, inputFloat)
+    SOAPBuildersInterop::SOAPStruct.new(inputInt, inputFloat, inputString)
+  end
+
+  def echo2DStringArray(ary)
+    # In Ruby, M-D Array is converted to Array of Array now.
+    mdary = SOAP::Mapping.ary2md(ary, 2, XSD::Namespace, XSD::StringLiteral)
+    if mdary.include?(nil)
+      mdary.sparse = true
+    end
+    mdary
+  end
+
+  def echoNestedStruct(inputStruct)
+    clone_StructStruct(inputStruct)
+  end
+
+  def echoNestedArray(inputStruct)
+    clone_Struct(inputStruct)
+  end
+
+  def echoMap(inputMap)
+    clone(inputMap)
+  end
+
+  def echoMapArray(inputMapArray)
+    clone(inputMapArray)
+  end
+
+  def echoPolyMorph(anObject)
+    clone(anObject)
+  end
+
+  alias echoPolyMorphStruct echoPolyMorph
+  alias echoPolyMorphArray echoPolyMorph
+
+
+  def echoXSDBoolean(inputBoolean)
+    inputBoolean
+  end
+
+  def echoXSDString(inputString)
+    clone(inputString)
+  end
+
+  def echoXSDDecimal(inputDecimal)
+    SOAP::SOAPDecimal.new(clone(inputDecimal))
+  end
+
+  def echoXSDFloat(inputFloat)
+    SOAPFloat.new(inputFloat)
+  end
+
+  def echoXSDDouble(inputDouble)
+    SOAP::SOAPDouble.new(clone(inputDouble))
+  end
+
+  def echoXSDDuration(inputDuration)
+    SOAP::SOAPDuration.new(clone(inputDuration))
+  end
+
+  def echoXSDDateTime(inputXSDDateTime)
+    clone(inputXSDDateTime)
+  end
+
+  def echoXSDTime(inputXSDTime)
+    SOAP::SOAPTime.new(clone(inputXSDTime))
+  end
+
+  def echoXSDDate(inputXSDDate)
+    SOAP::SOAPDate.new(clone(inputXSDDate))
+  end
+
+  def echoXSDgYearMonth(inputGYearMonth)
+    SOAP::SOAPgYearMonth.new(clone(inputGYearMonth))
+  end
+
+  def echoXSDgYear(inputGYear)
+    SOAP::SOAPgYear.new(clone(inputGYear))
+  end
+
+  def echoXSDgMonthDay(inputGMonthDay)
+    SOAP::SOAPgMonthDay.new(clone(inputGMonthDay))
+  end
+
+  def echoXSDgDay(inputGDay)
+    SOAP::SOAPgDay.new(clone(inputGDay))
+  end
+
+  def echoXSDgMonth(inputGMonth)
+    SOAP::SOAPgMonth.new(clone(inputGMonth))
+  end
+
+  def echoXSDHexBinary(inputHexBinary)
+    SOAP::SOAPHexBinary.new(clone(inputHexBinary))
+  end
+
+  def echoXSDBase64(inputBase64)
+    o = SOAP::SOAPBase64.new(clone(inputBase64))
+    o.as_xsd
+    o
+  end
+
+  def echoXSDanyURI(inputAnyURI)
+    clone(inputAnyURI)
+  end
+
+  def echoXSDQName(inputQName)
+    SOAP::SOAPQName.new(clone(inputQName))
+  end
+
+  def echoXSDInteger(inputXSDInteger)
+    clone(inputXSDInteger)
+  end
+
+  def echoXSDLong(inputLong)
+    SOAP::SOAPLong.new(clone(inputLong))
+  end
+
+  def echoXSDInt(inputInt)
+    SOAP::SOAPInt.new(clone(inputInteger))
+  end
+
+  def echoPolyMorph(anObject)
+    clone(anObject)
+  end
+
+  alias echoPolyMorphStruct echoPolyMorph
+  alias echoPolyMorphArray echoPolyMorph
+
+private
+
+  def clone(obj)
+    begin
+      return Marshal.load(Marshal.dump(obj))
+    rescue TypeError
+      return obj
+    end
+  end
+
+  def clone_Struct(struct)
+    result = clone(struct)
+    result.varFloat = SOAPFloat.new(struct.varFloat) if struct.varFloat
+    result
+  end
+  
+  def clone_StructArray(structArray)
+    result = clone(structArray)
+    result.map { |ele|
+      ele.varFloat = SOAPFloat.new(ele.varFloat) if ele.varFloat
+    }
+    result
+  end
+  
+  def clone_StructStruct(structStruct)
+    result = clone(structStruct)
+    result.varFloat = SOAPFloat.new(structStruct.varFloat) if structStruct.varFloat
+    if struct = result.varStruct
+      struct.varFloat = SOAPFloat.new(struct.varFloat) if struct.varFloat
+    end
+    result
+  end
+end
+
+if __FILE__ == $0
+  svr = InteropApp.new('InteropApp', InterfaceNS, '0.0.0.0', 10080)
+  trap("INT") { svr.shutdown }
+  svr.start
+end

data/test/interopR2/simonReg.rb

@@ -0,0 +1,123 @@
+#!/usr/bin/env ruby
+
+proxy = ARGV.shift || nil
+
+require 'soap/driver'
+require 'logger'
+
+require 'iSimonReg'
+
+server = 'http://www.4s4c.com/services/4s4c.ashx'
+
+class SimonRegApp < Logger::Application
+  include SimonReg
+
+private
+
+  AppName = 'SimonRegApp'
+
+  def initialize( server, proxy )
+    super( AppName )
+    @server = server
+    @proxy = proxy
+    @logId = Time.now.gmtime.strftime( "%Y-%m-%dT%X+0000" )
+    @drvServices = nil
+    @drvClients = nil
+    @drvServers = nil
+    @drvSubscriber = nil
+  end
+
+  def run()
+    @log.level = WARN
+    wireDump = getWireDumpLogFile
+
+    # Services portType
+    @drvServices = SOAP::Driver.new( @log, @logId, Services::InterfaceNS, @server, @proxy )
+    @drvServices.setWireDumpDev( wireDump )
+
+    Services::Methods.each do | method, params |
+      @drvServices.addMethod( method, *( params[1..-1] ))
+    end
+    @drvServices.extend( Services )
+
+    # Clients portType
+    @drvClients = SOAP::Driver.new( @log, @logId, Clients::InterfaceNS, @server, @proxy )
+    @drvClients.setWireDumpDev( wireDump )
+
+    Clients::Methods.each do | method, params |
+      @drvClients.addMethod( method, *( params[1..-1] ))
+    end
+    @drvClients.extend( Clients )
+
+    # Servers portType
+    @drvServers = SOAP::Driver.new( @log, @logId, Servers::InterfaceNS, @server, @proxy )
+    @drvServers.setWireDumpDev( wireDump )
+
+    Servers::Methods.each do | method, params |
+      @drvServers.addMethod( method, *( params[1..-1] ))
+    end
+    @drvServers.extend( Services )
+
+    # Services portType
+    @drvSubscriber = SOAP::Driver.new( @log, @logId, Subscriber::InterfaceNS, @server, @proxy )
+    @drvSubscriber.setWireDumpDev( wireDump )
+
+    Subscriber::Methods.each do | method, params |
+      @drvSubscriber.addMethod( method, *( params[1..-1] ))
+    end
+    @drvSubscriber.extend( Subscriber )
+
+    # Service information
+    #services = @drvServices.ServiceList
+    #groupA = services.find { | service | service.name == 'SoapBuilders Interop Group A' }
+    #groupB = services.find { | service | service.name == 'SoapBuilders Interop Group B' }
+
+    # SOAP4R information
+    version = '1.4.1'
+    soap4rClientInfo = Clients::ClientInfo.new( 'SOAP4R', version,
+      'http://www.jin.gr.jp/~nahi/Ruby/SOAP4R/wiki.cgi?cmd=view;name=InteropResults'
+    )
+    soap4rServerInfo = Servers::ServerInfo.new( 'SOAP4R', version,
+      'http://www.jin.gr.jp/~nahi/Ruby/SOAP4R/SOAPBuildersInterop/',
+      'http://www.jin.gr.jp/~nahi/Ruby/SOAP4R/SOAPBuildersInterop/SOAP4R_SOAPBuildersInteropTest_R2base.wsdl' )
+    soap4rGroupAClientID = '{7B1DF876-055E-4259-ACAE-55E13E399264}'
+    soap4rGroupBClientID = '{62723003-BC86-4BC0-AABC-C6A3FDE11655}'
+    soap4rGroupAServerID = '{3094F6C7-F6AA-4BE5-A4EB-194C82103728}'
+    soap4rGroupBServerID = '{A16357C9-6C7F-45CD-AC3D-72F0FC5F4F99}'
+
+    # Client registration
+    # clientID = @drvClients.RegisterClient( groupA.id, soap4rClientInfo )
+    # clientID = @drvClients.RegisterClient( groupB.id, soap4rClientInfo )
+
+    # Client remove
+    # @drvClients.RemoveClient( soap4rClientID )
+
+    # Server registration
+    # serverID = @drvServers.RegisterServer( groupA.id, soap4rServerInfo )
+    # serverID = @drvServers.RegisterServer( groupB.id, soap4rServerInfo )
+    # p serverID
+
+    # Update
+    @drvClients.UpdateClient( soap4rGroupAClientID, soap4rClientInfo )
+    @drvClients.UpdateClient( soap4rGroupBClientID, soap4rClientInfo )
+    @drvServers.UpdateServer( soap4rGroupAServerID, soap4rServerInfo )
+    @drvServers.UpdateServer( soap4rGroupBServerID, soap4rServerInfo )
+  end
+
+
+  ###
+  ## Other utility methods
+  #
+  def log( sev, message )
+    @log.add( sev, "<#{ @logId }> #{ message }", @appName ) if @log
+  end
+
+  def getWireDumpLogFile
+    logFilename = File.basename( $0 ) + '.log'
+    f = File.open( logFilename, 'w' )
+    f << "File: #{ logFilename } - Wiredumps for SOAP4R client.\n"
+    f << "Date: #{ Time.now }\n\n"
+  end
+end
+
+app = SimonRegApp.new( server, proxy ).start()

data/test/interopR2/test.sh

@@ -0,0 +1,49 @@
+#!/bin/sh -
+
+ruby clientSOAP4R.rb
+
+ruby client4S4C.rb
+ruby client4S4C2.rb
+ruby clientApacheAxis.rb
+ruby clientApacheSOAP.rb
+ruby clientASP.NET.rb
+ruby clientBEAWebLogic.rb
+ruby clientCapeConnect.rb
+ruby clientDelphi.rb
+ruby clientEasySoap.rb
+ruby clienteSOAP.rb
+ruby clientgSOAP.rb
+ruby clientFrontier.rb
+ruby clientGLUE.rb
+ruby clientHP.rb
+ruby clientXMLBus.rb
+ruby clientKafkaXSLT.rb
+ruby clientkSOAP.rb
+ruby client.NetRemoting.rb
+ruby clientMSSOAPToolkit2.0.rb
+ruby clientMSSOAPToolkit3.0.rb
+ruby clientNuSOAP.rb
+ruby clientNuWave.rb
+ruby clientOpenLink.rb
+ruby clientOracle.rb
+ruby clientPEAR.rb
+ruby clientPhalanx.rb
+ruby clientSilverStream.rb
+ruby clientSIMACE.rb
+ruby clientSOAP::Lite.rb
+ruby clientJSOAP.rb
+ruby clientSpray2001.rb
+ruby clientSQLData.rb
+ruby clientSun.rb
+ruby clientVWOpentalkSoap.rb
+ruby clientWASP.rb
+ruby clientWASPC.rb
+ruby clientWebMethods.rb
+ruby clientWhiteMesa.rb
+ruby clientWingfoot.rb
+ruby clientXSOAP.rb
+
+# Permanent
+#ruby clientTclSOAP.rb
+#ruby clientXMLRPC-EPI.rb
+#ruby clientZSI.rb

data/test/interopR4/client.rb

@@ -0,0 +1,112 @@
+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