soap4r-straightjacket 1.5.8

data/test/wsdl/simplecontent/simplecontent.wsdl

@@ -0,0 +1,84 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<wsdl:definitions
+  name="simpleContent"
+  targetNamespace="urn:www.example.org:simpleContent"
+  xmlns="http://schemas.xmlsoap.org/wsdl/"
+  xmlns:tns="urn:www.example.org:simpleContent"
+  xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/"
+  xmlns:wsdl="http://schemas.xmlsoap.org/wsdl/"
+  xmlns:wsdlsoap="http://schemas.xmlsoap.org/wsdl/soap/"
+  xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+
+  <wsdl:types>
+    <schema targetNamespace="urn:www.example.org:simpleContent"
+      xmlns="http://www.w3.org/2001/XMLSchema">
+
+      <import namespace="http://schemas.xmlsoap.org/soap/encoding/"/>
+
+      <element name="Address">
+        <complexType>
+          <sequence>
+            <element name="list" type="tns:PhoneList"/>
+            <element name="blah" type="xsd:string"/>
+          </sequence>
+        </complexType>
+      </element>
+
+      <complexType name="PhoneList">
+        <sequence>
+          <element name="phone" type="tns:PhoneNumber" minOccurs="0"
+            maxOccurs="unbounded" />
+        </sequence>
+        <attribute name="default" type="xsd:string" />
+      </complexType>
+
+      <element name="PhoneNumberElement" type="tns:PhoneNumber" />
+      <complexType name="PhoneNumber">
+        <simpleContent>
+          <extension base="xsd:string">
+            <attribute name="type" type="tns:PhoneNumberType" use="required" />
+          </extension>
+        </simpleContent>
+      </complexType>
+
+      <simpleType name="PhoneNumberType">
+        <restriction base="xsd:string">
+          <enumeration value="Fax" />
+          <enumeration value="Home" />
+          <enumeration value="Mobile" />
+          <enumeration value="Office" />
+          <enumeration value="Pager" />
+        </restriction>
+      </simpleType>
+    </schema>
+  </wsdl:types>
+
+  <wsdl:message name="echoIn">
+    <wsdl:part name="parameters" element="tns:Address" />
+  </wsdl:message>
+  <wsdl:message name="echoOut">
+    <wsdl:part name="parameters" element="tns:Address" />
+  </wsdl:message>
+
+  <wsdl:portType name="simpleContentService">
+    <wsdl:operation name="echo">
+      <wsdl:input message="tns:echoIn" />
+      <wsdl:output message="tns:echoOut" />
+    </wsdl:operation>
+  </wsdl:portType>
+
+  <wsdl:binding name="simpleContentBinding" type="tns:simpleContentService">
+    <wsdlsoap:binding transport="http://schemas.xmlsoap.org/soap/http" style="document" />
+    <wsdl:operation name="echo">
+      <wsdlsoap:operation soapAction="urn:www.example.org:simpleContent:echo" style="document" />
+      <wsdl:input><wsdlsoap:body use="literal" /></wsdl:input>
+      <wsdl:output><wsdlsoap:body use="literal" /></wsdl:output>
+    </wsdl:operation>
+  </wsdl:binding>
+
+  <wsdl:service>
+    <wsdl:port name="simpleContentPort" binding="tns:simpleContentBinding">
+      <wsdlsoap:address location="http://localhost:17171/" />
+    </wsdl:port>
+  </wsdl:service>
+</wsdl:definitions>

data/test/wsdl/simplecontent/test_simplecontent.rb

@@ -0,0 +1,102 @@
+require 'test/unit'
+require 'wsdl/parser'
+require 'wsdl/soap/wsdl2ruby'
+require 'soap/rpc/standaloneServer'
+require 'soap/wsdlDriver'
+require File.join(File.dirname(File.expand_path(__FILE__)), '..', '..', 'testutil.rb')
+
+
+module WSDL; module SimpleContent
+
+
+class TestSimpleContent < Test::Unit::TestCase
+  NS = 'urn:www.example.org:simpleContent'
+  class Server < ::SOAP::RPC::StandaloneServer
+    def on_init
+      SimpleContentService::Methods.each do |definition|
+        add_document_operation(self, *definition)
+      end
+      self.literal_mapping_registry =
+        SimpleContentMappingRegistry::LiteralRegistry
+    end
+  
+    def echo(address)
+      address
+    end
+  end
+
+  DIR = File.dirname(File.expand_path(__FILE__))
+
+  Port = 17171
+
+  def setup
+    setup_classdef
+    setup_server
+    @client = nil
+  end
+
+  def teardown
+    teardown_server if @server
+    unless $DEBUG
+      File.unlink(pathname('simpleContent.rb'))
+      File.unlink(pathname('simpleContentMappingRegistry.rb'))
+      File.unlink(pathname('simpleContentDriver.rb'))
+    end
+    @client.reset_stream if @client
+  end
+
+  def setup_server
+    @server = Server.new('Test', "urn:www.example.org:simpleContent", '0.0.0.0', Port)
+    @server.level = Logger::Severity::ERROR
+    @server_thread = TestUtil.start_server_thread(@server)
+  end
+
+  def setup_classdef
+    gen = WSDL::SOAP::WSDL2Ruby.new
+    gen.location = pathname("simplecontent.wsdl")
+    gen.basedir = DIR
+    gen.logger.level = Logger::FATAL
+    gen.opt['classdef'] = nil
+    gen.opt['mapping_registry'] = nil
+    gen.opt['driver'] = nil
+    gen.opt['force'] = true
+    gen.opt['module_path'] = 'WSDL::SimpleContent'
+    gen.run
+    TestUtil.require(DIR, 'simpleContent.rb', 'simpleContentMappingRegistry.rb', 'simpleContentDriver.rb')
+  end
+
+  def teardown_server
+    @server.shutdown
+    @server_thread.kill
+    @server_thread.join
+  end
+
+  def pathname(filename)
+    File.join(DIR, filename)
+  end
+
+  def test_stub
+    @client = SimpleContentService.new("http://localhost:#{Port}/")
+    @client.wiredump_dev = STDERR if $DEBUG
+
+    list = PhoneList.new
+    list.xmlattr_default = "default"
+    phone1 = PhoneNumber.new("12<>345")
+    phone1.xmlattr_type = PhoneNumberType::Fax
+    phone2 = PhoneNumber.new("234<>56")
+    phone2.xmlattr_type = PhoneNumberType::Home
+    list.phone << phone1 << phone2
+    address = Address.new(list, "addr")
+    ret = @client.echo(address)
+
+    assert_equal(address.blah, ret.blah)
+    assert_equal(2, ret.list.phone.size)
+    assert_equal("12<>345", ret.list.phone[0])
+    assert_equal(PhoneNumberType::Fax, ret.list.phone[0].xmlattr_type)
+    assert_equal("234<>56", ret.list.phone[1])
+    assert_equal(PhoneNumberType::Home, ret.list.phone[1].xmlattr_type)
+  end
+end
+
+
+end; end

data/test/wsdl/simpletype/rpc/expectedClient.rb

@@ -0,0 +1,34 @@
+#!/usr/bin/env ruby
+require 'echo_versionDriver.rb'
+
+endpoint_url = ARGV.shift
+obj = Echo_version_port_type.new(endpoint_url)
+
+# run ruby with -d to see SOAP wiredumps.
+obj.wiredump_dev = STDERR if $DEBUG
+
+# SYNOPSIS
+#   echo_version(version)
+#
+# ARGS
+#   version         Version - {urn:example.com:simpletype-rpc-type}version
+#
+# RETURNS
+#   version_struct  Version_struct - {urn:example.com:simpletype-rpc-type}version_struct
+#
+version = nil
+puts obj.echo_version(version)
+
+# SYNOPSIS
+#   echo_version_r(version_struct)
+#
+# ARGS
+#   version_struct  Version_struct - {urn:example.com:simpletype-rpc-type}version_struct
+#
+# RETURNS
+#   version         Version - {urn:example.com:simpletype-rpc-type}version
+#
+version_struct = nil
+puts obj.echo_version_r(version_struct)
+
+

data/test/wsdl/simpletype/rpc/expectedDriver.rb

@@ -0,0 +1,58 @@
+require 'echo_version.rb'
+require 'echo_versionMappingRegistry.rb'
+require 'soap/rpc/driver'
+
+class Echo_version_port_type < ::SOAP::RPC::Driver
+  DefaultEndpointUrl = "http://localhost:10080"
+  NsSimpletypeRpc = "urn:example.com:simpletype-rpc"
+
+  Methods = [
+    [ XSD::QName.new(NsSimpletypeRpc, "echo_version"),
+      "urn:example.com:simpletype-rpc",
+      "echo_version",
+      [ [:in, "version", [nil, "urn:example.com:simpletype-rpc-type", "version"]],
+        [:retval, "version_struct", ["Version_struct", "urn:example.com:simpletype-rpc-type", "version_struct"]] ],
+      { :request_style =>  :rpc, :request_use =>  :encoded,
+        :response_style => :rpc, :response_use => :encoded,
+        :faults => {} }
+    ],
+    [ XSD::QName.new(NsSimpletypeRpc, "echo_version_r"),
+      "urn:example.com:simpletype-rpc",
+      "echo_version_r",
+      [ [:in, "version_struct", ["Version_struct", "urn:example.com:simpletype-rpc-type", "version_struct"]],
+        [:retval, "version", [nil, "urn:example.com:simpletype-rpc-type", "version"]] ],
+      { :request_style =>  :rpc, :request_use =>  :encoded,
+        :response_style => :rpc, :response_use => :encoded,
+        :faults => {} }
+    ]
+  ]
+
+  def initialize(endpoint_url = nil)
+    endpoint_url ||= DefaultEndpointUrl
+    super(endpoint_url, nil)
+    self.mapping_registry = Echo_versionMappingRegistry::EncodedRegistry
+    self.literal_mapping_registry = Echo_versionMappingRegistry::LiteralRegistry
+    init_methods
+  end
+
+private
+
+  def init_methods
+    Methods.each do |definitions|
+      opt = definitions.last
+      if opt[:request_style] == :document
+        add_document_operation(*definitions)
+      else
+        add_rpc_operation(*definitions)
+        qname = definitions[0]
+        name = definitions[2]
+        if qname.name != name and qname.name.capitalize == name.capitalize
+          ::SOAP::Mapping.define_singleton_method(self, qname.name) do |*arg|
+            __send__(name, *arg)
+          end
+        end
+      end
+    end
+  end
+end
+

data/test/wsdl/simpletype/rpc/expectedEchoVersion.rb

@@ -0,0 +1,36 @@
+require 'xsd/qname'
+
+# {urn:example.com:simpletype-rpc-type}version_struct
+#   version - Version
+#   msg - SOAP::SOAPString
+class Version_struct
+  attr_accessor :version
+  attr_accessor :msg
+
+  def initialize(version = nil, msg = nil)
+    @version = version
+    @msg = msg
+  end
+end
+
+# {urn:example.com:simpletype-rpc-type}version
+class Version < ::String
+  C_16 = new("1.6")
+  C_18 = new("1.8")
+  C_19 = new("1.9")
+end
+
+# {urn:example.com:simpletype-rpc-type}stateType
+class StateType < ::String
+  StateType = new("stateType")
+end
+
+# {urn:example.com:simpletype-rpc-type}zipIntType
+class ZipIntType < ::String
+  C_123 = new("123")
+end
+
+# {urn:example.com:simpletype-rpc-type}zipUnion
+#  any of tns:stateType tns:zipIntType
+class ZipUnion < ::String
+end

data/test/wsdl/simpletype/rpc/expectedMappingRegistry.rb

@@ -0,0 +1,57 @@
+require 'echo_version.rb'
+require 'soap/mapping'
+
+module Echo_versionMappingRegistry
+  EncodedRegistry = ::SOAP::Mapping::EncodedRegistry.new
+  LiteralRegistry = ::SOAP::Mapping::LiteralRegistry.new
+  NsSimpletypeRpcType = "urn:example.com:simpletype-rpc-type"
+
+  EncodedRegistry.register(
+    :class => Version_struct,
+    :schema_type => XSD::QName.new(NsSimpletypeRpcType, "version_struct"),
+    :schema_element => [
+      ["version", ["Version", XSD::QName.new(nil, "version")]],
+      ["msg", ["SOAP::SOAPString", XSD::QName.new(nil, "msg")]]
+    ]
+  )
+
+  EncodedRegistry.register(
+    :class => Version,
+    :schema_type => XSD::QName.new(NsSimpletypeRpcType, "version")
+  )
+
+  EncodedRegistry.register(
+    :class => StateType,
+    :schema_type => XSD::QName.new(NsSimpletypeRpcType, "stateType")
+  )
+
+  EncodedRegistry.register(
+    :class => ZipIntType,
+    :schema_type => XSD::QName.new(NsSimpletypeRpcType, "zipIntType")
+  )
+
+  LiteralRegistry.register(
+    :class => Version_struct,
+    :schema_type => XSD::QName.new(NsSimpletypeRpcType, "version_struct"),
+    :schema_element => [
+      ["version", ["Version", XSD::QName.new(nil, "version")]],
+      ["msg", ["SOAP::SOAPString", XSD::QName.new(nil, "msg")]]
+    ]
+  )
+
+  LiteralRegistry.register(
+    :class => Version,
+    :schema_type => XSD::QName.new(NsSimpletypeRpcType, "version")
+  )
+
+  LiteralRegistry.register(
+    :class => StateType,
+    :schema_type => XSD::QName.new(NsSimpletypeRpcType, "stateType")
+  )
+
+  LiteralRegistry.register(
+    :class => ZipIntType,
+    :schema_type => XSD::QName.new(NsSimpletypeRpcType, "zipIntType")
+  )
+
+end

data/test/wsdl/simpletype/rpc/expectedServant.rb

@@ -0,0 +1,32 @@
+require 'echo_version.rb'
+
+class Echo_version_port_type
+  # SYNOPSIS
+  #   echo_version(version)
+  #
+  # ARGS
+  #   version         Version - {urn:example.com:simpletype-rpc-type}version
+  #
+  # RETURNS
+  #   version_struct  Version_struct - {urn:example.com:simpletype-rpc-type}version_struct
+  #
+  def echo_version(version)
+    p [version]
+    raise NotImplementedError.new
+  end
+
+  # SYNOPSIS
+  #   echo_version_r(version_struct)
+  #
+  # ARGS
+  #   version_struct  Version_struct - {urn:example.com:simpletype-rpc-type}version_struct
+  #
+  # RETURNS
+  #   version         Version - {urn:example.com:simpletype-rpc-type}version
+  #
+  def echo_version_r(version_struct)
+    p [version_struct]
+    raise NotImplementedError.new
+  end
+end
+

data/test/wsdl/simpletype/rpc/expectedService.rb

@@ -0,0 +1,55 @@
+#!/usr/bin/env ruby
+require 'echo_versionServant.rb'
+require 'echo_versionMappingRegistry.rb'
+require 'soap/rpc/standaloneServer'
+
+class Echo_version_port_type
+  NsSimpletypeRpc = "urn:example.com:simpletype-rpc"
+
+  Methods = [
+    [ XSD::QName.new(NsSimpletypeRpc, "echo_version"),
+      "urn:example.com:simpletype-rpc",
+      "echo_version",
+      [ [:in, "version", [nil, "urn:example.com:simpletype-rpc-type", "version"]],
+        [:retval, "version_struct", ["Version_struct", "urn:example.com:simpletype-rpc-type", "version_struct"]] ],
+      { :request_style =>  :rpc, :request_use =>  :encoded,
+        :response_style => :rpc, :response_use => :encoded,
+        :faults => {} }
+    ],
+    [ XSD::QName.new(NsSimpletypeRpc, "echo_version_r"),
+      "urn:example.com:simpletype-rpc",
+      "echo_version_r",
+      [ [:in, "version_struct", ["Version_struct", "urn:example.com:simpletype-rpc-type", "version_struct"]],
+        [:retval, "version", [nil, "urn:example.com:simpletype-rpc-type", "version"]] ],
+      { :request_style =>  :rpc, :request_use =>  :encoded,
+        :response_style => :rpc, :response_use => :encoded,
+        :faults => {} }
+    ]
+  ]
+end
+
+class Echo_version_port_typeApp < ::SOAP::RPC::StandaloneServer
+  def initialize(*arg)
+    super(*arg)
+    servant = Echo_version_port_type.new
+    Echo_version_port_type::Methods.each do |definitions|
+      opt = definitions.last
+      if opt[:request_style] == :document
+        @router.add_document_operation(servant, *definitions)
+      else
+        @router.add_rpc_operation(servant, *definitions)
+      end
+    end
+    self.mapping_registry = Echo_versionMappingRegistry::EncodedRegistry
+    self.literal_mapping_registry = Echo_versionMappingRegistry::LiteralRegistry
+  end
+end
+
+if $0 == __FILE__
+  # Change listen port.
+  server = Echo_version_port_typeApp.new('app', nil, '0.0.0.0', 10080)
+  trap(:INT) do
+    server.shutdown
+  end
+  server.start
+end