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
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
|
begin
require 'win32ole'
rescue LoadError
end
require "test/unit"
if defined?(WIN32OLE_METHOD)
class TestWIN32OLE_METHOD < Test::Unit::TestCase
def setup
ole_type = WIN32OLE_TYPE.new("Microsoft Shell Controls And Automation", "Shell")
@m_open = WIN32OLE_METHOD.new(ole_type, "open")
@m_namespace = WIN32OLE_METHOD.new(ole_type, "namespace")
@m_parent = WIN32OLE_METHOD.new(ole_type, "parent")
@m_invoke = WIN32OLE_METHOD.new(ole_type, "invoke")
@m_browse_for_folder = WIN32OLE_METHOD.new(ole_type, "BrowseForFolder")
ole_type = WIN32OLE_TYPE.new("Microsoft Scripting Runtime", "File")
@m_file_name = WIN32OLE_METHOD.new(ole_type, "name")
ole_type = WIN32OLE_TYPE.new("Microsoft Internet Controls", "WebBrowser")
@m_navigate_complete = WIN32OLE_METHOD.new(ole_type, "NavigateComplete")
end
def test_initialize
ole_type = WIN32OLE_TYPE.new("Microsoft Shell Controls And Automation", "Shell")
assert_raise(ArgumentError) {
method = WIN32OLE_METHOD.new("foo")
}
assert_raise(ArgumentError) {
method = WIN32OLE_METHOD.new(ole_type)
}
assert_raise(WIN32OLERuntimeError) {
method = WIN32OLE_METHOD.new(ole_type, "NonExistMethod")
}
method = WIN32OLE_METHOD.new(ole_type, "Open")
assert_instance_of(WIN32OLE_METHOD, method)
method = WIN32OLE_METHOD.new(ole_type, "open")
assert_instance_of(WIN32OLE_METHOD, method)
end
def test_name
assert_equal("Open", @m_open.name)
end
def test_return_type
assert_equal("VOID", @m_open.return_type)
assert_equal("Folder", @m_namespace.return_type)
end
def test_return_vtype
assert_equal(24, @m_open.return_vtype)
assert_equal(26, @m_namespace.return_vtype)
end
def test_return_type_detail
assert_equal(['VOID'], @m_open.return_type_detail)
assert_equal(['PTR', 'USERDEFINED', 'Folder'], @m_namespace.return_type_detail)
end
def test_invoke_kind
assert_equal('FUNC', @m_open.invoke_kind)
assert_equal('FUNC', @m_namespace.invoke_kind)
assert_equal('PROPERTYGET', @m_parent.invoke_kind)
end
def test_invkind
assert_equal(1, @m_namespace.invkind)
assert_equal(2, @m_parent.invkind)
end
def test_visible?
assert(@m_namespace.visible?)
assert(!@m_invoke.visible?)
end
def test_event?
assert(@m_navigate_complete.event?)
assert(!@m_namespace.event?)
end
def test_event_interface
assert_equal("DWebBrowserEvents", @m_navigate_complete.event_interface)
assert_equal(nil, @m_namespace.event_interface)
end
def test_helpstring
assert_equal("Get special folder from ShellSpecialFolderConstants", @m_namespace.helpstring)
end
def test_helpfile
assert_equal("", @m_namespace.helpfile)
assert_match(/VBENLR.*\.CHM$/i, @m_file_name.helpfile)
end
def test_helpcontext
assert_equal(0, @m_namespace.helpcontext)
assert_equal(2181996, @m_file_name.helpcontext)
end
def test_dispid
assert_equal(1610743810, @m_namespace.dispid)
end
def test_offset_vtbl
assert_equal(24, @m_invoke.offset_vtbl)
end
def test_size_params
assert_equal(1, @m_open.size_params)
assert_equal(4, @m_browse_for_folder.size_params)
end
def test_size_opt_params
assert_equal(0, @m_open.size_opt_params)
assert_equal(1, @m_browse_for_folder.size_opt_params)
end
def test_params
params = @m_browse_for_folder.params
assert_instance_of(Array, params)
assert_equal(4, params.size)
assert_instance_of(WIN32OLE_PARAM, params[0])
end
def test_to_s
assert_equal(@m_namespace.name, @m_namespace.to_s)
end
def test_inspect
assert_equal("#<WIN32OLE_METHOD:NameSpace>", @m_namespace.inspect)
end
end
end
|
