rubyjedi-soap4r 1.5.8.20100619003610 → 2.0.2.1

data/test/wsdl/ref/test_ref.rb

@@ -1,269 +0,0 @@
-# encoding: ASCII-8BIT
-require 'helper'
-require 'testutil'
-require 'soap/rpc/standaloneServer'
-require 'soap/wsdlDriver'
-require 'wsdl/soap/wsdl2ruby'
-
-
-module WSDL
-module Ref
-
-
-class TestRef < Test::Unit::TestCase
-  Namespace = 'urn:ref'
-
-  class Server < ::SOAP::RPC::StandaloneServer
-    Namespace = TestRef::Namespace
-
-    def on_init
-      add_document_method(
-        self,
-        Namespace + ':echo',
-        'echo',
-        XSD::QName.new(Namespace, 'Product-Bag'),
-        XSD::QName.new(Namespace, 'Creator')
-      )
-      self.literal_mapping_registry = ProductMappingRegistry::LiteralRegistry
-    end
-  
-    def echo(arg)
-      content = [
-        arg.bag[0].name,
-        arg.bag[0].rating,
-        arg.bag[1].name,
-        arg.bag[1].rating,
-        arg.xmlattr_version,
-        arg.xmlattr_yesno,
-        arg.rating[0],
-        arg.rating[1],
-        arg.rating[2],
-        arg.comment_1[0],
-        arg.comment_1[0].xmlattr_msgid,
-        arg.comment_1[1],
-        arg.comment_1[1].xmlattr_msgid,
-        arg.comment_2[0],
-        arg.comment_2[0].xmlattr_msgid,
-        arg.comment_2[1],
-        arg.comment_2[1].xmlattr_msgid
-      ]
-      rv = Creator.new(content.join(" "))
-      rv.xmlattr_Role = "role"
-      rv
-    end
-  end
-
-  DIR = File.dirname(File.expand_path(__FILE__))
-
-  Port = 17171
-
-  def setup
-    setup_classdef
-    setup_server
-    @client = nil
-  end
-
-  def teardown
-    teardown_server if @server
-    unless $DEBUG
-      File.unlink(pathname('product.rb'))
-      File.unlink(pathname('productMappingRegistry.rb'))
-      File.unlink(pathname('productDriver.rb'))
-    end
-    @client.reset_stream if @client
-  end
-
-  def setup_server
-    @server = Server.new('Test', 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("product.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, 'product.rb', 'productMappingRegistry.rb', 'productDriver.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_classdef
-    gen = WSDL::SOAP::WSDL2Ruby.new
-    gen.location = pathname("product.wsdl")
-    gen.basedir = DIR
-    gen.logger.level = Logger::FATAL
-    gen.opt['module_path'] = self.class.to_s.sub(/::[^:]+$/, '')
-    gen.opt['classdef'] = nil
-    gen.opt['force'] = true
-    TestUtil.silent do
-      gen.run
-    end
-    compare("expectedProduct.rb", "product.rb")
-    compare("expectedDriver.rb", "productDriver.rb")
-  end
-
-  def test_wsdl
-    wsdl = File.join(DIR, 'product.wsdl')
-    @client = ::SOAP::WSDLDriverFactory.new(wsdl).create_rpc_driver
-    @client.endpoint_url = "http://localhost:#{Port}/"
-    @client.wiredump_dev = STDOUT if $DEBUG
-    p1 = e("bag")
-      p1.add(e("name", "foo"))
-      p1.add(e(q(Namespace, "Rating"), "0"))
-    p2 = e("bag")
-      p2.add(e("name", "bar"))
-      p2.add(e(q(Namespace, "Rating"), "+1"))
-    version = "version"
-    yesno = "N"
-    r1 = e(q(Namespace, "Rating"), "0")
-    r2 = e(q(Namespace, "Rating"), "+1")
-    r3 = e(q(Namespace, "Rating"), "-1")
-    c11 = e("Comment_1", "comment11")
-    c11.extraattr["msgid"] = "msgid11"
-    c12 = e("Comment_1", "comment12")
-    c12.extraattr["msgid"] = "msgid12"
-    c21 = e("comment-2", "comment21")
-    c21.extraattr["msgid"] = "msgid21"
-    c22 = e("comment-2", "comment22")
-    c22.extraattr["msgid"] = "msgid22"
-    bag = e(q(Namespace, "Product-Bag"))
-      bag.add(p1)
-      bag.add(p2)
-      bag.add(r1)
-      bag.add(r2)
-      bag.add(r3)
-      bag.add(c11)
-      bag.add(c12)
-      bag.add(c21)
-      bag.add(c22)
-    bag.extraattr[q(Namespace, "version")] = version
-    bag.extraattr[q(Namespace, "yesno")] = yesno
-    ret = @client.echo(bag)
-    assert_equal(
-      [
-        p1["name"].text, p1["Rating"].text,
-        p2["name"].text, p2["Rating"].text,
-        version, yesno,
-        r1.text, r2.text, r3.text,
-        c11.text, c11.extraattr["msgid"],
-        c12.text, c12.extraattr["msgid"],
-        c21.text, c21.extraattr["msgid"],
-        c22.text, c22.extraattr["msgid"]
-      ].join(" "),
-      ret
-    )
-    assert_equal("role", ret.xmlattr_Role)
-  end
-
-  def test_wsdl_with_classdef
-    wsdl = File.join(DIR, 'product.wsdl')
-    @client = ::SOAP::WSDLDriverFactory.new(wsdl).create_rpc_driver
-    @client.endpoint_url = "http://localhost:#{Port}/"
-    @client.literal_mapping_registry = ProductMappingRegistry::LiteralRegistry
-    @client.wiredump_dev = STDOUT if $DEBUG
-    p1 = Product.new("foo", Rating::C_0)
-    p2 = Product.new("bar", Rating::C_1)
-    version = "version"
-    yesno = Yesno::Y
-    r1 = Rating::C_0
-    r2 = Rating::C_1
-    r3 = Rating::C_1_2
-    c11 = ::SOAP::SOAPElement.new("Comment_1", "comment11")
-    c11.extraattr["msgid"] = "msgid11"
-    c12 = ::SOAP::SOAPElement.new("Comment_1", "comment12")
-    c12.extraattr["msgid"] = "msgid12"
-    c21 = Comment.new("comment21")
-    c21.xmlattr_msgid = "msgid21"
-    c22 = Comment.new("comment22")
-    c22.xmlattr_msgid = "msgid22"
-    bag = ProductBag.new([p1, p2], [r1, r2, r3], [c11, c12], [c21, c22])
-    bag.xmlattr_version = version
-    bag.xmlattr_yesno = yesno
-    ret = @client.echo(bag)
-    assert_equal(
-      [
-        p1.name, p1.rating,
-        p2.name, p2.rating,
-        version, yesno,
-        r1, r2, r3,
-        c11.text, c11.extraattr["msgid"],
-        c12.text, c12.extraattr["msgid"],
-        c21, c21.xmlattr_msgid,
-        c22, c22.xmlattr_msgid
-      ].join(" "),
-      ret
-    )
-    assert_equal("role", ret.xmlattr_Role)
-  end
-
-  def test_naive
-    @client = Ref_porttype.new("http://localhost:#{Port}/")
-    @client.wiredump_dev = STDOUT if $DEBUG
-    p1 = Product.new("foo", Rating::C_0)
-    p2 = Product.new("bar", Rating::C_1)
-    version = "version"
-    yesno = Yesno::Y
-    r1 = Rating::C_0
-    r2 = Rating::C_1
-    r3 = Rating::C_1_2
-    c11 = ::SOAP::SOAPElement.new("Comment_1", "comment11")
-    c11.extraattr["msgid"] = "msgid11"
-    c12 = ::SOAP::SOAPElement.new("Comment_1", "comment12")
-    c12.extraattr["msgid"] = "msgid12"
-    c21 = Comment.new("comment21")
-    c21.xmlattr_msgid = "msgid21"
-    c22 = Comment.new("comment22")
-    c22.xmlattr_msgid = "msgid22"
-    pts = C__point.new("123")
-    bag = ProductBag.new([p1, p2], [r1, r2, r3], [c11, c12], [c21, c22], pts)
-    bag.xmlattr_version = version
-    bag.xmlattr_yesno = yesno
-    ret = @client.echo(bag)
-    assert_equal(
-      [
-        p1.name, p1.rating,
-        p2.name, p2.rating,
-        version, yesno,
-        r1, r2, r3,
-        c11.text, c11.extraattr["msgid"],
-        c12.text, c12.extraattr["msgid"],
-        c21, c21.xmlattr_msgid,
-        c22, c22.xmlattr_msgid
-      ].join(" "),
-      ret
-    )
-    assert_equal("role", ret.xmlattr_Role)
-  end
-
-  def e(name, text = nil)
-    ::SOAP::SOAPElement.new(name, text)
-  end
-
-  def q(ns, name)
-    XSD::QName.new(ns, name)
-  end
-end
-
-
-end
-end

data/test/wsdl/rpc/RPC-Literal-TestDefinitions.rb

@@ -1,91 +0,0 @@
-# encoding: ASCII-8BIT
-require 'xsd/qname'
-
-module WSDL; module RPC
-
-
-# {http://soapbuilders.org/rpc-lit-test/types}ArrayOfstring
-class ArrayOfstring < ::Array
-end
-
-# {http://soapbuilders.org/rpc-lit-test/types}ArrayOfstringInline
-class ArrayOfstringInline < ::Array
-end
-
-# {http://soapbuilders.org/rpc-lit-test/types}ArrayOfint
-class ArrayOfint < ::Array
-end
-
-# {http://soapbuilders.org/rpc-lit-test/types}SOAPStruct
-#   varString - SOAP::SOAPString
-#   varInt - SOAP::SOAPInt
-#   varFloat - SOAP::SOAPFloat
-class SOAPStruct
-  attr_accessor :varString
-  attr_accessor :varInt
-  attr_accessor :varFloat
-
-  def initialize(varString = nil, varInt = nil, varFloat = nil)
-    @varString = varString
-    @varInt = varInt
-    @varFloat = varFloat
-  end
-end
-
-# {http://soapbuilders.org/rpc-lit-test/types}CombinationArray
-#   a - SOAP::SOAPString
-#   b - SOAP::SOAPInt
-class CombinationArray
-  attr_accessor :a
-  attr_accessor :b
-
-  def initialize(a = [], b = [])
-    @a = a
-    @b = b
-  end
-end
-
-# {http://soapbuilders.org/rpc-lit-test/types}ArrayOfSOAPStruct
-class ArrayOfSOAPStruct < ::Array
-end
-
-# {http://soapbuilders.org/rpc-lit-test/types}SOAPStructStruct
-#   varString - SOAP::SOAPString
-#   varInt - SOAP::SOAPInt
-#   varFloat - SOAP::SOAPFloat
-#   structItem - WSDL::RPC::SOAPStruct
-class SOAPStructStruct
-  attr_accessor :varString
-  attr_accessor :varInt
-  attr_accessor :varFloat
-  attr_accessor :structItem
-
-  def initialize(varString = nil, varInt = nil, varFloat = nil, structItem = nil)
-    @varString = varString
-    @varInt = varInt
-    @varFloat = varFloat
-    @structItem = structItem
-  end
-end
-
-# {http://soapbuilders.org/rpc-lit-test/types}SOAPArrayStruct
-#   varString - SOAP::SOAPString
-#   varInt - SOAP::SOAPInt
-#   varFloat - SOAP::SOAPFloat
-#   varArray - WSDL::RPC::ArrayOfstring
-class SOAPArrayStruct
-  attr_accessor :varString
-  attr_accessor :varInt
-  attr_accessor :varFloat
-  attr_accessor :varArray
-
-  def initialize(varString = nil, varInt = nil, varFloat = nil, varArray = nil)
-    @varString = varString
-    @varInt = varInt
-    @varFloat = varFloat
-    @varArray = varArray
-  end
-end
-
-
-end; end

data/test/wsdl/rpc/RPC-Literal-TestDefinitionsDriver.rb

@@ -1,148 +0,0 @@
-# encoding: ASCII-8BIT
-require 'RPC-Literal-TestDefinitions.rb'
-require 'RPC-Literal-TestDefinitionsMappingRegistry.rb'
-require 'soap/rpc/driver'
-
-module WSDL::RPC
-
-class SoapTestPortTypeRpcLit < ::SOAP::RPC::Driver
-  DefaultEndpointUrl = "http://www.whitemesa.net/test-rpc-lit"
-  NsRpcLitTest = "http://soapbuilders.org/rpc-lit-test"
-
-  Methods = [
-    [ XSD::QName.new(NsRpcLitTest, "echoStruct"),
-      "http://soapinterop.org/",
-      "echoStruct",
-      [ [:in, "inputStruct", ["WSDL::RPC::SOAPStruct", "http://soapbuilders.org/rpc-lit-test/types", "SOAPStruct"]],
-        [:retval, "return", ["WSDL::RPC::SOAPStruct", "http://soapbuilders.org/rpc-lit-test/types", "SOAPStruct"]] ],
-      { :request_style =>  :rpc, :request_use =>  :literal,
-        :response_style => :rpc, :response_use => :literal,
-        :faults => {} }
-    ],
-    [ XSD::QName.new(NsRpcLitTest, "echoStructArray"),
-      "http://soapinterop.org/",
-      "echoStructArray",
-      [ [:in, "inputStructArray", ["WSDL::RPC::ArrayOfSOAPStruct", "http://soapbuilders.org/rpc-lit-test/types", "ArrayOfSOAPStruct"]],
-        [:retval, "return", ["WSDL::RPC::ArrayOfSOAPStruct", "http://soapbuilders.org/rpc-lit-test/types", "ArrayOfSOAPStruct"]] ],
-      { :request_style =>  :rpc, :request_use =>  :literal,
-        :response_style => :rpc, :response_use => :literal,
-        :faults => {} }
-    ],
-    [ XSD::QName.new(NsRpcLitTest, "echoStructAsSimpleTypes"),
-      "http://soapinterop.org/",
-      "echoStructAsSimpleTypes",
-      [ [:in, "inputStruct", ["WSDL::RPC::SOAPStruct", "http://soapbuilders.org/rpc-lit-test/types", "SOAPStruct"]],
-        [:retval, "outputString", ["::SOAP::SOAPString"]],
-        [:out, "outputInteger", ["::SOAP::SOAPInt"]],
-        [:out, "outputFloat", ["::SOAP::SOAPFloat"]] ],
-      { :request_style =>  :rpc, :request_use =>  :literal,
-        :response_style => :rpc, :response_use => :literal,
-        :faults => {} }
-    ],
-    [ XSD::QName.new(NsRpcLitTest, "echoSimpleTypesAsStruct"),
-      "http://soapinterop.org/",
-      "echoSimpleTypesAsStruct",
-      [ [:in, "inputString", ["::SOAP::SOAPString"]],
-        [:in, "inputInteger", ["::SOAP::SOAPInt"]],
-        [:in, "inputFloat", ["::SOAP::SOAPFloat"]],
-        [:retval, "return", ["WSDL::RPC::SOAPStruct", "http://soapbuilders.org/rpc-lit-test/types", "SOAPStruct"]] ],
-      { :request_style =>  :rpc, :request_use =>  :literal,
-        :response_style => :rpc, :response_use => :literal,
-        :faults => {} }
-    ],
-    [ XSD::QName.new(NsRpcLitTest, "echoNestedStruct"),
-      "http://soapinterop.org/",
-      "echoNestedStruct",
-      [ [:in, "inputStruct", ["WSDL::RPC::SOAPStructStruct", "http://soapbuilders.org/rpc-lit-test/types", "SOAPStructStruct"]],
-        [:retval, "return", ["WSDL::RPC::SOAPStructStruct", "http://soapbuilders.org/rpc-lit-test/types", "SOAPStructStruct"]] ],
-      { :request_style =>  :rpc, :request_use =>  :literal,
-        :response_style => :rpc, :response_use => :literal,
-        :faults => {} }
-    ],
-    [ XSD::QName.new(NsRpcLitTest, "echoNestedArray"),
-      "http://soapinterop.org/",
-      "echoNestedArray",
-      [ [:in, "inputStruct", ["WSDL::RPC::SOAPArrayStruct", "http://soapbuilders.org/rpc-lit-test/types", "SOAPArrayStruct"]],
-        [:retval, "return", ["WSDL::RPC::SOAPArrayStruct", "http://soapbuilders.org/rpc-lit-test/types", "SOAPArrayStruct"]] ],
-      { :request_style =>  :rpc, :request_use =>  :literal,
-        :response_style => :rpc, :response_use => :literal,
-        :faults => {} }
-    ],
-    [ XSD::QName.new(NsRpcLitTest, "echoStringArray"),
-      "http://soapinterop.org/",
-      "echoStringArray",
-      [ [:in, "inputStringArray", ["WSDL::RPC::ArrayOfstring", "http://soapbuilders.org/rpc-lit-test/types", "ArrayOfstring"]],
-        [:retval, "return", ["WSDL::RPC::ArrayOfstring", "http://soapbuilders.org/rpc-lit-test/types", "ArrayOfstring"]] ],
-      { :request_style =>  :rpc, :request_use =>  :literal,
-        :response_style => :rpc, :response_use => :literal,
-        :faults => {} }
-    ],
-    [ XSD::QName.new(NsRpcLitTest, "echoStringArrayInline"),
-      "http://soapinterop.org/",
-      "echoStringArrayInline",
-      [ [:in, "inputStringArray", ["WSDL::RPC::ArrayOfstringInline", "http://soapbuilders.org/rpc-lit-test/types", "ArrayOfstringInline"]],
-        [:retval, "return", ["WSDL::RPC::ArrayOfstringInline", "http://soapbuilders.org/rpc-lit-test/types", "ArrayOfstringInline"]] ],
-      { :request_style =>  :rpc, :request_use =>  :literal,
-        :response_style => :rpc, :response_use => :literal,
-        :faults => {} }
-    ],
-    [ XSD::QName.new(NsRpcLitTest, "echoIntegerArray"),
-      "http://soapinterop.org/",
-      "echoIntegerArray",
-      [ [:in, "inputIntegerArray", ["WSDL::RPC::ArrayOfint", "http://soapbuilders.org/rpc-lit-test/types", "ArrayOfint"]],
-        [:retval, "return", ["WSDL::RPC::ArrayOfint", "http://soapbuilders.org/rpc-lit-test/types", "ArrayOfint"]] ],
-      { :request_style =>  :rpc, :request_use =>  :literal,
-        :response_style => :rpc, :response_use => :literal,
-        :faults => {} }
-    ],
-    [ XSD::QName.new(NsRpcLitTest, "echoBoolean"),
-      "http://soapinterop.org/",
-      "echoBoolean",
-      [ [:in, "inputBoolean", ["::SOAP::SOAPBoolean"]],
-        [:retval, "return", ["::SOAP::SOAPBoolean"]] ],
-      { :request_style =>  :rpc, :request_use =>  :literal,
-        :response_style => :rpc, :response_use => :literal,
-        :faults => {} }
-    ],
-    [ XSD::QName.new(NsRpcLitTest, "echoString"),
-      "http://soapinterop.org/",
-      "echoString",
-      [ [:in, "inputString", ["::SOAP::SOAPString"]],
-        [:retval, "return", ["::SOAP::SOAPString"]] ],
-      { :request_style =>  :rpc, :request_use =>  :literal,
-        :response_style => :rpc, :response_use => :literal,
-        :faults => {} }
-    ]
-  ]
-
-  def initialize(endpoint_url = nil)
-    endpoint_url ||= DefaultEndpointUrl
-    super(endpoint_url, nil)
-    self.mapping_registry = RPCLiteralTestDefinitionsMappingRegistry::EncodedRegistry
-    self.literal_mapping_registry = RPCLiteralTestDefinitionsMappingRegistry::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