зеркало из https://github.com/github/ruby.git
37 строки
724 B
Ruby
37 строки
724 B
Ruby
#
|
|
# 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
|