2008-07-25 14:49:53 +00:00
|
|
|
#
|
|
|
|
|
# test Win32OLE avoids cfp consistency error when the exception raised
|
|
|
|
|
# in WIN32OLE_EVENT handler block. [ruby-dev:35450]
|
|
|
|
|
#
|
|
|
|
|
|
|
|
|
|
begin
|
|
|
|
|
require 'win32ole'
|
|
|
|
|
rescue LoadError
|
|
|
|
|
end
|
|
|
|
|
require 'rbconfig'
|
|
|
|
|
require 'mkmf'
|
|
|
|
|
require 'test/unit'
|
|
|
|
|
if defined?(WIN32OLE)
|
|
|
|
|
class TestErrInCallBack < Test::Unit::TestCase
|
|
|
|
|
def setup
|
|
|
|
|
@ruby = nil
|
|
|
|
|
if File.exist?("./" + CONFIG["RUBY_INSTALL_NAME"] + CONFIG["EXEEXT"])
|
|
|
|
|
@ruby = "./" + CONFIG["RUBY_INSTALL_NAME"]
|
|
|
|
|
@iopt = $:.map {|e|
|
|
|
|
|
" -I " + e
|
|
|
|
|
}.join("")
|
|
|
|
|
@script = File.dirname(__FILE__) + "/err_in_callback.rb"
|
|
|
|
|
@param = create_temp_html
|
|
|
|
|
@param = "file:///" + @param.gsub(/\\/, '/')
|
|
|
|
|
end
|
|
|
|
|
end
|
|
|
|
|
|
|
|
|
|
def create_temp_html
|
|
|
|
|
fso = WIN32OLE.new('Scripting.FileSystemObject')
|
|
|
|
|
dummy_file = fso.GetTempName + ".html"
|
|
|
|
|
cfolder = fso.getFolder(".")
|
|
|
|
|
@str = "This is test HTML file for Win32OLE (#{Time.now})"
|
|
|
|
|
f = cfolder.CreateTextFile(dummy_file)
|
|
|
|
|
f.writeLine("<html><body><div id='str'>#{@str}</div></body></html>")
|
|
|
|
|
f.close
|
|
|
|
|
dummy_path = cfolder.path + "\\" + dummy_file
|
|
|
|
|
dummy_path
|
|
|
|
|
end
|
|
|
|
|
|
|
|
|
|
def test_err_in_callback
|
|
|
|
|
if @ruby
|
|
|
|
|
r = `#{@ruby} #{@iopt} #{@script} #{@param}`
|
|
|
|
|
assert_match(/NameError/, r)
|
|
|
|
|
end
|
|
|
|
|
end
|
|
|
|
|
|
|
|
|
|
def ie_quit
|
|
|
|
|
sh = WIN32OLE.new('Shell.Application')
|
|
|
|
|
sh.windows.each do |w|
|
|
|
|
|
if w.ole_type.name == 'IWebBrowser2'
|
|
|
|
|
20.times do |i|
|
|
|
|
|
if w.locationURL != "" && w.document
|
|
|
|
|
break
|
|
|
|
|
end
|
|
|
|
|
WIN32OLE_EVENT.message_loop
|
|
|
|
|
sleep 1
|
|
|
|
|
end
|
|
|
|
|
e = w.document.getElementById("str")
|
|
|
|
|
if e && e.innerHTML == @str
|
|
|
|
|
w.quit
|
|
|
|
|
WIN32OLE_EVENT.message_loop
|
|
|
|
|
sleep 0.2
|
|
|
|
|
end
|
|
|
|
|
end
|
|
|
|
|
end
|
|
|
|
|
end
|
|
|
|
|
|
|
|
|
|
def teardown
|
|
|
|
|
WIN32OLE_EVENT.message_loop
|
|
|
|
|
ie_quit
|
|
|
|
|
end
|
|
|
|
|
end
|
|
|
|
|
end
|
