From 87f80a7dd7ab801e6645a22a33d3a818daa861e4 Mon Sep 17 00:00:00 2001
From: suke <suke@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Fri, 25 Jul 2008 11:59:53 +0000
Subject: * test/win32ole/err_in_callback.rb : add test of raising   exception
 in WIN32OLE_EVENT callback.

* test/win32ole/test_err_in_callback.rb : ditto.


git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@18215 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 test/win32ole/err_in_callback.rb | 11 +++++++++++
 1 file changed, 11 insertions(+)
 create mode 100644 test/win32ole/err_in_callback.rb

(limited to 'test/win32ole/err_in_callback.rb')

diff --git a/test/win32ole/err_in_callback.rb b/test/win32ole/err_in_callback.rb
new file mode 100644
index 0000000000..03888697e8
--- /dev/null
+++ b/test/win32ole/err_in_callback.rb
@@ -0,0 +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)
-- 
cgit v1.2.3