1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
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
|
