rtiss_soap4r 2.1.0 → 3.0.0.beta

data/test/wsdl/qualified/test_unqualified.rb

@@ -0,0 +1,138 @@
+require 'test/unit'
+require 'wsdl/soap/wsdl2ruby'
+require 'soap/rpc/standaloneServer'
+require 'soap/wsdlDriver'
+require 'test_helper'
+
+
+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 = TestUtil.get_free_port
+
+  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'] = "WSDL"
+      gen.opt['classdef'] = nil
+      gen.opt['mapping_registry'] = nil
+      gen.opt['driver'] = nil
+      gen.opt['force'] = true
+      gen.run
+      TestUtil.require(DIR, '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:xsi="http://www.w3.org/2001/XMLSchema-instance"
+    xmlns:xsd="http://www.w3.org/2001/XMLSchema"
+    xmlns:env="http://schemas.xmlsoap.org/soap/envelope/">
+  <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_equal(LOGIN_REQUEST_QUALIFIED_UNTYPED, parse_requestxml(str))
+  end
+
+  include ::SOAP
+  def test_naive
+    TestUtil.require(DIR, 'lpDriver.rb', 'lpMappingRegistry.rb', 'lp.rb')
+    @client = WSDL::Lp_porttype.new("http://localhost:#{Port}/")
+
+    @client.wiredump_dev = str = ''
+    @client.login(Login.new('NaHi', 'passwd', 'JST'))
+    assert_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,125 @@
+#!/usr/bin/env ruby
+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

data/test/wsdl/raa/README.txt

@@ -0,0 +1,8 @@
+RAAServant.rb: based on the file which is generated with the following command;
+  bin/wsdl2ruby.rb --wsdl raa.wsdl --servant_skelton --force
+
+RAAService.rb: generated with the following command;
+  bin/wsdl2ruby.rb --wsdl raa.wsdl --standalone_server_stub --force
+
+RAA.rb: generated with the following command;
+  bin/wsdl2ruby.rb --wsdl raa.wsdl --classdef --force

data/test/wsdl/raa/expectedClassDef.rb

@@ -0,0 +1,100 @@
+require 'xsd/qname'
+
+module WSDL; module RAA
+
+
+# {http://www.ruby-lang.org/xmlns/soap/interface/RAA/0.0.2/}Category
+#   major - SOAP::SOAPString
+#   minor - SOAP::SOAPString
+class Category
+  attr_accessor :major
+  attr_accessor :minor
+
+  def initialize(major = nil, minor = nil)
+    @major = major
+    @minor = minor
+  end
+end
+
+# {http://www.ruby-lang.org/xmlns/soap/interface/RAA/0.0.2/}Product
+#   id - SOAP::SOAPInt
+#   name - SOAP::SOAPString
+#   short_description - SOAP::SOAPString
+#   version - SOAP::SOAPString
+#   status - SOAP::SOAPString
+#   homepage - SOAP::SOAPAnyURI
+#   download - SOAP::SOAPAnyURI
+#   license - SOAP::SOAPString
+#   description - SOAP::SOAPString
+class Product
+  attr_accessor :id
+  attr_accessor :name
+  attr_accessor :short_description
+  attr_accessor :version
+  attr_accessor :status
+  attr_accessor :homepage
+  attr_accessor :download
+  attr_accessor :license
+  attr_accessor :description
+
+  def initialize(id = nil, name = nil, short_description = nil, version = nil, status = nil, homepage = nil, download = nil, license = nil, description = nil)
+    @id = id
+    @name = name
+    @short_description = short_description
+    @version = version
+    @status = status
+    @homepage = homepage
+    @download = download
+    @license = license
+    @description = description
+  end
+end
+
+# {http://www.ruby-lang.org/xmlns/soap/interface/RAA/0.0.2/}Owner
+#   id - SOAP::SOAPInt
+#   email - SOAP::SOAPAnyURI
+#   name - SOAP::SOAPString
+class Owner
+  attr_accessor :id
+  attr_accessor :email
+  attr_accessor :name
+
+  def initialize(id = nil, email = nil, name = nil)
+    @id = id
+    @email = email
+    @name = name
+  end
+end
+
+# {http://www.ruby-lang.org/xmlns/soap/interface/RAA/0.0.2/}Info
+#   category - WSDL::RAA::Category
+#   product - WSDL::RAA::Product
+#   owner - WSDL::RAA::Owner
+#   created - SOAP::SOAPDateTime
+#   updated - SOAP::SOAPDateTime
+class Info
+  attr_accessor :category
+  attr_accessor :product
+  attr_accessor :owner
+  attr_accessor :created
+  attr_accessor :updated
+
+  def initialize(category = nil, product = nil, owner = nil, created = nil, updated = nil)
+    @category = category
+    @product = product
+    @owner = owner
+    @created = created
+    @updated = updated
+  end
+end
+
+# {http://www.ruby-lang.org/xmlns/soap/interface/RAA/0.0.2/}InfoArray
+class InfoArray < ::Array
+end
+
+# {http://www.ruby-lang.org/xmlns/soap/interface/RAA/0.0.2/}StringArray
+class StringArray < ::Array
+end
+
+
+end; end

data/test/wsdl/raa/expectedDriver.rb

@@ -0,0 +1,96 @@
+require_relative 'expectedMappingRegistry.rb'
+require 'soap/rpc/driver'
+require_relative "#{File.expand_path(".")}/sample/showcase/soap/raa2.4/raa.rb"
+
+module WSDL::RAA
+
+class RAABaseServicePortType < ::SOAP::RPC::Driver
+  DefaultEndpointUrl = "http://raa.ruby-lang.org/soap/1.0.2/"
+  NsC_002 = "http://www.ruby-lang.org/xmlns/soap/interface/RAA/0.0.2/"
+
+  Methods = [
+    [ XSD::QName.new(NsC_002, "getAllListings"),
+      "",
+      "getAllListings",
+      [ [:retval, "return", ["WSDL::RAA::StringArray", "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(NsC_002, "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(NsC_002, "getInfoFromCategory"),
+      "",
+      "getInfoFromCategory",
+      [ [:in, "category", ["WSDL::RAA::Category", "http://www.ruby-lang.org/xmlns/soap/interface/RAA/0.0.2/", "Category"]],
+        [:retval, "return", ["WSDL::RAA::InfoArray", "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(NsC_002, "getModifiedInfoSince"),
+      "",
+      "getModifiedInfoSince",
+      [ [:in, "timeInstant", ["::SOAP::SOAPDateTime"]],
+        [:retval, "return", ["WSDL::RAA::InfoArray", "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(NsC_002, "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(NsC_002, "getInfoFromOwnerId"),
+      "",
+      "getInfoFromOwnerId",
+      [ [:in, "ownerId", ["::SOAP::SOAPInt"]],
+        [:retval, "return", ["WSDL::RAA::InfoArray", "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 => {} }
+    ]
+  ]
+
+  def initialize(endpoint_url = nil)
+    endpoint_url ||= DefaultEndpointUrl
+    super(endpoint_url, nil)
+    self.mapping_registry = RAAMappingRegistry::EncodedRegistry
+    self.literal_mapping_registry = RAAMappingRegistry::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
+
+
+end

data/test/wsdl/raa/expectedMappingRegistry.rb

@@ -0,0 +1,121 @@
+require_relative 'RAA'
+require 'soap/mapping'
+
+module WSDL; module RAA
+
+module RAAMappingRegistry
+  EncodedRegistry = ::SOAP::Mapping::EncodedRegistry.new
+  LiteralRegistry = ::SOAP::Mapping::LiteralRegistry.new
+  NsC_002 = "http://www.ruby-lang.org/xmlns/soap/interface/RAA/0.0.2/"
+
+  EncodedRegistry.register(
+    :class => WSDL::RAA::Category,
+    :schema_type => XSD::QName.new(NsC_002, "Category"),
+    :schema_element => [
+      ["major", ["SOAP::SOAPString", XSD::QName.new(nil, "major")]],
+      ["minor", ["SOAP::SOAPString", XSD::QName.new(nil, "minor")]]
+    ]
+  )
+
+  EncodedRegistry.register(
+    :class => WSDL::RAA::Product,
+    :schema_type => XSD::QName.new(NsC_002, "Product"),
+    :schema_element => [
+      ["id", ["SOAP::SOAPInt", XSD::QName.new(nil, "id")]],
+      ["name", ["SOAP::SOAPString", XSD::QName.new(nil, "name")]],
+      ["short_description", ["SOAP::SOAPString", XSD::QName.new(nil, "short_description")]],
+      ["version", ["SOAP::SOAPString", XSD::QName.new(nil, "version")]],
+      ["status", ["SOAP::SOAPString", XSD::QName.new(nil, "status")]],
+      ["homepage", ["SOAP::SOAPAnyURI", XSD::QName.new(nil, "homepage")]],
+      ["download", ["SOAP::SOAPAnyURI", XSD::QName.new(nil, "download")]],
+      ["license", ["SOAP::SOAPString", XSD::QName.new(nil, "license")]],
+      ["description", ["SOAP::SOAPString", XSD::QName.new(nil, "description")]]
+    ]
+  )
+
+  EncodedRegistry.register(
+    :class => WSDL::RAA::Owner,
+    :schema_type => XSD::QName.new(NsC_002, "Owner"),
+    :schema_element => [
+      ["id", ["SOAP::SOAPInt", XSD::QName.new(nil, "id")]],
+      ["email", ["SOAP::SOAPAnyURI", XSD::QName.new(nil, "email")]],
+      ["name", ["SOAP::SOAPString", XSD::QName.new(nil, "name")]]
+    ]
+  )
+
+  EncodedRegistry.register(
+    :class => WSDL::RAA::Info,
+    :schema_type => XSD::QName.new(NsC_002, "Info"),
+    :schema_element => [
+      ["category", ["WSDL::RAA::Category", XSD::QName.new(nil, "category")]],
+      ["product", ["WSDL::RAA::Product", XSD::QName.new(nil, "product")]],
+      ["owner", ["WSDL::RAA::Owner", XSD::QName.new(nil, "owner")]],
+      ["created", ["SOAP::SOAPDateTime", XSD::QName.new(nil, "created")]],
+      ["updated", ["SOAP::SOAPDateTime", XSD::QName.new(nil, "updated")]]
+    ]
+  )
+
+  EncodedRegistry.set(
+    WSDL::RAA::InfoArray,
+    ::SOAP::SOAPArray,
+    ::SOAP::Mapping::EncodedRegistry::TypedArrayFactory,
+    { :type => XSD::QName.new(NsC_002, "Info") }
+  )
+
+  EncodedRegistry.set(
+    WSDL::RAA::StringArray,
+    ::SOAP::SOAPArray,
+    ::SOAP::Mapping::EncodedRegistry::TypedArrayFactory,
+    { :type => XSD::QName.new("http://www.w3.org/2001/XMLSchema", "string") }
+  )
+
+  LiteralRegistry.register(
+    :class => WSDL::RAA::Category,
+    :schema_type => XSD::QName.new(NsC_002, "Category"),
+    :schema_element => [
+      ["major", ["SOAP::SOAPString", XSD::QName.new(nil, "major")]],
+      ["minor", ["SOAP::SOAPString", XSD::QName.new(nil, "minor")]]
+    ]
+  )
+
+  LiteralRegistry.register(
+    :class => WSDL::RAA::Product,
+    :schema_type => XSD::QName.new(NsC_002, "Product"),
+    :schema_element => [
+      ["id", ["SOAP::SOAPInt", XSD::QName.new(nil, "id")]],
+      ["name", ["SOAP::SOAPString", XSD::QName.new(nil, "name")]],
+      ["short_description", ["SOAP::SOAPString", XSD::QName.new(nil, "short_description")]],
+      ["version", ["SOAP::SOAPString", XSD::QName.new(nil, "version")]],
+      ["status", ["SOAP::SOAPString", XSD::QName.new(nil, "status")]],
+      ["homepage", ["SOAP::SOAPAnyURI", XSD::QName.new(nil, "homepage")]],
+      ["download", ["SOAP::SOAPAnyURI", XSD::QName.new(nil, "download")]],
+      ["license", ["SOAP::SOAPString", XSD::QName.new(nil, "license")]],
+      ["description", ["SOAP::SOAPString", XSD::QName.new(nil, "description")]]
+    ]
+  )
+
+  LiteralRegistry.register(
+    :class => WSDL::RAA::Owner,
+    :schema_type => XSD::QName.new(NsC_002, "Owner"),
+    :schema_element => [
+      ["id", ["SOAP::SOAPInt", XSD::QName.new(nil, "id")]],
+      ["email", ["SOAP::SOAPAnyURI", XSD::QName.new(nil, "email")]],
+      ["name", ["SOAP::SOAPString", XSD::QName.new(nil, "name")]]
+    ]
+  )
+
+  LiteralRegistry.register(
+    :class => WSDL::RAA::Info,
+    :schema_type => XSD::QName.new(NsC_002, "Info"),
+    :schema_element => [
+      ["category", ["WSDL::RAA::Category", XSD::QName.new(nil, "category")]],
+      ["product", ["WSDL::RAA::Product", XSD::QName.new(nil, "product")]],
+      ["owner", ["WSDL::RAA::Owner", XSD::QName.new(nil, "owner")]],
+      ["created", ["SOAP::SOAPDateTime", XSD::QName.new(nil, "created")]],
+      ["updated", ["SOAP::SOAPDateTime", XSD::QName.new(nil, "updated")]]
+    ]
+  )
+
+end
+
+end; end