soap4r-sgonyea 1.5.9

data/test/wsdl/qualified/lp.wsdl

@@ -0,0 +1,47 @@
+<?xml version="1.0" encoding="utf-8"?>
+<definitions
+    name="lp"
+    targetNamespace="urn:lp"
+    xmlns:tns="urn:lp"
+    xmlns:xsd="http://www.w3.org/2001/XMLSchema"
+    xmlns:soap="http://schemas.xmlsoap.org/wsdl/soap/"
+    xmlns="http://schemas.xmlsoap.org/wsdl/">
+  <types>
+    <schema xmlns="http://www.w3.org/2001/XMLSchema">
+      <import namespace="urn:lp" schemaLocation="lp.xsd"/>
+    </schema>
+  </types>
+
+  <message name="login_in">
+    <part name="parameters" element="tns:login" />
+  </message>
+  <message name="login_out">
+    <part name="parameters" element="tns:loginResponse" />
+  </message>
+
+  <portType name="lp_porttype">
+    <operation name="login">
+      <input message="tns:login_in" />
+      <output message="tns:login_out" />
+    </operation>
+  </portType>
+
+  <binding name="lp_binding" type="tns:lp_porttype">
+    <soap:binding transport="http://schemas.xmlsoap.org/soap/http" style="document" />
+    <operation name="login">
+      <soap:operation soapAction="urn:lp:login" style="document" />
+      <input>
+        <soap:body use="literal" />
+      </input>
+      <output>
+        <soap:body use="literal" />
+      </output>
+    </operation>
+  </binding>
+
+  <service name="lp_service">
+    <port name="lp_service_port" binding="tns:lp_binding">
+      <soap:address location="http://localhost:17171/" />
+    </port>
+  </service>
+</definitions>

data/test/wsdl/qualified/lp.xsd

@@ -0,0 +1,26 @@
+<xs:schema xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:lp="urn:lp" targetNamespace="urn:lp" elementFormDefault="unqualified">
+
+  <xs:complexType name="login">
+    <xs:sequence>
+      <xs:element name="username" type="xs:string"/>
+      <xs:element name="password" type="xs:string"/>
+      <xs:element name="timezone" type="xs:string" minOccurs="0" maxOccurs="1"/>
+    </xs:sequence>
+  </xs:complexType>
+
+  <xs:element name="login" type="lp:login"/>
+
+  <xs:complexType name="loginResponse">
+    <xs:sequence>
+      <xs:element name="loginResult">
+        <xs:complexType>
+          <xs:sequence>
+            <xs:element name="sessionID" type="xs:string"/>
+          </xs:sequence>
+        </xs:complexType>
+      </xs:element>
+    </xs:sequence>
+  </xs:complexType>
+
+  <xs:element name="loginResponse" type="lp:loginResponse"/>
+</xs:schema>

data/test/wsdl/qualified/np.wsdl

@@ -0,0 +1,51 @@
+<?xml version="1.0" encoding="utf-8"?>
+<wsdl:definitions xmlns:http="http://schemas.xmlsoap.org/wsdl/http/" xmlns:soap="http://schemas.xmlsoap.org/wsdl/soap/" xmlns:s="http://www.w3.org/2001/XMLSchema" xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/" xmlns:tns="http://www50.brinkster.com/vbfacileinpt/np" xmlns:tm="http://microsoft.com/wsdl/mime/textMatching/" xmlns:mime="http://schemas.xmlsoap.org/wsdl/mime/" targetNamespace="http://www50.brinkster.com/vbfacileinpt/np" xmlns:wsdl="http://schemas.xmlsoap.org/wsdl/">
+  <wsdl:types>
+    <s:schema elementFormDefault="qualified" targetNamespace="http://www50.brinkster.com/vbfacileinpt/np">
+      <s:element name="GetPrimeNumbers">
+        <s:complexType>
+          <s:sequence>
+            <s:element minOccurs="0" maxOccurs="1" form="unqualified" name="Min" type="s:string" />
+            <s:element minOccurs="0" maxOccurs="1" name="Max" type="s:string" />
+          </s:sequence>
+        </s:complexType>
+      </s:element>
+      <s:element name="GetPrimeNumbersResponse">
+        <s:complexType>
+          <s:sequence>
+            <s:element minOccurs="0" maxOccurs="1" name="GetPrimeNumbersResult" type="s:string" />
+          </s:sequence>
+        </s:complexType>
+      </s:element>
+    </s:schema>
+  </wsdl:types>
+  <wsdl:message name="GetPrimeNumbersSoapIn">
+    <wsdl:part name="parameters" element="tns:GetPrimeNumbers" />
+  </wsdl:message>
+  <wsdl:message name="GetPrimeNumbersSoapOut">
+    <wsdl:part name="parameters" element="tns:GetPrimeNumbersResponse" />
+  </wsdl:message>
+  <wsdl:portType name="pnumSoap">
+    <wsdl:operation name="GetPrimeNumbers">
+      <wsdl:input message="tns:GetPrimeNumbersSoapIn" />
+      <wsdl:output message="tns:GetPrimeNumbersSoapOut" />
+    </wsdl:operation>
+  </wsdl:portType>
+  <wsdl:binding name="pnumSoap" type="tns:pnumSoap">
+    <soap:binding transport="http://schemas.xmlsoap.org/soap/http" style="document" />
+    <wsdl:operation name="GetPrimeNumbers">
+      <soap:operation soapAction="http://www50.brinkster.com/vbfacileinpt/np/GetPrimeNumbers" style="document" />
+      <wsdl:input>
+        <soap:body use="literal" />
+      </wsdl:input>
+      <wsdl:output>
+        <soap:body use="literal" />
+      </wsdl:output>
+    </wsdl:operation>
+  </wsdl:binding>
+  <wsdl:service name="pnum">
+    <wsdl:port name="pnumSoap" binding="tns:pnumSoap">
+      <soap:address location="http://www50.brinkster.com/vbfacileinpt/np.asmx" />
+    </wsdl:port>
+  </wsdl:service>
+</wsdl:definitions>

data/test/wsdl/qualified/test_qualified.rb

@@ -0,0 +1,138 @@
+# encoding: ASCII-8BIT
+require 'helper'
+require 'testutil'
+require 'wsdl/soap/wsdl2ruby'
+require 'soap/rpc/standaloneServer'
+require 'soap/wsdlDriver'
+
+
+if defined?(HTTPClient)
+
+module WSDL
+
+
+class TestQualified < Test::Unit::TestCase
+  class Server < ::SOAP::RPC::StandaloneServer
+    Namespace = 'http://www50.brinkster.com/vbfacileinpt/np'
+
+    def on_init
+      add_document_method(
+        self,
+        Namespace + '/GetPrimeNumbers',
+        'GetPrimeNumbers',
+        XSD::QName.new(Namespace, 'GetPrimeNumbers'),
+        XSD::QName.new(Namespace, 'GetPrimeNumbersResponse')
+      )
+    end
+  
+    def GetPrimeNumbers(arg)
+      nil
+    end
+  end
+
+  DIR = File.dirname(File.expand_path(__FILE__))
+  Port = 17171
+
+  def setup
+    setup_server
+    setup_clientdef
+    @client = nil
+  end
+
+  def teardown
+    teardown_server if @server
+    unless $DEBUG
+      File.unlink(pathname('default.rb'))
+      File.unlink(pathname('defaultMappingRegistry.rb'))
+      File.unlink(pathname('defaultDriver.rb'))
+    end
+    @client.reset_stream if @client
+  end
+
+  def setup_server
+    @server = Server.new('Test', "urn:lp", '0.0.0.0', Port)
+    @server.level = Logger::Severity::ERROR
+    @server_thread = TestUtil.start_server_thread(@server)
+  end
+
+  def setup_clientdef
+    backupdir = Dir.pwd
+    begin
+      Dir.chdir(DIR)
+      gen = WSDL::SOAP::WSDL2Ruby.new
+      gen.location = pathname("np.wsdl")
+      gen.basedir = DIR
+      gen.logger.level = Logger::FATAL
+      gen.opt['module_path'] = self.class.to_s.sub(/::[^:]+$/, '')
+      gen.opt['classdef'] = nil
+      gen.opt['mapping_registry'] = nil
+      gen.opt['driver'] = nil
+      gen.opt['force'] = true
+      gen.run
+      require 'default.rb'
+    ensure
+      $".delete('default.rb')
+      Dir.chdir(backupdir)
+    end
+  end
+
+  def teardown_server
+    @server.shutdown
+    @server_thread.kill
+    @server_thread.join
+  end
+
+  def pathname(filename)
+    File.join(DIR, filename)
+  end
+
+  LOGIN_REQUEST_QUALIFIED =
+%q[<?xml version="1.0" encoding="utf-8" ?>
+<env:Envelope xmlns:xsd="http://www.w3.org/2001/XMLSchema"
+    xmlns:env="http://schemas.xmlsoap.org/soap/envelope/"
+    xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
+  <env:Body>
+    <n1:GetPrimeNumbers xmlns:n1="http://www50.brinkster.com/vbfacileinpt/np">
+      <Min>2</Min>
+      <n1:Max>10</n1:Max>
+    </n1:GetPrimeNumbers>
+  </env:Body>
+</env:Envelope>]
+
+  def test_wsdl
+    wsdl = File.join(DIR, 'np.wsdl')
+    @client = nil
+    backupdir = Dir.pwd
+    begin
+      Dir.chdir(DIR)
+      @client = ::SOAP::WSDLDriverFactory.new(wsdl).create_rpc_driver
+    ensure
+      Dir.chdir(backupdir)
+    end
+    @client.endpoint_url = "http://localhost:#{Port}/"
+    @client.wiredump_dev = str = ''
+    @client.GetPrimeNumbers(:Min => 2, :Max => 10)
+    assert_xml_equal(LOGIN_REQUEST_QUALIFIED, parse_requestxml(str),
+      [LOGIN_REQUEST_QUALIFIED, parse_requestxml(str)].join("\n\n"))
+  end
+
+  include ::SOAP
+  def test_naive
+    TestUtil.require(DIR, 'defaultDriver.rb', 'defaultMappingRegistry.rb', 'default.rb')
+    @client = PnumSoap.new("http://localhost:#{Port}/")
+
+    @client.wiredump_dev = str = ''
+    @client.getPrimeNumbers(GetPrimeNumbers.new(2, 10))
+    assert_xml_equal(LOGIN_REQUEST_QUALIFIED, parse_requestxml(str),
+      [LOGIN_REQUEST_QUALIFIED, parse_requestxml(str)].join("\n\n"))
+  end
+
+  def parse_requestxml(str)
+    str.split(/\r?\n\r?\n/)[3]
+  end
+end
+
+
+end
+
+end

data/test/wsdl/qualified/test_unqualified.rb

@@ -0,0 +1,139 @@
+# encoding: ASCII-8BIT
+require 'helper'
+require 'testutil'
+require 'wsdl/soap/wsdl2ruby'
+require 'soap/rpc/standaloneServer'
+require 'soap/wsdlDriver'
+
+
+if defined?(HTTPClient)
+
+module WSDL
+
+
+class TestUnqualified < Test::Unit::TestCase
+  class Server < ::SOAP::RPC::StandaloneServer
+    Namespace = 'urn:lp'
+
+    def on_init
+      add_document_method(
+        self,
+        Namespace + ':login',
+        'login',
+        XSD::QName.new(Namespace, 'login'),
+        XSD::QName.new(Namespace, 'loginResponse')
+      )
+    end
+  
+    def login(arg)
+      nil
+    end
+  end
+
+  DIR = File.dirname(File.expand_path(__FILE__))
+  Port = 17171
+
+  def setup
+    setup_server
+    setup_clientdef
+    @client = nil
+  end
+
+  def teardown
+    teardown_server if @server
+    unless $DEBUG
+      File.unlink(pathname('lp.rb'))
+      File.unlink(pathname('lpMappingRegistry.rb'))
+      File.unlink(pathname('lpDriver.rb'))
+    end
+    @client.reset_stream if @client
+  end
+
+  def setup_server
+    @server = Server.new('Test', "urn:lp", '0.0.0.0', Port)
+    @server.level = Logger::Severity::ERROR
+    @server_thread = TestUtil.start_server_thread(@server)
+  end
+
+  def setup_clientdef
+    backupdir = Dir.pwd
+    begin
+      Dir.chdir(DIR)
+      gen = WSDL::SOAP::WSDL2Ruby.new
+      gen.location = pathname("lp.wsdl")
+      gen.basedir = DIR
+      gen.logger.level = Logger::FATAL
+      gen.opt['module_path'] = self.class.to_s.sub(/::[^:]+$/, '')
+      gen.opt['classdef'] = nil
+      gen.opt['mapping_registry'] = nil
+      gen.opt['driver'] = nil
+      gen.opt['force'] = true
+      gen.run
+      require 'lp.rb'
+    ensure
+      $".delete('lp.rb')
+      Dir.chdir(backupdir)
+    end
+  end
+
+  def teardown_server
+    @server.shutdown
+    @server_thread.kill
+    @server_thread.join
+  end
+
+  def pathname(filename)
+    File.join(DIR, filename)
+  end
+
+  LOGIN_REQUEST_QUALIFIED_UNTYPED =
+%q[<?xml version="1.0" encoding="utf-8" ?>
+<env:Envelope xmlns:xsd="http://www.w3.org/2001/XMLSchema"
+    xmlns:env="http://schemas.xmlsoap.org/soap/envelope/"
+    xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
+  <env:Body>
+    <n1:login xmlns:n1="urn:lp">
+      <username>NaHi</username>
+      <password>passwd</password>
+      <timezone>JST</timezone>
+    </n1:login>
+  </env:Body>
+</env:Envelope>]
+
+  def test_wsdl
+    wsdl = File.join(DIR, 'lp.wsdl')
+    @client = nil
+    backupdir = Dir.pwd
+    begin
+      Dir.chdir(DIR)
+      @client = ::SOAP::WSDLDriverFactory.new(wsdl).create_rpc_driver
+    ensure
+      Dir.chdir(backupdir)
+    end
+    @client.endpoint_url = "http://localhost:#{Port}/"
+    @client.wiredump_dev = str = ''
+    @client.login(:timezone => 'JST', :password => 'passwd',
+      :username => 'NaHi')
+    # untyped because of passing a Hash
+    assert_xml_equal(LOGIN_REQUEST_QUALIFIED_UNTYPED, parse_requestxml(str))
+  end
+
+  include ::SOAP
+  def test_naive
+    TestUtil.require(DIR, 'lpDriver.rb', 'lpMappingRegistry.rb', 'lp.rb')
+    @client = Lp_porttype.new("http://localhost:#{Port}/")
+
+    @client.wiredump_dev = str = ''
+    @client.login(Login.new('NaHi', 'passwd', 'JST'))
+    assert_xml_equal(LOGIN_REQUEST_QUALIFIED_UNTYPED, parse_requestxml(str))
+  end
+
+  def parse_requestxml(str)
+    str.split(/\r?\n\r?\n/)[3]
+  end
+end
+
+
+end
+
+end

data/test/wsdl/raa/RAAService.rb

@@ -0,0 +1,126 @@
+#!/usr/bin/env ruby
+# encoding: ASCII-8BIT
+require 'soap/rpc/standaloneServer'
+
+module WSDL; module RAA
+
+class RAABaseServicePortTypeServer
+  def getAllListings
+    ["ruby", "soap4r"]
+  end
+
+  def getProductTree
+    raise NotImplementedError.new
+  end
+  
+  def getInfoFromCategory(category)
+    raise NotImplementedError.new
+  end
+  
+  def getModifiedInfoSince(timeInstant)
+    raise NotImplementedError.new
+  end
+  
+  def getInfoFromName(productName)
+    Info.new(
+      Category.new("major", "minor"), 
+      Product.new(123, productName, "short description", "version", "status",
+        URI.parse("http://example.com/homepage"),
+        URI.parse("http://example.com/download"),
+        "license", "description"),
+      Owner.new(456, URI.parse("mailto:email@example.com"), "name"),
+      Time.now,
+      Time.now)
+  end
+  
+  def getInfoFromOwnerId(ownerId)
+    raise NotImplementedError.new
+  end
+
+  Methods = [
+    [ XSD::QName.new("http://www.ruby-lang.org/xmlns/soap/interface/RAA/0.0.2/", "getAllListings"),
+      "",
+      "getAllListings",
+      [ [:retval, "return", ["WSDL::RAA::C_String[]", "http://www.ruby-lang.org/xmlns/soap/interface/RAA/0.0.2/", "StringArray"]] ],
+      { :request_style =>  :rpc, :request_use =>  :encoded,
+        :response_style => :rpc, :response_use => :encoded,
+        :faults => {} }
+    ],
+    [ XSD::QName.new("http://www.ruby-lang.org/xmlns/soap/interface/RAA/0.0.2/", "getProductTree"),
+      "",
+      "getProductTree",
+      [ [:retval, "return", ["Hash", "http://xml.apache.org/xml-soap", "Map"]] ],
+      { :request_style =>  :rpc, :request_use =>  :encoded,
+        :response_style => :rpc, :response_use => :encoded,
+        :faults => {} }
+    ],
+    [ XSD::QName.new("http://www.ruby-lang.org/xmlns/soap/interface/RAA/0.0.2/", "getInfoFromCategory"),
+      "",
+      "getInfoFromCategory",
+      [ [:in, "category", ["WSDL::RAA::Category", "http://www.ruby-lang.org/xmlns/soap/interface/RAA/0.0.2/", "Category"]],
+        [:retval, "return", ["WSDL::RAA::Info[]", "http://www.ruby-lang.org/xmlns/soap/interface/RAA/0.0.2/", "InfoArray"]] ],
+      { :request_style =>  :rpc, :request_use =>  :encoded,
+        :response_style => :rpc, :response_use => :encoded,
+        :faults => {} }
+    ],
+    [ XSD::QName.new("http://www.ruby-lang.org/xmlns/soap/interface/RAA/0.0.2/", "getModifiedInfoSince"),
+      "",
+      "getModifiedInfoSince",
+      [ [:in, "timeInstant", ["::SOAP::SOAPDateTime"]],
+        [:retval, "return", ["WSDL::RAA::Info[]", "http://www.ruby-lang.org/xmlns/soap/interface/RAA/0.0.2/", "InfoArray"]] ],
+      { :request_style =>  :rpc, :request_use =>  :encoded,
+        :response_style => :rpc, :response_use => :encoded,
+        :faults => {} }
+    ],
+    [ XSD::QName.new("http://www.ruby-lang.org/xmlns/soap/interface/RAA/0.0.2/", "getInfoFromName"),
+      "",
+      "getInfoFromName",
+      [ [:in, "productName", ["::SOAP::SOAPString"]],
+        [:retval, "return", ["WSDL::RAA::Info", "http://www.ruby-lang.org/xmlns/soap/interface/RAA/0.0.2/", "Info"]] ],
+      { :request_style =>  :rpc, :request_use =>  :encoded,
+        :response_style => :rpc, :response_use => :encoded,
+        :faults => {} }
+    ],
+    [ XSD::QName.new("http://www.ruby-lang.org/xmlns/soap/interface/RAA/0.0.2/", "getInfoFromOwnerId"),
+      "",
+      "getInfoFromOwnerId",
+      [ [:in, "ownerId", ["::SOAP::SOAPInt"]],
+        [:retval, "return", ["WSDL::RAA::Info[]", "http://www.ruby-lang.org/xmlns/soap/interface/RAA/0.0.2/", "InfoArray"]] ],
+      { :request_style =>  :rpc, :request_use =>  :encoded,
+        :response_style => :rpc, :response_use => :encoded,
+        :faults => {} }
+    ]
+  ]
+end
+
+end; end
+
+module WSDL; module RAA
+
+class RAABaseServicePortTypeApp < ::SOAP::RPC::StandaloneServer
+  def initialize(*arg)
+    super(*arg)
+    servant = WSDL::RAA::RAABaseServicePortTypeServer.new
+    WSDL::RAA::RAABaseServicePortType::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 = RAAMappingRegistry::EncodedRegistry
+    self.literal_mapping_registry = RAAMappingRegistry::LiteralRegistry
+  end
+end
+
+end; end
+
+if $0 == __FILE__
+  # Change listen port.
+  server = WSDL::RAA::RAABaseServicePortTypeApp.new('app', nil, '0.0.0.0', 10080)
+  trap(:INT) do
+    server.shutdown
+  end
+  server.start
+end