# # 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("

#{@str}

") 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