DefV-soap4r 1.5.8.2

data/test/interopR2/interopService.rb

@@ -0,0 +1,247 @@
+require 'interopbase'
+
+class InteropService
+  include SOAP
+
+  # 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

data/test/interopR2/rwikiInteropService.rb

@@ -0,0 +1,105 @@
+require 'drb/drb'
+require 'rw-lib'
+require 'interopResultBase'
+
+class RWikiInteropService
+  def initialize
+    @rwiki_uri = 'druby://localhost:7174'
+    @rwiki = DRbObject.new(nil, @rwiki_uri)
+  end
+
+  #  [ 'addResults', [:in, 'interopResults' ]]
+  #  [ 'deleteResults', [:in, 'client'], [:in, 'server']]
+
+  def addResults(interopResults)
+    pageName = pageName(interopResults.client, interopResults.server)
+
+    passResults = interopResults.find_all { | testResult |
+      testResult.result
+    }
+    passStr = passResults.collect { | passResult |
+      str = "* #{ passResult.testName } ((<[wiredump]|\"##{passResult.testName}\">))\n"
+      if passResult.comment
+	str << "\n  #{ passResult.comment.gsub(/[\r\n]/, '') }\n"
+      end
+      str
+    }
+    passStr = 'Nothing...' if passStr.empty?
+
+    failResults = interopResults.find_all { | testResult |
+      !testResult.result
+    }
+    failStr = failResults.collect { | failResult |
+      str = ":#{ failResult.testName } ((<[wiredump]|\"##{failResult.testName}\">))\n  Result:\n"
+      resultStr = failResult.comment.gsub(/\r?\n/, "\n    ")
+      str << "    #{ resultStr }\n"
+      str
+    }
+    failStr = 'Nothing!' if failStr.empty?
+
+    pageStr =<<__EOS__
+= #{ pageName }
+
+* Date: #{ interopResults.dateTime }
+* Server
+  * Name: #{ interopResults.server.name }
+  * Endpoint: #{ interopResults.server.uri }
+  * WSDL: #{ interopResults.server.wsdl }
+* Client
+  * Name: #{ interopResults.client.name }
+  * Endpoint: #{ interopResults.client.uri }
+  * WSDL: #{ interopResults.client.wsdl }
+
+== Pass
+
+#{ passResults.size } / #{ interopResults.size }
+
+#{ passStr }
+
+== Fail
+
+#{ failResults.size } / #{ interopResults.size }
+
+#{ failStr }
+
+== Wiredumps
+
+__EOS__
+
+    interopResults.each do | testResult |
+      pageStr <<<<__EOS__
+=== #{ testResult.testName }
+
+  #{ testResult.wiredump.gsub(/\r/, '^M').gsub(/\t/, '^I').gsub(/\n/, "\n  ") }
+
+__EOS__
+    end
+
+    set(pageName, pageStr)
+
+    msg = "; #{ passResults.size } / #{ interopResults.size } (#{ interopResults.dateTime })"
+    addLink(pageName, msg)
+  end
+
+  def deleteResults(client, server)
+    set(pageName(client, server), '')
+  end
+
+private
+
+  def set(pageName, pageSrc)
+    page = @rwiki.page(pageName)
+    page.src = pageSrc
+  end
+
+  def pageName(client, server)
+    "InteropResults::#{ client.name }-#{ server.name }"
+  end
+
+  def addLink(pageName, msg)
+    page = @rwiki.page('InteropResults')
+    # Race condition...  Page source might be mixed with others's.
+    page.src = (page.src || '') << "\n* ((<\"#{ pageName }\">))\n  #{ msg }"
+  end
+end
+

data/test/interopR2/server.cgi

@@ -0,0 +1,270 @@
+#!/usr/bin/env ruby
+
+$:.unshift(".")
+
+#$KCODE = "UTF8"      # Set $KCODE before loading 'soap/xmlparser'.
+#$KCODE = "EUC"
+$KCODE = "SJIS"
+
+require 'soap/rpc/cgistub'
+require 'base'
+
+class InteropApp < SOAP::CGIStub
+  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
+
+InteropApp.new('InteropApp', InterfaceNS).start