soap4r 1.5.5.20061022

data/test/interopR2/simonReg.rb

@@ -0,0 +1,123 @@
+#!/usr/bin/env ruby
+
+proxy = ARGV.shift || nil
+
+require 'soap/driver'
+require 'logger'
+
+require 'iSimonReg'
+
+server = 'http://www.4s4c.com/services/4s4c.ashx'
+
+class SimonRegApp < Logger::Application
+  include SimonReg
+
+private
+
+  AppName = 'SimonRegApp'
+
+  def initialize( server, proxy )
+    super( AppName )
+    @server = server
+    @proxy = proxy
+    @logId = Time.now.gmtime.strftime( "%Y-%m-%dT%X+0000" )
+    @drvServices = nil
+    @drvClients = nil
+    @drvServers = nil
+    @drvSubscriber = nil
+  end
+
+  def run()
+    @log.level = WARN
+    wireDump = getWireDumpLogFile
+
+    # Services portType
+    @drvServices = SOAP::Driver.new( @log, @logId, Services::InterfaceNS, @server, @proxy )
+    @drvServices.setWireDumpDev( wireDump )
+
+    Services::Methods.each do | method, params |
+      @drvServices.addMethod( method, *( params[1..-1] ))
+    end
+    @drvServices.extend( Services )
+
+    # Clients portType
+    @drvClients = SOAP::Driver.new( @log, @logId, Clients::InterfaceNS, @server, @proxy )
+    @drvClients.setWireDumpDev( wireDump )
+
+    Clients::Methods.each do | method, params |
+      @drvClients.addMethod( method, *( params[1..-1] ))
+    end
+    @drvClients.extend( Clients )
+
+    # Servers portType
+    @drvServers = SOAP::Driver.new( @log, @logId, Servers::InterfaceNS, @server, @proxy )
+    @drvServers.setWireDumpDev( wireDump )
+
+    Servers::Methods.each do | method, params |
+      @drvServers.addMethod( method, *( params[1..-1] ))
+    end
+    @drvServers.extend( Services )
+
+    # Services portType
+    @drvSubscriber = SOAP::Driver.new( @log, @logId, Subscriber::InterfaceNS, @server, @proxy )
+    @drvSubscriber.setWireDumpDev( wireDump )
+
+    Subscriber::Methods.each do | method, params |
+      @drvSubscriber.addMethod( method, *( params[1..-1] ))
+    end
+    @drvSubscriber.extend( Subscriber )
+
+    # Service information
+    #services = @drvServices.ServiceList
+    #groupA = services.find { | service | service.name == 'SoapBuilders Interop Group A' }
+    #groupB = services.find { | service | service.name == 'SoapBuilders Interop Group B' }
+
+    # SOAP4R information
+    version = '1.4.1'
+    soap4rClientInfo = Clients::ClientInfo.new( 'SOAP4R', version,
+      'http://www.jin.gr.jp/~nahi/Ruby/SOAP4R/wiki.cgi?cmd=view;name=InteropResults'
+    )
+    soap4rServerInfo = Servers::ServerInfo.new( 'SOAP4R', version,
+      'http://www.jin.gr.jp/~nahi/Ruby/SOAP4R/SOAPBuildersInterop/',
+      'http://www.jin.gr.jp/~nahi/Ruby/SOAP4R/SOAPBuildersInterop/SOAP4R_SOAPBuildersInteropTest_R2base.wsdl' )
+    soap4rGroupAClientID = '{7B1DF876-055E-4259-ACAE-55E13E399264}'
+    soap4rGroupBClientID = '{62723003-BC86-4BC0-AABC-C6A3FDE11655}'
+    soap4rGroupAServerID = '{3094F6C7-F6AA-4BE5-A4EB-194C82103728}'
+    soap4rGroupBServerID = '{A16357C9-6C7F-45CD-AC3D-72F0FC5F4F99}'
+
+    # Client registration
+    # clientID = @drvClients.RegisterClient( groupA.id, soap4rClientInfo )
+    # clientID = @drvClients.RegisterClient( groupB.id, soap4rClientInfo )
+
+    # Client remove
+    # @drvClients.RemoveClient( soap4rClientID )
+
+    # Server registration
+    # serverID = @drvServers.RegisterServer( groupA.id, soap4rServerInfo )
+    # serverID = @drvServers.RegisterServer( groupB.id, soap4rServerInfo )
+    # p serverID
+
+    # Update
+    @drvClients.UpdateClient( soap4rGroupAClientID, soap4rClientInfo )
+    @drvClients.UpdateClient( soap4rGroupBClientID, soap4rClientInfo )
+    @drvServers.UpdateServer( soap4rGroupAServerID, soap4rServerInfo )
+    @drvServers.UpdateServer( soap4rGroupBServerID, soap4rServerInfo )
+  end
+
+
+  ###
+  ## Other utility methods
+  #
+  def log( sev, message )
+    @log.add( sev, "<#{ @logId }> #{ message }", @appName ) if @log
+  end
+
+  def getWireDumpLogFile
+    logFilename = File.basename( $0 ) + '.log'
+    f = File.open( logFilename, 'w' )
+    f << "File: #{ logFilename } - Wiredumps for SOAP4R client.\n"
+    f << "Date: #{ Time.now }\n\n"
+  end
+end
+
+app = SimonRegApp.new( server, proxy ).start()

data/test/interopR2/test.sh

@@ -0,0 +1,49 @@
+#!/bin/sh -
+
+#ruby clientSOAP4R.rb
+
+#ruby client4S4C.rb
+#ruby client4S4C2.rb
+#ruby clientApacheAxis.rb
+#ruby clientApacheSOAP.rb
+#ruby clientASP.NET.rb
+#ruby clientBEAWebLogic.rb
+#ruby clientDelphi.rb
+ruby clientEasySoap.rb
+ruby clienteSOAP.rb
+ruby clientgSOAP.rb
+ruby clientFrontier.rb
+ruby clientGLUE.rb
+ruby clientHP.rb
+ruby clientXMLBus.rb
+ruby clientKafkaXSLT.rb
+ruby clientkSOAP.rb
+ruby client.NetRemoting.rb
+ruby clientMSSOAPToolkit2.0.rb
+ruby clientMSSOAPToolkit3.0.rb
+ruby clientNuSOAP.rb
+ruby clientNuWave.rb
+ruby clientOpenLink.rb
+ruby clientOracle.rb
+ruby clientPEAR.rb
+ruby clientPhalanx.rb
+ruby clientSilverStream.rb
+ruby clientSIMACE.rb
+ruby clientSOAP::Lite.rb
+ruby clientJSOAP.rb
+ruby clientSpray2001.rb
+ruby clientSQLData.rb
+ruby clientSun.rb
+ruby clientVWOpentalkSoap.rb
+ruby clientWASP.rb
+ruby clientWASPC.rb
+ruby clientWebMethods.rb
+ruby clientWhiteMesa.rb
+ruby clientWingfoot.rb
+ruby clientXSOAP.rb
+
+# Permanent
+#ruby clientTclSOAP.rb
+#ruby clientXMLRPC-EPI.rb
+#ruby clientZSI.rb
+#ruby clientCapeConnect.rb

data/test/interopR4/client.rb

@@ -0,0 +1,112 @@
+require 'test/unit'
+require 'soap/rpc/driver'
+
+
+class TestInteropR4 < Test::Unit::TestCase
+  include SOAP
+
+  class ArrayOfBinary < Array; end
+  MappingRegistry = Mapping::DefaultRegistry.dup
+  MappingRegistry.add(
+    ArrayOfBinary,
+    SOAPArray,
+    Mapping::Registry::TypedArrayFactory,
+    { :type => XSD::XSDBase64Binary::Type }
+  )
+
+  class << self
+    include SOAP
+    def setup(name, location)
+      setup_log(name)
+      setup_drv(location)
+    end
+
+    def teardown
+    end
+
+  private
+
+    def setup_log(name)
+      filename = File.basename($0).sub(/\.rb$/, '') << '.log'
+      @@log = File.open(filename, 'w')
+      @@log << "File: #{ filename } - Wiredumps for SOAP4R client / #{ name } server.\n"
+      @@log << "Date: #{ Time.now }\n\n"
+    end
+
+    def setup_drv(location)
+      namespace = "http://soapinterop.org/attachments/"
+      soap_action = "http://soapinterop.org/attachments/"
+      @@drv = RPC::Driver.new(location, namespace, soap_action)
+      @@drv.mapping_registry = MappingRegistry
+      @@drv.wiredump_dev = @@log
+      method_def(@@drv, soap_action)
+    end
+
+    def method_def(drv, soap_action = nil)
+      drv.add_method("EchoAttachment", 
+	[['in', 'In', nil], ['retval', 'Out', nil]])
+      drv.add_method("EchoAttachments", 
+	[['in', 'In', nil], ['retval', 'Out', nil]])
+      drv.add_method("EchoAttachmentAsBase64", 
+	[['in', 'In', nil], ['retval', 'Out', nil]])
+      drv.add_method("EchoBase64AsAttachment", 
+	[['in', 'In', nil], ['retval', 'Out', nil]])
+    end
+  end
+
+  def setup
+  end
+
+  def teardown
+  end
+
+  def drv
+    @@drv
+  end
+
+  def log_test
+    /`([^']+)'/ =~ caller(1)[0]
+    title = $1
+    title = "==== " + title + " " << "=" * (title.length > 72 ? 0 : (72 - title.length))
+    @@log << "#{title}\n\n"
+  end
+
+  def test_EchoAttachment
+    log_test
+    var = drv.EchoAttachment(Attachment.new("foobar"))
+    assert_equal("foobar", var.content)
+  end
+
+  def test_EchoAttachments
+    log_test
+    var =  drv.EchoAttachments(
+      ArrayOfBinary[
+	Attachment.new("foobar"),
+	Attachment.new("abc\0\0\0def"),
+	Attachment.new("ghi")
+      ]
+    )
+    assert_equal(3, var.size)
+    assert_equal("foobar", var[0].content)
+    assert_equal("abc\0\0\0def", var[1].content)
+    assert_equal("ghi", var[2].content)
+  end
+
+  def test_EchoAttachmentAsBase64
+    log_test
+    var =  drv.EchoAttachmentAsBase64(Attachment.new("foobar"))
+    assert_equal("foobar", var)
+  end
+
+  def test_EchoBase64AsAttachment
+    log_test
+    var =  drv.EchoBase64AsAttachment("abc\0\1\2def")
+    assert_equal("abc\0\1\2def", var.content)
+  end
+end
+
+if $0 == __FILE__
+  name = ARGV.shift || 'localhost'
+  location = ARGV.shift || 'http://localhost:10080/'
+  TestInteropR4.setup(name, location)
+end

data/test/runner.rb

@@ -0,0 +1,9 @@
+require 'test/unit'
+
+STDOUT.sync = true
+STDERR.sync = true
+rcsid = %w$Id: runner.rb 1520 2005-04-27 14:56:40Z nahi $
+Version = rcsid[2].scan(/\d+/).collect!(&method(:Integer)).freeze
+Release = rcsid[3].freeze
+
+exit Test::Unit::AutoRunner.run(true, File.dirname($0))

data/test/sm11/classDef.rb

@@ -0,0 +1,156 @@
+# http://dopg.gr.jp/sm11.xsd
+class C_struct
+  attr_accessor :e_boolean	# {http://www.w3.org/2001/XMLSchema}boolean
+  attr_accessor :e_short	# {http://www.w3.org/2001/XMLSchema}short
+  attr_accessor :e_int	# {http://www.w3.org/2001/XMLSchema}int
+  attr_accessor :e_long	# {http://www.w3.org/2001/XMLSchema}long
+  attr_accessor :e_float	# {http://www.w3.org/2001/XMLSchema}float
+  attr_accessor :e_double	# {http://www.w3.org/2001/XMLSchema}double
+  attr_accessor :e_String	# {http://www.w3.org/2001/XMLSchema}string
+
+  def initialize( e_boolean = nil,
+      e_short = nil,
+      e_int = nil,
+      e_long = nil,
+      e_float = nil,
+      e_double = nil,
+      e_String = nil )
+    @e_boolean = nil
+    @e_short = nil
+    @e_int = nil
+    @e_long = nil
+    @e_float = nil
+    @e_double = nil
+    @e_String = nil
+  end
+end
+
+# http://dopg.gr.jp/sm11.xsd
+class ArrayOfboolean < Array; end
+
+# http://dopg.gr.jp/sm11.xsd
+class ArrayOfshort < Array; end
+
+# http://dopg.gr.jp/sm11.xsd
+class ArrayOfint < Array; end
+
+# http://dopg.gr.jp/sm11.xsd
+class ArrayOflong < Array; end
+
+# http://dopg.gr.jp/sm11.xsd
+class ArrayOffloat < Array; end
+
+# http://dopg.gr.jp/sm11.xsd
+class ArrayOfdouble < Array; end
+
+# http://dopg.gr.jp/sm11.xsd
+class ArrayOfstring < Array; end
+
+# http://dopg.gr.jp/sm11.xsd
+class F_struct
+  attr_accessor :e_c_struct	# {http://dopg.gr.jp/sm11.xsd}C_struct
+  attr_accessor :e_c_array_e_boolean	# {http://dopg.gr.jp/sm11.xsd}ArrayOfboolean
+  attr_accessor :e_c_array_e_short	# {http://dopg.gr.jp/sm11.xsd}ArrayOfshort
+  attr_accessor :e_c_array_e_int	# {http://dopg.gr.jp/sm11.xsd}ArrayOfint
+  attr_accessor :e_c_array_e_long	# {http://dopg.gr.jp/sm11.xsd}ArrayOflong
+  attr_accessor :e_c_array_e_float	# {http://dopg.gr.jp/sm11.xsd}ArrayOffloat
+  attr_accessor :e_c_array_e_double	# {http://dopg.gr.jp/sm11.xsd}ArrayOfdouble
+  attr_accessor :e_c_array_e_String	# {http://dopg.gr.jp/sm11.xsd}ArrayOfstring
+
+  def initialize( e_c_struct = nil,
+      e_c_array_e_boolean = nil,
+      e_c_array_e_short = nil,
+      e_c_array_e_int = nil,
+      e_c_array_e_long = nil,
+      e_c_array_e_float = nil,
+      e_c_array_e_double = nil,
+      e_c_array_e_String = nil )
+    @e_c_struct = nil
+    @e_c_array_e_boolean = nil
+    @e_c_array_e_short = nil
+    @e_c_array_e_int = nil
+    @e_c_array_e_long = nil
+    @e_c_array_e_float = nil
+    @e_c_array_e_double = nil
+    @e_c_array_e_String = nil
+  end
+end
+
+# http://dopg.gr.jp/sm11.xsd
+class ArrayOfC_struct < Array; end
+
+# http://dopg.gr.jp/sm11.xsd
+class A_except < StandardError
+  attr_accessor :v1	# {http://www.w3.org/2001/XMLSchema}boolean
+  attr_accessor :v4	# {http://www.w3.org/2001/XMLSchema}short
+  attr_accessor :v5	# {http://www.w3.org/2001/XMLSchema}int
+  attr_accessor :v6	# {http://www.w3.org/2001/XMLSchema}long
+  attr_accessor :v7	# {http://www.w3.org/2001/XMLSchema}float
+  attr_accessor :v8	# {http://www.w3.org/2001/XMLSchema}double
+  attr_accessor :v9	# {http://www.w3.org/2001/XMLSchema}string
+
+  def initialize( v1 = nil,
+      v4 = nil,
+      v5 = nil,
+      v6 = nil,
+      v7 = nil,
+      v8 = nil,
+      v9 = nil )
+    @v1 = nil
+    @v4 = nil
+    @v5 = nil
+    @v6 = nil
+    @v7 = nil
+    @v8 = nil
+    @v9 = nil
+  end
+end
+
+# http://dopg.gr.jp/sm11.xsd
+class C_except < StandardError
+  attr_accessor :v10	# {http://dopg.gr.jp/sm11.xsd}C_struct
+  attr_accessor :v21	# {http://dopg.gr.jp/sm11.xsd}ArrayOfboolean
+  attr_accessor :v24	# {http://dopg.gr.jp/sm11.xsd}ArrayOfshort
+  attr_accessor :v25	# {http://dopg.gr.jp/sm11.xsd}ArrayOfint
+  attr_accessor :v26	# {http://dopg.gr.jp/sm11.xsd}ArrayOflong
+  attr_accessor :v27	# {http://dopg.gr.jp/sm11.xsd}ArrayOffloat
+  attr_accessor :v28	# {http://dopg.gr.jp/sm11.xsd}ArrayOfdouble
+  attr_accessor :v29	# {http://dopg.gr.jp/sm11.xsd}ArrayOfstring
+
+  def initialize( v10 = nil,
+      v21 = nil,
+      v24 = nil,
+      v25 = nil,
+      v26 = nil,
+      v27 = nil,
+      v28 = nil,
+      v29 = nil )
+    @v10 = nil
+    @v21 = nil
+    @v24 = nil
+    @v25 = nil
+    @v26 = nil
+    @v27 = nil
+    @v28 = nil
+    @v29 = nil
+  end
+end
+
+# http://dopg.gr.jp/sm11.xsd
+class F_except1 < StandardError
+  attr_accessor :v40	# {http://dopg.gr.jp/sm11.xsd}F_struct
+
+  def initialize( v40 = nil )
+    @v40 = nil
+  end
+end
+
+# http://dopg.gr.jp/sm11.xsd
+class F_except2 < StandardError
+  attr_accessor :v50	# {http://dopg.gr.jp/sm11.xsd}ArrayOfC_struct
+
+  def initialize( v50 = nil )
+    @v50 = nil
+  end
+end
+