зеркало из https://github.com/github/ruby.git
svn:eol-style LF
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@18222 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
This commit is contained in:
nobu
Родитель
f421f68484
Коммит
0841c2e67b
|
|
@ -1,11 +1,11 @@
|
|||
require 'win32ole'
|
||||
ie = WIN32OLE.new('InternetExplorer.Application')
|
||||
ie.visible = true
|
||||
WIN32OLE_EVENT.message_loop
|
||||
sleep 0.2
|
||||
ev = WIN32OLE_EVENT.new(ie)
|
||||
|
||||
ev.on_event('BeforeNavigate2') {|*args|
|
||||
foo
|
||||
}
|
||||
ie.navigate(ARGV.shift)
|
||||
require 'win32ole'
|
||||
ie = WIN32OLE.new('InternetExplorer.Application')
|
||||
ie.visible = true
|
||||
WIN32OLE_EVENT.message_loop
|
||||
sleep 0.2
|
||||
ev = WIN32OLE_EVENT.new(ie)
|
||||
|
||||
ev.on_event('BeforeNavigate2') {|*args|
|
||||
foo
|
||||
}
|
||||
ie.navigate(ARGV.shift)
|
||||
|
|
|
|||
|
|
@ -1,73 +1,73 @@
|
|||
#
|
||||
# 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
|
||||
#
|
||||
# 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
|
||||
|
|
|
|||
Загрузка…
Ссылка в новой задаче