mirror of
https://github.com/ruby/ruby.git
synced 2022-11-09 12:17:21 -05:00
59835fe865
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@11544 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
45 lines
766 B
Ruby
45 lines
766 B
Ruby
#
|
|
# This is test for [ruby-Bugs#3237]
|
|
#
|
|
begin
|
|
require 'win32ole'
|
|
rescue LoadError
|
|
end
|
|
require "test/unit"
|
|
|
|
if defined?(WIN32OLE)
|
|
class TestWIN32OLE_WITH_WORD < Test::Unit::TestCase
|
|
|
|
def setup
|
|
begin
|
|
@obj = WIN32OLE.new('Word.Application')
|
|
rescue WIN32OLERuntimeError
|
|
@obj = nil
|
|
end
|
|
end
|
|
|
|
def test_ole_methods
|
|
if @obj
|
|
@obj.visible = true
|
|
@obj.wordbasic.disableAutoMacros(true)
|
|
assert(true)
|
|
end
|
|
end
|
|
|
|
def test_s_connect
|
|
if @obj
|
|
obj2 = WIN32OLE.connect("Word.Application")
|
|
assert_instance_of(WIN32OLE, obj2)
|
|
obj2.visible = true
|
|
end
|
|
end
|
|
|
|
def teardown
|
|
if @obj
|
|
@obj.quit
|
|
@obj = nil
|
|
end
|
|
end
|
|
|
|
end
|
|
end
|