soap4r 1.5.7 → 1.5.8

data/test/wsdl/raa/expectedDriver.rb

@@ -0,0 +1,96 @@
+require 'RAA.rb'
+require 'RAAMappingRegistry.rb'
+require 'soap/rpc/driver'
+
+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 'RAA.rb'
+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

data/test/wsdl/raa/test_raa.rb

@@ -1,8 +1,7 @@
 require 'test/unit'
 require 'soap/wsdlDriver'
-require 'RAA.rb'
-require 'RAAServant.rb'
-require 'RAAService.rb'
+require 'wsdl/soap/wsdl2ruby'
+require File.join(File.dirname(File.expand_path(__FILE__)), '..', '..', 'testutil.rb')
 
 
 module WSDL
@@ -15,11 +14,27 @@ class TestRAA < Test::Unit::TestCase
   Port = 17171
 
   def setup
+    setup_stub
     setup_server
     setup_client
   end
 
+  def setup_stub
+    gen = WSDL::SOAP::WSDL2Ruby.new
+    gen.location = pathname("raa.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
+    TestUtil.require(DIR, 'RAADriver.rb', 'RAAMappingRegistry.rb', 'RAA.rb')
+  end
+
   def setup_server
+    require pathname('RAAService.rb')
     @server = RAABaseServicePortTypeApp.new('RAA server', nil, '0.0.0.0', Port)
     @server.level = Logger::Severity::ERROR
     @t = Thread.new {
@@ -32,11 +47,19 @@ class TestRAA < Test::Unit::TestCase
     wsdl = File.join(DIR, 'raa.wsdl')
     @raa = ::SOAP::WSDLDriverFactory.new(wsdl).create_rpc_driver
     @raa.endpoint_url = "http://localhost:#{Port}/"
+    @raa.wiredump_dev = STDOUT if $DEBUG
+    @raa.mapping_registry = RAAMappingRegistry::EncodedRegistry
+    @raa.literal_mapping_registry = RAAMappingRegistry::LiteralRegistry
   end
 
   def teardown
-    teardown_server
-    teardown_client
+    teardown_server if @server
+    teardown_client if @client
+    unless $DEBUG
+      File.unlink(pathname('RAA.rb'))
+      File.unlink(pathname('RAAMappingRegistry.rb'))
+      File.unlink(pathname('RAADriver.rb'))
+    end
   end
 
   def teardown_server
@@ -49,14 +72,28 @@ class TestRAA < Test::Unit::TestCase
     @raa.reset_stream
   end
 
+  def test_stubgeneration
+    compare("expectedClassDef.rb", "RAA.rb")
+    compare("expectedMappingRegistry.rb", "RAAMappingRegistry.rb")
+    compare("expectedDriver.rb", "RAADriver.rb")
+  end
+
   def test_raa
-    assert_equal(["ruby", "soap4r"], @raa.getAllListings)
+    do_test_raa(@raa)
+  end
 
-    info = @raa.getInfoFromName("SOAP4R")
-    assert_equal(::Info, info.class)
-    assert_equal(::Category, info.category.class)
-    assert_equal(::Product, info.product.class)
-    assert_equal(::Owner, info.owner.class)
+  def test_stub
+    client = RAABaseServicePortType.new("http://localhost:#{Port}/")
+    do_test_raa(client)
+  end
+
+  def do_test_raa(client)
+    assert_equal(["ruby", "soap4r"], client.getAllListings)
+    info = client.getInfoFromName("SOAP4R")
+    assert_equal(Info, info.class)
+    assert_equal(Category, info.category.class)
+    assert_equal(Product, info.product.class)
+    assert_equal(Owner, info.owner.class)
     assert_equal("major", info.category.major)
     assert_equal("minor", info.category.minor)
     assert_equal(123, info.product.id)
@@ -75,14 +112,12 @@ class TestRAA < Test::Unit::TestCase
     assert(!info.updated.nil?)
   end
 
-  def foo
-    p @raa.getInfoFromCategory(Category.new("Library", "XML"))
-    t = Time.at(Time.now.to_i - 24 * 3600)
-    p @raa.getModifiedInfoSince(t)
-    p @raa.getModifiedInfoSince(DateTime.new(t.year, t.mon, t.mday, t.hour, t.min, t.sec))
-    p o.type
-    p o.owner.name
-    p o
+  def compare(expected, actual)
+    TestUtil.filecompare(pathname(expected), pathname(actual))
+  end
+
+  def pathname(filename)
+    File.join(DIR, filename)
   end
 end
 

data/test/wsdl/ref/expectedDriver.rb

@@ -1,8 +1,8 @@
 require 'product.rb'
 require 'productMappingRegistry.rb'
+require 'soap/rpc/driver'
 
 module WSDL::Ref
-require 'soap/rpc/driver'
 
 class Ref_porttype < ::SOAP::RPC::Driver
   DefaultEndpointUrl = "http://localhost:17171/"

data/test/wsdl/ref/expectedProduct.rb

@@ -1,6 +1,11 @@
 require 'xsd/qname'
 
+module WSDL; module Ref
+
+
 # {urn:ref}Product
+#   name - SOAP::SOAPString
+#   rating - SOAP::SOAPString
 class Product
   attr_accessor :name
   attr_accessor :rating
@@ -12,13 +17,20 @@ class Product
 end
 
 # {urn:ref}Comment
+#   xmlattr_msgid - SOAP::SOAPString
 class Comment < ::String
+  AttrMsgid = XSD::QName.new(nil, "msgid")
+
+  def __xmlattr
+    @__xmlattr ||= {}
+  end
+
   def xmlattr_msgid
-    (@__xmlattr ||= {})[XSD::QName.new(nil, "msgid")]
+    __xmlattr[AttrMsgid]
   end
 
   def xmlattr_msgid=(value)
-    (@__xmlattr ||= {})[XSD::QName.new(nil, "msgid")] = value
+    __xmlattr[AttrMsgid] = value
   end
 
   def initialize(*arg)
@@ -28,13 +40,20 @@ class Comment < ::String
 end
 
 # {urn:ref}_point
+#   xmlattr_unit - SOAP::SOAPString
 class C__point < ::String
+  AttrUnit = XSD::QName.new(nil, "unit")
+
+  def __xmlattr
+    @__xmlattr ||= {}
+  end
+
   def xmlattr_unit
-    (@__xmlattr ||= {})[XSD::QName.new(nil, "unit")]
+    __xmlattr[AttrUnit]
   end
 
   def xmlattr_unit=(value)
-    (@__xmlattr ||= {})[XSD::QName.new(nil, "unit")] = value
+    __xmlattr[AttrUnit] = value
   end
 
   def initialize(*arg)
@@ -44,13 +63,20 @@ class C__point < ::String
 end
 
 # {urn:ref}Document
+#   xmlattr_ID - SOAP::SOAPString
 class Document < ::String
+  AttrID = XSD::QName.new(nil, "ID")
+
+  def __xmlattr
+    @__xmlattr ||= {}
+  end
+
   def xmlattr_ID
-    (@__xmlattr ||= {})[XSD::QName.new(nil, "ID")]
+    __xmlattr[AttrID]
   end
 
   def xmlattr_ID=(value)
-    (@__xmlattr ||= {})[XSD::QName.new(nil, "ID")] = value
+    __xmlattr[AttrID] = value
   end
 
   def initialize(*arg)
@@ -60,24 +86,35 @@ class Document < ::String
 end
 
 # {urn:ref}DerivedChoice_BaseSimpleContent
+#   varStringExt - SOAP::SOAPString
+#   varFloatExt - SOAP::SOAPFloat
+#   xmlattr_ID - SOAP::SOAPString
+#   xmlattr_attrStringExt - SOAP::SOAPString
 class DerivedChoice_BaseSimpleContent < Document
+  AttrAttrStringExt = XSD::QName.new(nil, "attrStringExt")
+  AttrID = XSD::QName.new(nil, "ID")
+
   attr_accessor :varStringExt
   attr_accessor :varFloatExt
 
+  def __xmlattr
+    @__xmlattr ||= {}
+  end
+
   def xmlattr_ID
-    (@__xmlattr ||= {})[XSD::QName.new(nil, "ID")]
+    __xmlattr[AttrID]
   end
 
   def xmlattr_ID=(value)
-    (@__xmlattr ||= {})[XSD::QName.new(nil, "ID")] = value
+    __xmlattr[AttrID] = value
   end
 
   def xmlattr_attrStringExt
-    (@__xmlattr ||= {})[XSD::QName.new(nil, "attrStringExt")]
+    __xmlattr[AttrAttrStringExt]
   end
 
   def xmlattr_attrStringExt=(value)
-    (@__xmlattr ||= {})[XSD::QName.new(nil, "attrStringExt")] = value
+    __xmlattr[AttrAttrStringExt] = value
   end
 
   def initialize(varStringExt = nil, varFloatExt = nil)
@@ -95,7 +132,41 @@ class Rating < ::String
 end
 
 # {urn:ref}Product-Bag
+#   bag - WSDL::Ref::Product
+#   rating - SOAP::SOAPString
+#   comment_1 - WSDL::Ref::ProductBag::Comment_1
+#   comment_2 - WSDL::Ref::Comment
+#   m___point - WSDL::Ref::C__point
+#   xmlattr_version - SOAP::SOAPString
+#   xmlattr_yesno - SOAP::SOAPString
 class ProductBag
+  AttrVersion = XSD::QName.new("urn:ref", "version")
+  AttrYesno = XSD::QName.new("urn:ref", "yesno")
+
+  # inner class for member: Comment_1
+  # {}Comment_1
+  #   xmlattr_msgid - SOAP::SOAPString
+  class Comment_1 < ::String
+    AttrMsgid = XSD::QName.new(nil, "msgid")
+
+    def __xmlattr
+      @__xmlattr ||= {}
+    end
+
+    def xmlattr_msgid
+      __xmlattr[AttrMsgid]
+    end
+
+    def xmlattr_msgid=(value)
+      __xmlattr[AttrMsgid] = value
+    end
+
+    def initialize(*arg)
+      super
+      @__xmlattr = {}
+    end
+  end
+
   attr_accessor :bag
   attr_accessor :rating
   attr_accessor :comment_1
@@ -109,20 +180,24 @@ class ProductBag
     @v___point = value
   end
 
+  def __xmlattr
+    @__xmlattr ||= {}
+  end
+
   def xmlattr_version
-    (@__xmlattr ||= {})[XSD::QName.new("urn:ref", "version")]
+    __xmlattr[AttrVersion]
   end
 
   def xmlattr_version=(value)
-    (@__xmlattr ||= {})[XSD::QName.new("urn:ref", "version")] = value
+    __xmlattr[AttrVersion] = value
   end
 
   def xmlattr_yesno
-    (@__xmlattr ||= {})[XSD::QName.new("urn:ref", "yesno")]
+    __xmlattr[AttrYesno]
   end
 
   def xmlattr_yesno=(value)
-    (@__xmlattr ||= {})[XSD::QName.new("urn:ref", "yesno")] = value
+    __xmlattr[AttrYesno] = value
   end
 
   def initialize(bag = [], rating = [], comment_1 = [], comment_2 = [], v___point = nil)
@@ -136,13 +211,20 @@ class ProductBag
 end
 
 # {urn:ref}Creator
+#   xmlattr_Role - SOAP::SOAPString
 class Creator < ::String
+  AttrRole = XSD::QName.new(nil, "Role")
+
+  def __xmlattr
+    @__xmlattr ||= {}
+  end
+
   def xmlattr_Role
-    (@__xmlattr ||= {})[XSD::QName.new(nil, "Role")]
+    __xmlattr[AttrRole]
   end
 
   def xmlattr_Role=(value)
-    (@__xmlattr ||= {})[XSD::QName.new(nil, "Role")] = value
+    __xmlattr[AttrRole] = value
   end
 
   def initialize(*arg)
@@ -156,3 +238,6 @@ class Yesno < ::String
   N = Yesno.new("N")
   Y = Yesno.new("Y")
 end
+
+
+end; end