rtiss_soap4r 1.6.1 → 2.0.4

data/test/wsdl/list/test_list.rb

@@ -1,125 +0,0 @@
-# encoding: ASCII-8BIT
-require 'helper'
-require 'testutil'
-require 'wsdl/parser'
-require 'wsdl/soap/wsdl2ruby'
-require 'soap/rpc/standaloneServer'
-require 'soap/wsdlDriver'
-
-
-module WSDL; module List
-
-
-class TestList < Test::Unit::TestCase
-  class Server < ::SOAP::RPC::StandaloneServer
-    Namespace = 'urn:list'
-
-    def on_init
-      add_document_method(
-        self,
-        Namespace + ':echo',
-        'echo',
-        XSD::QName.new(Namespace, 'echoele'),
-        XSD::QName.new(Namespace, 'echo_response')
-      )
-    end
-  
-    def echo(arg)
-      arg
-    end
-  end
-
-  DIR = File.dirname(File.expand_path(__FILE__))
-
-  Port = 17171
-
-  def setup
-    setup_server
-    setup_classdef
-    @client = nil
-  end
-
-  def teardown
-    teardown_server if @server
-    File.unlink(pathname('list.rb')) unless $DEBUG
-    File.unlink(pathname('listMappingRegistry.rb')) unless $DEBUG
-    File.unlink(pathname('listDriver.rb')) unless $DEBUG
-    @client.reset_stream if @client
-  end
-
-  def setup_server
-    @server = Server.new('Test', Server::Namespace, '0.0.0.0', Port)
-    @server.level = Logger::Severity::ERROR
-    @server_thread = TestUtil.start_server_thread(@server)
-  end
-
-  def setup_classdef
-    gen = WSDL::SOAP::WSDL2Ruby.new
-    gen.location = pathname("list.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, 'listDriver.rb', 'listMappingRegistry.rb', 'list.rb')
-  end
-
-  def teardown_server
-    @server.shutdown
-    @server_thread.kill
-    @server_thread.join
-  end
-
-  def pathname(filename)
-    File.join(DIR, filename)
-  end
-
-  def test_wsdl
-    wsdl = File.join(DIR, 'list.wsdl')
-    @client = ::SOAP::WSDLDriverFactory.new(wsdl).create_rpc_driver
-    @client.endpoint_url = "http://localhost:#{Port}/"
-    @client.wiredump_dev = STDOUT if $DEBUG
-    e1 = Langlistinline.new([Langlistinline::Inlineruby,
-      Langlistinline::Inlineperl])
-    e2 = Langlist.new([Language::Python, Language::Smalltalk])
-    ret = @client.echo(Echoele.new(e1, e2))
-    # in the future...
-    #   assert_equal(e1, ret.e1)
-    #   assert_equal(e2, ret.e2)
-    assert_equal(e1.join(" "), ret.e1)
-    assert_equal(e2.join(" "), ret.e2)
-  end
-
-  def test_naive
-    @client = List_porttype.new("http://localhost:#{Port}/")
-    @client.wiredump_dev = STDOUT if $DEBUG
-    e1 = Langlistinline.new([Langlistinline::Inlineruby,
-      Langlistinline::Inlineperl])
-    e2 = Langlist.new([Language::Python, Language::Smalltalk])
-    ret = @client.echo(Echoele.new(e1, e2))
-    # in the future...
-    #   assert_equal(e1, ret.e1)
-    #   assert_equal(e2, ret.e2)
-    assert_equal(e1.join(" "), ret.e1)
-    assert_equal(e2.join(" "), ret.e2)
-  end
-
-  def test_string_as_a_value
-    @client = List_porttype.new("http://localhost:#{Port}/")
-    @client.wiredump_dev = STDOUT if $DEBUG
-    e1 = ['inlineruby', 'inlineperl']
-    e2 = 'python smalltalk'
-    ret = @client.echo(Echoele.new(e1, e2))
-    # in the future...
-    #   assert_equal(e1, ret.e1)
-    #   assert_equal(e2, ret.e2)
-    assert_equal(e1.join(" "), ret.e1)
-    assert_equal(e2, ret.e2)
-  end
-end
-
-
-end; end

data/test/wsdl/map/map.wsdl

@@ -1,92 +0,0 @@
-<?xml version="1.0"?>
-<definitions
-    name="map"
-    targetNamespace="urn:map"
-    xmlns:tns="urn:map"
-    xmlns:txd="urn:map"
-    xmlns="http://schemas.xmlsoap.org/wsdl/"
-    xmlns:wsdl="http://schemas.xmlsoap.org/wsdl/"
-    xmlns:xsd="http://www.w3.org/2001/XMLSchema"
-    xmlns:soap="http://schemas.xmlsoap.org/wsdl/soap/"
-    xmlns:apachesoap="http://xml.apache.org/xml-soap">
-
-  <types>
-    <schema
-	xmlns="http://www.w3.org/2001/XMLSchema"
-	targetNamespace="http://xml.apache.org/xml-soap">
-      <complexType name="Map">
-	<sequence>
-	  <element name="item" minOccurs="0" maxOccurs="unbounded">
-	    <complexType>
-	      <sequence>
-		<element name="key" type="xsd:anyType" />
-		<element name="value" type="xsd:anyType" />
-	      </sequence>
-	    </complexType>
-	  </element>
-	</sequence>
-      </complexType>
-    </schema>
-  </types>
-
-  <message name="mapRequest"/>
-  <message name="mapResponse">
-    <part name="return" type="apachesoap:Map"/>
-  </message>
-
-  <message name="map2Request">
-    <part name="arg" type="apachesoap:Map"/>
-  </message>
-  <message name="map2Response">
-    <part name="return" type="apachesoap:Map"/>
-  </message>
-
-  <portType name="MapServicePortType">
-    <operation name="map" parameterOrder="">
-      <input message="tns:mapRequest"/>
-      <output message="tns:mapResponse"/>
-    </operation>
-
-    <operation name="map2" parameterOrder="">
-      <input message="tns:map2Request"/>
-      <output message="tns:map2Response"/>
-    </operation>
-  </portType>
-
-  <binding name="MapServicePortBinding" type="tns:MapServicePortType">
-    <soap:binding style="rpc" transport="http://schemas.xmlsoap.org/soap/http"/>
-    <operation name="map">
-      <soap:operation soapAction=""/>
-      <input>
-	<soap:body use="encoded"
-	    encodingStyle="http://schemas.xmlsoap.org/soap/encoding/"
-	    namespace="urn:map"/>
-      </input>
-      <output>
-	<soap:body use="encoded"
-	    encodingStyle="http://schemas.xmlsoap.org/soap/encoding/"
-	    namespace="urn:map"/>
-      </output>
-    </operation>
-
-    <operation name="map2">
-      <soap:operation soapAction=""/>
-      <input>
-	<soap:body use="encoded"
-	    encodingStyle="http://schemas.xmlsoap.org/soap/encoding/"
-	    namespace="urn:map"/>
-      </input>
-      <output>
-	<soap:body use="encoded"
-	    encodingStyle="http://schemas.xmlsoap.org/soap/encoding/"
-	    namespace="urn:map"/>
-      </output>
-    </operation>
-  </binding>
-
-  <service name="MapService">
-    <port name="MapServicePort" binding="tns:MapServicePortBinding">
-      <soap:address location="http://raa.ruby-lang.org/soap/1.0.2/"/>
-    </port>
-  </service>
-</definitions>

data/test/wsdl/map/map.xml

@@ -1,43 +0,0 @@
-<?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>
-    <n2:mapResponse xmlns:n1="http://schemas.xmlsoap.org/soap/encoding/" xmlns:n2="http://www.ruby-lang.org/xmlns/soap/interface/RAA/0.0.2/" env:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/">
-      <return xmlns:n3="http://xml.apache.org/xml-soap" xsi:type="n3:Map">
-	<item>
-	  <key xsi:type="xsd:string">a</key>
-	  <value xsi:type="n3:Map">
-	    <item>
-	      <key xsi:type="xsd:string">a1</key>
-	      <value xsi:type="n1:Array" n1:arrayType="xsd:anyType[1]">
-		<item xsi:type="xsd:string">a1</item>
-	      </value>
-	    </item>
-	    <item>
-	      <key xsi:type="xsd:string">a2</key>
-	      <value xsi:type="n1:Array" n1:arrayType="xsd:anyType[1]">
-		<item xsi:type="xsd:string">a2</item>
-	      </value>
-	    </item>
-	  </value>
-	</item>
-	<item>
-	  <key xsi:type="xsd:string">b</key>
-	  <value xsi:type="n3:Map">
-	    <item>
-	      <key xsi:type="xsd:string">b1</key>
-	      <value xsi:type="n1:Array" n1:arrayType="xsd:anyType[1]">
-		<item xsi:type="xsd:string">b1</item>
-	      </value>
-	    </item>
-	    <item>
-	      <key xsi:type="xsd:string">b2</key>
-	      <value xsi:type="n1:Array" n1:arrayType="xsd:anyType[1]">
-		<item xsi:type="xsd:string">b2</item>
-	      </value>
-	    </item>
-	  </value>
-	</item>
-      </return>
-    </n2:mapResponse>
-  </env:Body>
-</env:Envelope>

data/test/wsdl/map/test_map.rb

@@ -1,100 +0,0 @@
-# encoding: ASCII-8BIT
-require 'helper'
-require 'soap/rpc/httpserver'
-require 'soap/wsdlDriver'
-
-
-module WSDL
-
-
-class TestMap < Test::Unit::TestCase
-  Port = 17171
-  DIR = File.dirname(File.expand_path(__FILE__))
-
-  class Server < ::SOAP::RPC::HTTPServer
-    def on_init
-      add_method(self, 'map')
-      add_method(self, 'map2', 'arg')
-    end
-
-    def map
-      {1 => "a", 2 => "b"}
-    end
-
-    def map2(arg)
-      arg
-    end
-  end
-
-  def setup
-    setup_server
-    setup_client
-  end
-
-  def setup_server
-    @server = Server.new(
-      :BindAddress => "0.0.0.0",
-      :Port => Port,
-      :AccessLog => [],
-      :SOAPDefaultNamespace => "urn:map"
-    )
-    @server.level = Logger::Severity::ERROR
-    @t = Thread.new {
-      Thread.current.abort_on_exception = true
-      @server.start
-    }
-  end
-
-  def setup_client
-    wsdl = File.join(DIR, 'map.wsdl')
-    @client = ::SOAP::WSDLDriverFactory.new(wsdl).create_rpc_driver
-    @client.endpoint_url = "http://localhost:#{Port}/"
-    @client.generate_explicit_type = true
-    @client.wiredump_dev = STDOUT if $DEBUG
-  end
-
-  def teardown
-    teardown_server if @server
-    teardown_client if @client
-  end
-
-  def teardown_server
-    @server.shutdown
-    @t.kill
-    @t.join
-  end
-
-  def teardown_client
-    @client.reset_stream
-  end
-
-  def test_by_wsdl
-    dir = File.dirname(File.expand_path(__FILE__))
-    wsdlfile = File.join(dir, 'map.wsdl')
-    xml = File.open(File.join(dir, 'map.xml')) { |f| f.read }
-    wsdl = WSDL::Importer.import(wsdlfile)
-    service = wsdl.services[0]
-    port = service.ports[0]
-    wsdl_types = wsdl.collect_complextypes
-    rpc_decode_typemap = wsdl_types + wsdl.soap_rpc_complextypes(port.find_binding)
-    opt = {}
-    opt[:default_encodingstyle] = ::SOAP::EncodingNamespace
-    opt[:decode_typemap] = rpc_decode_typemap
-    header, body = ::SOAP::Processor.unmarshal(xml, opt)
-    map = ::SOAP::Mapping.soap2obj(body.response)
-    assert_equal(["a1"], map["a"]["a1"])
-    assert_equal(["a2"], map["a"]["a2"])
-    assert_equal(["b1"], map["b"]["b1"])
-    assert_equal(["b2"], map["b"]["b2"])
-  end
-
-  def test_wsdldriver
-    assert_equal({1 => "a", 2 => "b"}, @client.map)
-    assert_equal({1 => 2}, @client.map2({1 => 2}))
-    assert_equal({1 => {2 => 3}}, @client.map2({1 => {2 => 3}}))
-    assert_equal({["a", 2] => {2 => 3}}, @client.map2({["a", 2] => {2 => 3}}))
-  end
-end
-
-
-end

data/test/wsdl/marshal/person.wsdl

@@ -1,21 +0,0 @@
-<?xml version="1.0"?>
-<definitions name="Person"
-    targetNamespace="http://www.jin.gr.jp/~nahi/xmlns/sample/Person"
-    xmlns:tns="http://www.jin.gr.jp/~nahi/xmlns/sample/Person"
-    xmlns:xsd="http://www.w3.org/2001/XMLSchema"
-    xmlns="http://schemas.xmlsoap.org/wsdl/">
-  <types>
-    <xsd:schema xmlns="http://www.w3.org/2001/XMLSchema" 
-        targetNamespace="http://www.jin.gr.jp/~nahi/xmlns/sample/Person">
-      <complexType name="Person">
-        <all>
-          <element name="familyname" type="xsd:string"/>
-          <element name="givenname" type="xsd:string"/>
-          <element name="var1" type="xsd:int"/>
-          <element name="var2" type="xsd:double"/>
-          <element name="var3" type="xsd:string"/>
-        </all>
-      </complexType>
-    </xsd:schema>
-  </types>
-</definitions>

data/test/wsdl/marshal/person_org.rb

@@ -1,24 +0,0 @@
-# encoding: ASCII-8BIT
-require 'xsd/qname'
-
-# {http://www.jin.gr.jp/~nahi/xmlns/sample/Person}Person
-#   familyname - SOAP::SOAPString
-#   givenname - SOAP::SOAPString
-#   var1 - SOAP::SOAPInt
-#   var2 - SOAP::SOAPDouble
-#   var3 - SOAP::SOAPString
-class Person
-  attr_accessor :familyname
-  attr_accessor :givenname
-  attr_accessor :var1
-  attr_accessor :var2
-  attr_accessor :var3
-
-  def initialize(familyname = nil, givenname = nil, var1 = nil, var2 = nil, var3 = nil)
-    @familyname = familyname
-    @givenname = givenname
-    @var1 = var1
-    @var2 = var2
-    @var3 = var3
-  end
-end

data/test/wsdl/marshal/test_wsdlmarshal.rb

@@ -1,76 +0,0 @@
-# encoding: ASCII-8BIT
-require 'helper'
-require 'testutil'
-require 'wsdl/parser'
-require 'soap/mapping/wsdlencodedregistry'
-require 'soap/marshal'
-require 'wsdl/soap/wsdl2ruby'
-
-
-class WSDLMarshaller
-  def initialize(wsdlfile)
-    wsdl = WSDL::Parser.new.parse(File.open(wsdlfile) { |f| f.read })
-    types = wsdl.collect_complextypes
-    @opt = {
-      :decode_typemap => types,
-      :generate_explicit_type => false,
-      :pretty => true
-    }
-    @mapping_registry = ::SOAP::Mapping::WSDLEncodedRegistry.new(types)
-  end
-
-  def dump(obj, io = nil)
-    ele = ::SOAP::Mapping.obj2soap(obj, @mapping_registry)
-    ele.elename = XSD::QName.new(nil, ele.type.name.to_s)
-    ::SOAP::Processor.marshal(::SOAP::SOAPEnvelope.new(nil, ::SOAP::SOAPBody.new(ele)), @opt, io)
-  end
-
-  def load(io)
-    header, body = ::SOAP::Processor.unmarshal(io, @opt)
-    ::SOAP::Mapping.soap2obj(body.root_node, @mapping_registry)
-  end
-end
-
-TestUtil.require(File.dirname(__FILE__), 'person_org')
-
-class Person
-  def ==(rhs)
-    @familyname == rhs.familyname and @givenname == rhs.givenname and
-      @var1 == rhs.var1 and @var2 == rhs.var2 and @var3 == rhs.var3
-  end
-end
-
-
-class TestWSDLMarshal < Test::Unit::TestCase
-  DIR = File.dirname(File.expand_path(__FILE__))
-
-  def test_marshal
-    marshaller = WSDLMarshaller.new(pathname('person.wsdl'))
-    obj = Person.new("NAKAMURA", "Hiroshi", 1, 1.0,  "1")
-    str = marshaller.dump(obj)
-    puts str if $DEBUG
-    obj2 = marshaller.load(str)
-    assert_equal(obj, obj2)
-    assert_equal(str, marshaller.dump(obj2))
-  end
-
-  def test_classdef
-    gen = WSDL::SOAP::WSDL2Ruby.new
-    gen.location = pathname("person.wsdl")
-    gen.basedir = DIR
-    gen.logger.level = Logger::FATAL
-    gen.opt['classdef'] = nil
-    gen.opt['force'] = true
-    gen.run
-    compare("person_org.rb", "Person.rb")
-    File.unlink(pathname('Person.rb')) unless $DEBUG
-  end
-
-  def compare(expected, actual)
-    TestUtil.filecompare(pathname(expected), pathname(actual))
-  end
-
-  def pathname(filename)
-    File.join(DIR, filename)
-  end
-end