rtiss_soap4r 1.6.1 → 2.0.4

data/test/wsdl/anonymous/expectedDriver.rb

@@ -1,60 +0,0 @@
-# encoding: ASCII-8BIT
-require 'lp.rb'
-require 'lpMappingRegistry.rb'
-require 'soap/rpc/driver'
-
-module WSDL::Anonymous
-
-class Lp_porttype < ::SOAP::RPC::Driver
-  DefaultEndpointUrl = "http://localhost:17171/"
-
-  Methods = [
-    [ "urn:lp:login",
-      "login",
-      [ [:in, "parameters", ["::SOAP::SOAPElement", "urn:lp", "login"]],
-        [:out, "parameters", ["::SOAP::SOAPElement", "urn:lp", "loginResponse"]] ],
-      { :request_style =>  :document, :request_use =>  :literal,
-        :response_style => :document, :response_use => :literal,
-        :faults => {} }
-    ],
-    [ "urn:lp:echo",
-      "echo",
-      [ [:in, "parameters", ["::SOAP::SOAPElement", "urn:lp", "Pack"]],
-        [:out, "parameters", ["::SOAP::SOAPElement", "urn:lp", "Envelope"]] ],
-      { :request_style =>  :document, :request_use =>  :literal,
-        :response_style => :document, :response_use => :literal,
-        :faults => {} }
-    ]
-  ]
-
-  def initialize(endpoint_url = nil)
-    endpoint_url ||= DefaultEndpointUrl
-    super(endpoint_url, nil)
-    self.mapping_registry = LpMappingRegistry::EncodedRegistry
-    self.literal_mapping_registry = LpMappingRegistry::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/anonymous/expectedMappingRegistry.rb

@@ -1,177 +0,0 @@
-# encoding: ASCII-8BIT
-require 'lp.rb'
-require 'soap/mapping'
-
-module WSDL; module Anonymous
-
-module LpMappingRegistry
-  EncodedRegistry = ::SOAP::Mapping::EncodedRegistry.new
-  LiteralRegistry = ::SOAP::Mapping::LiteralRegistry.new
-  NsLp = "urn:lp"
-
-  EncodedRegistry.register(
-    :class => WSDL::Anonymous::Header,
-    :schema_type => XSD::QName.new(NsLp, "Header"),
-    :schema_element => [
-      ["header3", ["SOAP::SOAPString", XSD::QName.new(nil, "Header3")]]
-    ]
-  )
-
-  EncodedRegistry.register(
-    :class => WSDL::Anonymous::ExtraInfo,
-    :schema_type => XSD::QName.new(NsLp, "ExtraInfo"),
-    :schema_element => [
-      ["entry", ["WSDL::Anonymous::ExtraInfo::Entry[]", XSD::QName.new(nil, "Entry")], [1, nil]]
-    ]
-  )
-
-  EncodedRegistry.register(
-    :class => WSDL::Anonymous::ExtraInfo::Entry,
-    :schema_name => XSD::QName.new(nil, "Entry"),
-    :is_anonymous => true,
-    :schema_qualified => false,
-    :schema_element => [
-      ["key", ["SOAP::SOAPString", XSD::QName.new(nil, "Key")]],
-      ["value", ["SOAP::SOAPString", XSD::QName.new(nil, "Value")]]
-    ]
-  )
-
-  EncodedRegistry.register(
-    :class => WSDL::Anonymous::LoginResponse,
-    :schema_type => XSD::QName.new(NsLp, "loginResponse"),
-    :schema_element => [
-      ["loginResult", ["WSDL::Anonymous::LoginResponse::LoginResult", XSD::QName.new(nil, "loginResult")]]
-    ]
-  )
-
-  EncodedRegistry.register(
-    :class => WSDL::Anonymous::LoginResponse::LoginResult,
-    :schema_name => XSD::QName.new(nil, "loginResult"),
-    :is_anonymous => true,
-    :schema_qualified => false,
-    :schema_element => [
-      ["sessionID", "SOAP::SOAPString"]
-    ]
-  )
-
-  LiteralRegistry.register(
-    :class => WSDL::Anonymous::Header,
-    :schema_type => XSD::QName.new(NsLp, "Header"),
-    :schema_element => [
-      ["header3", ["SOAP::SOAPString", XSD::QName.new(nil, "Header3")]]
-    ]
-  )
-
-  LiteralRegistry.register(
-    :class => WSDL::Anonymous::ExtraInfo,
-    :schema_type => XSD::QName.new(NsLp, "ExtraInfo"),
-    :schema_element => [
-      ["entry", ["WSDL::Anonymous::ExtraInfo::Entry[]", XSD::QName.new(nil, "Entry")], [1, nil]]
-    ]
-  )
-
-  LiteralRegistry.register(
-    :class => WSDL::Anonymous::ExtraInfo::Entry,
-    :schema_name => XSD::QName.new(nil, "Entry"),
-    :is_anonymous => true,
-    :schema_qualified => false,
-    :schema_element => [
-      ["key", ["SOAP::SOAPString", XSD::QName.new(nil, "Key")]],
-      ["value", ["SOAP::SOAPString", XSD::QName.new(nil, "Value")]]
-    ]
-  )
-
-  LiteralRegistry.register(
-    :class => WSDL::Anonymous::LoginResponse,
-    :schema_type => XSD::QName.new(NsLp, "loginResponse"),
-    :schema_element => [
-      ["loginResult", ["WSDL::Anonymous::LoginResponse::LoginResult", XSD::QName.new(nil, "loginResult")]]
-    ]
-  )
-
-  LiteralRegistry.register(
-    :class => WSDL::Anonymous::LoginResponse::LoginResult,
-    :schema_name => XSD::QName.new(nil, "loginResult"),
-    :is_anonymous => true,
-    :schema_qualified => false,
-    :schema_element => [
-      ["sessionID", "SOAP::SOAPString"]
-    ]
-  )
-
-  LiteralRegistry.register(
-    :class => WSDL::Anonymous::Pack,
-    :schema_name => XSD::QName.new(NsLp, "Pack"),
-    :schema_element => [
-      ["header", ["WSDL::Anonymous::Pack::Header", XSD::QName.new(nil, "Header")]]
-    ]
-  )
-
-  LiteralRegistry.register(
-    :class => WSDL::Anonymous::Pack::Header,
-    :schema_name => XSD::QName.new(nil, "Header"),
-    :is_anonymous => true,
-    :schema_qualified => false,
-    :schema_element => [
-      ["header1", ["SOAP::SOAPString", XSD::QName.new(nil, "Header1")]]
-    ]
-  )
-
-  LiteralRegistry.register(
-    :class => WSDL::Anonymous::Envelope,
-    :schema_name => XSD::QName.new(NsLp, "Envelope"),
-    :schema_element => [
-      ["header", ["WSDL::Anonymous::Envelope::Header", XSD::QName.new(nil, "Header")]]
-    ]
-  )
-
-  LiteralRegistry.register(
-    :class => WSDL::Anonymous::Envelope::Header,
-    :schema_name => XSD::QName.new(nil, "Header"),
-    :is_anonymous => true,
-    :schema_qualified => false,
-    :schema_element => [
-      ["header2", ["SOAP::SOAPString", XSD::QName.new(nil, "Header2")]]
-    ]
-  )
-
-  LiteralRegistry.register(
-    :class => WSDL::Anonymous::Login,
-    :schema_name => XSD::QName.new(NsLp, "login"),
-    :schema_element => [
-      ["loginRequest", ["WSDL::Anonymous::Login::LoginRequest", XSD::QName.new(nil, "loginRequest")]]
-    ]
-  )
-
-  LiteralRegistry.register(
-    :class => WSDL::Anonymous::Login::LoginRequest,
-    :schema_name => XSD::QName.new(nil, "loginRequest"),
-    :is_anonymous => true,
-    :schema_qualified => false,
-    :schema_element => [
-      ["username", "SOAP::SOAPString"],
-      ["password", "SOAP::SOAPString"],
-      ["timezone", "SOAP::SOAPString", [0, 1]]
-    ]
-  )
-
-  LiteralRegistry.register(
-    :class => WSDL::Anonymous::LoginResponse,
-    :schema_name => XSD::QName.new(NsLp, "loginResponse"),
-    :schema_element => [
-      ["loginResult", ["WSDL::Anonymous::LoginResponse::LoginResult", XSD::QName.new(nil, "loginResult")]]
-    ]
-  )
-
-  LiteralRegistry.register(
-    :class => WSDL::Anonymous::LoginResponse::LoginResult,
-    :schema_name => XSD::QName.new(nil, "loginResult"),
-    :is_anonymous => true,
-    :schema_qualified => false,
-    :schema_element => [
-      ["sessionID", "SOAP::SOAPString"]
-    ]
-  )
-end
-
-end; end

data/test/wsdl/anonymous/lp.wsdl

@@ -1,147 +0,0 @@
-<?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" targetNamespace="urn:lp">
-      <element name="Pack">
-        <complexType>
-          <sequence>
-            <element name="Header">
-              <complexType>
-                <sequence>
-                  <element name="Header1" type="xsd:string"/>
-                </sequence>
-              </complexType>
-            </element>
-          </sequence>
-        </complexType>
-      </element>
-
-      <element name="Envelope">
-        <complexType>
-          <sequence>
-            <element name="Header">
-              <complexType>
-                <sequence>
-                  <element name="Header2" type="xsd:string"/>
-                </sequence>
-              </complexType>
-            </element>
-          </sequence>
-        </complexType>
-      </element>
-
-      <complexType name="Header">
-        <sequence>
-          <element name="Header3" type="xsd:string"/>
-        </sequence>
-      </complexType>
-
-      <complexType name="ExtraInfo">
-        <annotation>
-          <documentation>Service specific information.</documentation>
-        </annotation>
-        <sequence>
-          <element maxOccurs="unbounded" name="Entry">
-            <complexType>
-              <sequence>
-                <element name="Key" type="xsd:string"/>
-                <element name="Value" type="xsd:string"/>
-              </sequence>
-            </complexType>
-          </element>
-        </sequence>
-      </complexType>
-
-      <element name="login">
-        <complexType>
-          <sequence>
-            <element name="loginRequest">
-              <complexType>
-                <sequence>
-                  <element name="username" type="xsd:string"/>
-                  <element name="password" type="xsd:string"/>
-                  <element name="timezone" type="xsd:string" minOccurs="0" maxOccurs="1"/>
-                </sequence>
-              </complexType>
-            </element>
-          </sequence>
-        </complexType>
-      </element>
-
-      <complexType name="loginResponse">
-        <sequence>
-          <element name="loginResult">
-            <complexType>
-              <sequence>
-                <element name="sessionID" type="xsd:string"/>
-              </sequence>
-            </complexType>
-          </element>
-        </sequence>
-      </complexType>
-
-      <element name="loginResponse" type="tns:loginResponse"/>
-    </schema>
-  </types>
-
-  <message name="login_in">
-    <part name="parameters" element="tns:login" />
-  </message>
-  <message name="login_out">
-    <part name="parameters" element="tns:loginResponse" />
-  </message>
-
-  <message name="echo_in">
-    <part name="parameters" element="tns:Pack" />
-  </message>
-  <message name="echo_out">
-    <part name="parameters" element="tns:Envelope" />
-  </message>
-
-  <portType name="lp_porttype">
-    <operation name="login">
-      <input message="tns:login_in" />
-      <output message="tns:login_out" />
-    </operation>
-
-    <operation name="echo">
-      <input message="tns:echo_in" />
-      <output message="tns:echo_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>
-
-    <operation name="echo">
-      <soap:operation soapAction="urn:lp:echo" 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/anonymous/test_anonymous.rb

@@ -1,131 +0,0 @@
-# encoding: ASCII-8BIT
-require 'helper'
-require 'testutil'
-require 'wsdl/soap/wsdl2ruby'
-require 'soap/rpc/standaloneServer'
-require 'soap/wsdlDriver'
-
-
-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