2006-06-25 12:21:29 +04:00
|
|
|
#
|
|
|
|
# This is test for [ruby-Bugs#3237]
|
|
|
|
#
|
|
|
|
begin
|
|
|
|
require 'win32ole'
|
|
|
|
rescue LoadError
|
|
|
|
end
|
|
|
|
require "test/unit"
|
|
|
|
|
|
|
|
if defined?(WIN32OLE)
|
2006-07-08 02:19:49 +04:00
|
|
|
class TestWIN32OLE_WITH_WORD < Test::Unit::TestCase
|
2006-06-25 12:21:29 +04:00
|
|
|
|
|
|
|
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
|
|
|
|
|
2007-01-19 18:17:56 +03:00
|
|
|
def test_s_connect
|
|
|
|
if @obj
|
|
|
|
obj2 = WIN32OLE.connect("Word.Application")
|
|
|
|
assert_instance_of(WIN32OLE, obj2)
|
|
|
|
obj2.visible = true
|
|
|
|
end
|
|
|
|
end
|
|
|
|
|
2006-06-25 12:21:29 +04:00
|
|
|
def teardown
|
|
|
|
if @obj
|
|
|
|
@obj.quit
|
|
|
|
@obj = nil
|
|
|
|
end
|
|
|
|
end
|
|
|
|
|
|
|
|
end
|
|
|
|
end
|