mirror of
https://github.com/ruby/ruby.git
synced 2022-11-09 12:17:21 -05:00
ad2c05f1c0
WIN32OLE#ole_typelib method. ext/win32ole/tests/testOLETYPELIB.rb: add WIN32OLE_TYPELIB class. git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@7144 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
51 lines
1.7 KiB
Ruby
51 lines
1.7 KiB
Ruby
# You need RubyUnit and MS Excel and MSI to run this test script
|
|
|
|
require 'rubyunit'
|
|
|
|
require 'win32ole'
|
|
require 'oleserver'
|
|
|
|
class TestOLEVARIABLE < RUNIT::TestCase
|
|
include OLESERVER
|
|
def test_name
|
|
classes = WIN32OLE_TYPE.ole_classes(MS_EXCEL_TYPELIB)
|
|
chart = classes.find {|c| c.name == 'XlChartType'}
|
|
var_names = chart.variables.collect {|m| m.name}
|
|
assert(var_names.size > 0)
|
|
assert(var_names.include?('xl3DColumn'))
|
|
end
|
|
def test_to_s
|
|
classes = WIN32OLE_TYPE.ole_classes(MS_EXCEL_TYPELIB)
|
|
chart = classes.find {|c| c.name == 'XlChartType'}
|
|
var_names = chart.variables.collect {|m| "#{m}"}
|
|
assert(var_names.size > 0)
|
|
assert(var_names.include?('xl3DColumn'))
|
|
end
|
|
def test_ole_type
|
|
tlib = WIN32OLE_TYPELIB.new(MS_EXCEL_TYPELIB)
|
|
classes = tlib.ole_classes
|
|
# classes = WIN32OLE_TYPE.ole_classes(MS_EXCEL_TYPELIB)
|
|
chart = classes.find {|c| c.name == 'XlChartType'}
|
|
var = chart.variables.find {|m| m.name == 'xl3DColumn'}
|
|
assert_equal('INT', var.ole_type)
|
|
end
|
|
def test_ole_type_detail
|
|
classes = WIN32OLE_TYPE.ole_classes(MS_EXCEL_TYPELIB)
|
|
chart = classes.find {|c| c.name == 'XlChartType'}
|
|
var = chart.variables.find {|m| m.name == 'xl3DColumn'}
|
|
assert_equal(['INT'], var.ole_type_detail)
|
|
end
|
|
|
|
def test_value
|
|
classes = WIN32OLE_TYPE.ole_classes(MS_EXCEL_TYPELIB)
|
|
chart = classes.find {|c| c.name == 'XlChartType'}
|
|
var = chart.variables.find {|m| m.name == 'xl3DColumn'}
|
|
assert_equal(-4100, var.value)
|
|
end
|
|
def test_visible
|
|
classes = WIN32OLE_TYPE.ole_classes(MS_EXCEL_TYPELIB)
|
|
chart = classes.find {|c| c.name == 'XlChartType'}
|
|
var = chart.variables.find {|m| m.name == 'xl3DColumn'}
|
|
assert(var.visible?)
|
|
end
|
|
end
|