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
|
#
# This is test for [ruby-talk:196897]
#
begin
require 'win32ole'
rescue LoadError
end
require "test/unit"
if defined?(WIN32OLE)
class TestWIN32OLE_FOR_PROPERTYPUTREF < Test::Unit::TestCase
def setup
@obj = WIN32OLE.new('Scripting.Dictionary')
end
def test_ole_methods
x = @obj.ole_methods.select {|m|
m.invoke_kind == 'PROPERTYPUTREF'
}
assert(x.size > 0)
assert_equal(1, x.size)
assert_equal('Item', x[0].name)
end
def test_ole_put_methods
x = @obj.ole_put_methods.select {|m|
m.invoke_kind == 'PROPERTYPUTREF'
}
assert(x.size > 0)
assert_equal(1, x.size)
assert_equal('Item', x[0].name)
end
end
end
|
