soap4r 1.5.7 → 1.5.8

data/test/wsdl/anonymous/test_anonymous.rb

@@ -0,0 +1,130 @@
+require 'test/unit'
+require 'wsdl/soap/wsdl2ruby'
+require 'soap/rpc/standaloneServer'
+require 'soap/wsdlDriver'
+require File.join(File.dirname(File.expand_path(__FILE__)), '..', '..', 'testutil.rb')
+
+
+if defined?(HTTPClient)
+
+module WSDL; module Anonymous
+
+
+class TestAnonymous < 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')
+      )
+      add_document_method(
+        self,
+        Namespace + ':echo',
+        'echo',
+        XSD::QName.new(Namespace, 'Pack'),
+        XSD::QName.new(Namespace, 'Envelope')
+      )
+      self.literal_mapping_registry = LpMappingRegistry::LiteralRegistry
+    end
+  
+    def login(arg)
+      req = arg.loginRequest
+      sess = [req.username, req.password, req.timezone].join
+      LoginResponse.new(LoginResponse::LoginResult.new(sess))
+    end
+
+    def echo(pack)
+      raise unless pack.class == Pack
+      raise unless pack.header.class == Pack::Header
+      Envelope.new(Envelope::Header.new(pack.header.header1))
+    end
+  end
+
+  DIR = File.dirname(File.expand_path(__FILE__))
+  Port = 17171
+
+  def setup
+    setup_clientdef
+    setup_server
+    @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
+    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
+    TestUtil.require(DIR, 'lpDriver.rb', 'lpMappingRegistry.rb', 'lp.rb')
+  end
+
+  def teardown_server
+    @server.shutdown
+    @server_thread.kill
+    @server_thread.join
+  end
+
+  def pathname(filename)
+    File.join(DIR, filename)
+  end
+
+  def compare(expected, actual)
+    TestUtil.filecompare(pathname(expected), pathname(actual))
+  end
+
+  def test_stubgeneration
+    compare("expectedClassDef.rb", "lp.rb")
+    compare("expectedMappingRegistry.rb", "lpMappingRegistry.rb")
+    compare("expectedDriver.rb", "lpDriver.rb")
+  end
+
+  def test_stub
+    @client = Lp_porttype.new("http://localhost:#{Port}/")
+    @client.wiredump_dev = STDERR if $DEBUG
+    request = Login.new(Login::LoginRequest.new("username", "password", "tz"))
+    response = @client.login(request)
+    assert_equal(LoginResponse::LoginResult, response.loginResult.class)
+    assert_equal("usernamepasswordtz", response.loginResult.sessionID)
+  end
+
+  def test_anonymous_mapping
+    @client = Lp_porttype.new("http://localhost:#{Port}/")
+    @client.wiredump_dev = STDERR if $DEBUG
+    request = Pack.new(Pack::Header.new("pack_header"))
+    response = @client.echo(request)
+    assert_equal(Envelope, response.class)
+    assert_equal(Envelope::Header, response.header.class)
+    assert_equal("pack_header", response.header.header2)
+  end
+end
+
+
+end; end
+
+end

data/test/wsdl/any/expectedDriver.rb

@@ -1,11 +1,12 @@
 require 'echo.rb'
 require 'echoMappingRegistry.rb'
+require 'soap/rpc/driver'
 
 module WSDL::Any
-require 'soap/rpc/driver'
 
 class Echo_port_type < ::SOAP::RPC::Driver
   DefaultEndpointUrl = "http://localhost:10080"
+  NsEcho = "urn:example.com:echo"
 
   Methods = [
     [ "urn:example.com:echo",
@@ -16,7 +17,7 @@ class Echo_port_type < ::SOAP::RPC::Driver
         :response_style => :document, :response_use => :literal,
         :faults => {} }
     ],
-    [ XSD::QName.new("urn:example.com:echo", "echoAny"),
+    [ XSD::QName.new(NsEcho, "echoAny"),
       "urn:example.com:echoAny",
       "echoAny",
       [ ["retval", "echoany_return", [nil]] ],

data/test/wsdl/any/expectedEcho.rb

@@ -1,9 +1,11 @@
 require 'xsd/qname'
 
-module WSDL::Any
+module WSDL; module Any
 
 
 # {urn:example.com:echo-type}foo.bar
+#   before - SOAP::SOAPString
+#   after - SOAP::SOAPString
 class FooBar
   attr_accessor :before
   attr_reader :__xmlele_any
@@ -21,7 +23,25 @@ class FooBar
 end
 
 # {urn:example.com:echo-type}setOutputAndCompleteRequest
+#   taskId - SOAP::SOAPString
+#   data - WSDL::Any::SetOutputAndCompleteRequest::C_Data
+#   participantToken - SOAP::SOAPString
 class SetOutputAndCompleteRequest
+
+  # inner class for member: data
+  # {}data
+  class C_Data
+    attr_reader :__xmlele_any
+
+    def set_any(elements)
+      @__xmlele_any = elements
+    end
+
+    def initialize
+      @__xmlele_any = nil
+    end
+  end
+
   attr_accessor :taskId
   attr_accessor :data
   attr_accessor :participantToken
@@ -34,4 +54,4 @@ class SetOutputAndCompleteRequest
 end
 
 
-end
+end; end

data/test/wsdl/any/expectedMappingRegistry.rb

@@ -0,0 +1,63 @@
+require 'echo.rb'
+require 'soap/mapping'
+
+module WSDL; module Any
+
+module EchoMappingRegistry
+  EncodedRegistry = ::SOAP::Mapping::EncodedRegistry.new
+  LiteralRegistry = ::SOAP::Mapping::LiteralRegistry.new
+  NsEchoType = "urn:example.com:echo-type"
+  NsXMLSchema = "http://www.w3.org/2001/XMLSchema"
+
+  EncodedRegistry.register(
+    :class => WSDL::Any::FooBar,
+    :schema_type => XSD::QName.new(NsEchoType, "foo.bar"),
+    :schema_element => [
+      ["before", ["SOAP::SOAPString", XSD::QName.new(nil, "before")]],
+      ["any", [nil, XSD::QName.new(NsXMLSchema, "anyType")]],
+      ["after", ["SOAP::SOAPString", XSD::QName.new(nil, "after")]]
+    ]
+  )
+
+  LiteralRegistry.register(
+    :class => WSDL::Any::FooBar,
+    :schema_type => XSD::QName.new(NsEchoType, "foo.bar"),
+    :schema_element => [
+      ["before", ["SOAP::SOAPString", XSD::QName.new(nil, "before")]],
+      ["any", [nil, XSD::QName.new(NsXMLSchema, "anyType")]],
+      ["after", ["SOAP::SOAPString", XSD::QName.new(nil, "after")]]
+    ]
+  )
+
+  LiteralRegistry.register(
+    :class => WSDL::Any::FooBar,
+    :schema_name => XSD::QName.new(NsEchoType, "foo.bar"),
+    :schema_element => [
+      ["before", ["SOAP::SOAPString", XSD::QName.new(nil, "before")]],
+      ["any", [nil, XSD::QName.new(NsXMLSchema, "anyType")]],
+      ["after", ["SOAP::SOAPString", XSD::QName.new(nil, "after")]]
+    ]
+  )
+
+  LiteralRegistry.register(
+    :class => WSDL::Any::SetOutputAndCompleteRequest,
+    :schema_name => XSD::QName.new(NsEchoType, "setOutputAndCompleteRequest"),
+    :schema_element => [
+      ["taskId", ["SOAP::SOAPString", XSD::QName.new(nil, "taskId")]],
+      ["data", ["WSDL::Any::SetOutputAndCompleteRequest::C_Data", XSD::QName.new(nil, "data")]],
+      ["participantToken", ["SOAP::SOAPString", XSD::QName.new(nil, "participantToken")]]
+    ]
+  )
+
+  LiteralRegistry.register(
+    :class => WSDL::Any::SetOutputAndCompleteRequest::C_Data,
+    :schema_name => XSD::QName.new(nil, "data"),
+    :is_anonymous => true,
+    :schema_qualified => false,
+    :schema_element => [
+      ["any", [nil, XSD::QName.new(NsXMLSchema, "anyType")]]
+    ]
+  )
+end
+
+end; end

data/test/wsdl/any/expectedService.rb

@@ -6,6 +6,8 @@ require 'soap/rpc/standaloneServer'
 module WSDL; module Any
 
 class Echo_port_type
+  NsEcho = "urn:example.com:echo"
+
   Methods = [
     [ "urn:example.com:echo",
       "echo",
@@ -15,7 +17,7 @@ class Echo_port_type
         :response_style => :document, :response_use => :literal,
         :faults => {} }
     ],
-    [ XSD::QName.new("urn:example.com:echo", "echoAny"),
+    [ XSD::QName.new(NsEcho, "echoAny"),
       "urn:example.com:echoAny",
       "echoAny",
       [ ["retval", "echoany_return", [nil]] ],

data/test/wsdl/any/test_any.rb

@@ -73,7 +73,7 @@ class TestAny < Test::Unit::TestCase
   end
 
   def teardown
-    teardown_server
+    teardown_server if @server
     unless $DEBUG
       File.unlink(pathname('echo.rb')) if File.exist?(pathname('echo.rb'))
       File.unlink(pathname('echoMappingRegistry.rb')) if File.exist?(pathname('echoMappingRegistry.rb'))
@@ -132,14 +132,9 @@ class TestAny < Test::Unit::TestCase
       gen.run
     end
     compare("expectedEcho.rb", "echo.rb")
+    compare("expectedMappingRegistry.rb", "echoMappingRegistry.rb")
     compare("expectedDriver.rb", "echoDriver.rb")
     compare("expectedService.rb", "echo_service.rb")
-
-    File.unlink(pathname("echo_service.rb"))
-    File.unlink(pathname("echo.rb"))
-    File.unlink(pathname("echo_serviceClient.rb"))
-    File.unlink(pathname("echoDriver.rb"))
-    File.unlink(pathname("echoServant.rb"))
   end
 
   def compare(expected, actual)

data/test/wsdl/axisArray/axisArray.wsdl

@@ -21,6 +21,12 @@
           <element maxOccurs="unbounded" minOccurs="0" name="Item" type="typens:Item"/>
         </sequence>
       </complexType>
+
+      <complexType name="MeetingInfo">
+        <sequence>
+          <element name="meetingId" type="xsd:long"/>
+        </sequence>
+      </complexType>
     </schema>
   </wsdl:types>
 
@@ -30,11 +36,21 @@
     <wsdl:part name="list" type="typens:ItemList"/>
   </wsdl:message>
 
+  <wsdl:message name="getMeetingInfoRequest"/>
+
+  <wsdl:message name="getMeetingInfoResponse">
+    <wsdl:part name="getMeetingInfoReturn" type="typens:MeetingInfo"/>
+  </wsdl:message>
+
   <wsdl:portType name="ItemListPortType">
     <wsdl:operation name="listItem">
       <wsdl:input message="tns:listItemRequest" name="listItemRequest"/>
       <wsdl:output message="tns:listItemResponse" name="listItemResponse"/>
     </wsdl:operation>
+    <wsdl:operation name="getMeetingInfo">
+      <wsdl:input name="getMeetingInfoRequest" message="tns:getMeetingInfoRequest"/>
+      <wsdl:output name="getMeetingInfoResponse" message="tns:getMeetingInfoResponse"/>
+    </wsdl:operation>
   </wsdl:portType>
 
   <wsdl:binding name="ItemListBinding" type="tns:ItemListPortType">
@@ -42,12 +58,23 @@
     <wsdl:operation name="listItem">
       <soap:operation soapAction=""/>
       <wsdl:input name="listItemRequest">
-	<soap:body encodingStyle="http://schemas.xmlsoap.org/soap/encoding/"
-	    namespace="urn:jp.gr.jin.rrr.example.itemList" use="encoded"/>
+        <soap:body encodingStyle="http://schemas.xmlsoap.org/soap/encoding/"
+          namespace="urn:jp.gr.jin.rrr.example.itemList" use="encoded"/>
       </wsdl:input>
       <wsdl:output name="listItemResponse">
-	<soap:body encodingStyle="http://schemas.xmlsoap.org/soap/encoding/"
-	    namespace="urn:jp.gr.jin.rrr.example.itemList" use="encoded"/>
+        <soap:body encodingStyle="http://schemas.xmlsoap.org/soap/encoding/"
+          namespace="urn:jp.gr.jin.rrr.example.itemList" use="encoded"/>
+      </wsdl:output>
+    </wsdl:operation>
+    <wsdl:operation name="getMeetingInfo">
+      <soap:operation soapAction=""/>
+      <wsdl:input name="getMeetingInfoRequest">
+        <soap:body use="encoded" encodingStyle="http://schemas.xmlsoap.org/soap/encoding/"
+          namespace="urn:jp.gr.jin.rrr.example.itemList"/>
+      </wsdl:input>
+      <wsdl:output name="getMeetingInfoResponse">
+        <soap:body use="encoded" encodingStyle="http://schemas.xmlsoap.org/soap/encoding/"
+          namespace="urn:jp.gr.jin.rrr.example.itemList"/>
       </wsdl:output>
     </wsdl:operation>
   </wsdl:binding>

data/test/wsdl/axisArray/test_axisarray.rb

@@ -3,13 +3,17 @@ require 'soap/processor'
 require 'soap/mapping'
 require 'soap/rpc/element'
 require 'wsdl/importer'
-require 'itemList.rb'
+require 'wsdl/soap/wsdl2ruby'
+require File.join(File.dirname(File.expand_path(__FILE__)), '..', '..', 'testutil.rb')
 
 
 module WSDL
+module AxisArray
 
 
 class TestAxisArray < Test::Unit::TestCase
+  DIR = File.dirname(File.expand_path(__FILE__))
+
   def setup
     @xml =<<__EOX__
 <?xml version="1.0" encoding="UTF-8"?>
@@ -35,11 +39,35 @@ class TestAxisArray < Test::Unit::TestCase
   </soapenv:Body>
 </soapenv:Envelope>
 __EOX__
+    setup_classdef
+  end
+
+  def teardown
+    unless $DEBUG
+      File.unlink(pathname('itemList.rb'))
+      File.unlink(pathname('itemListMappingRegistry.rb'))
+      File.unlink(pathname('itemListDriver.rb'))
+    end
+  end
+
+  def setup_classdef
+    gen = WSDL::SOAP::WSDL2Ruby.new
+    gen.location = pathname("axisArray.wsdl")
+    gen.basedir = DIR
+    gen.logger.level = Logger::FATAL
+    gen.opt['classdef'] = nil
+    gen.opt['mapping_registry'] = nil
+    gen.opt['module_path'] = self.class.to_s.sub(/::[^:]+$/, '')
+    gen.opt['driver'] = nil
+    gen.opt['force'] = true
+    gen.run
+    TestUtil.require(DIR, 'itemListDriver.rb', 'itemList.rb', 'itemListMappingRegistry.rb')
   end
 
   def test_by_stub
-    header, body = ::SOAP::Processor.unmarshal(@xml)
-    ary = ::SOAP::Mapping.soap2obj(body.response)
+    driver = ItemListPortType.new
+    driver.test_loopback_response << @xml
+    ary = driver.listItem
     assert_equal(3, ary.size)
     assert_equal("name1", ary[0].name)
     assert_equal("name2", ary[1].name)
@@ -63,7 +91,34 @@ __EOX__
     assert_equal("name2", ary[1].name)
     assert_equal("name3", ary[2].name)
   end
+
+XML_LONG = <<__XML__
+<?xml version="1.0" encoding="utf-8"?>
+<soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
+  <soapenv:Body>
+    <ns1:getMeetingInfoResponse soapenv:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" xmlns:ns1="urn:jp.gr.jin.rrr.example.itemList">
+      <getMeetingInfoReturn href="#id0"/>
+    </ns1:getMeetingInfoResponse>
+    <multiRef id="id0" soapenc:root="0" soapenv:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" xsi:type="ns2:MeetingInfo" xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/" xmlns:ns2="urn:long">
+      <meetingId href="#id11"/>
+    </multiRef>
+    <multiRef id="id11" soapenc:root="0" soapenv:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" xsi:type="xsd:long" xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/">105759347</multiRef>
+  </soapenv:Body>
+</soapenv:Envelope>
+__XML__
+
+  def test_multiref_long
+    driver = ItemListPortType.new
+    driver.test_loopback_response << XML_LONG
+    ret = driver.getMeetingInfo
+    assert_equal(105759347, ret.meetingId)
+  end
+
+  def pathname(filename)
+    File.join(DIR, filename)
+  end
 end
 
 
 end
+end