suke	2008-07-12 09:31:32 +0900 (Sat, 12 Jul 2008)

  New Revision: 18035

  http://svn.ruby-lang.org/cgi-bin/viewvc.cgi?view=rev&revision=18035

  Log:
    * test/win32ole/test_win32ole_event.rb: add test
      for WIN32OLE_EVENT#on_event_with_outargs
    
    * test/win32ole/test_win32ole_event.rb(teardown): calling 
      WIN32OLE_EVENT.message_loop

  Modified files:
    trunk/ChangeLog
    trunk/test/win32ole/test_win32ole_event.rb

Index: ChangeLog
===================================================================
--- ChangeLog	(revision 18034)
+++ ChangeLog	(revision 18035)
@@ -1,3 +1,11 @@
+Sat Jul 12 09:25:07 2008  Masaki Suketa  <masaki.suketa@n...>
+
+	* test/win32ole/test_win32ole_event.rb: add test
+	  for WIN32OLE_EVENT#on_event_with_outargs
+
+	* test/win32ole/test_win32ole_event.rb(teardown): calling 
+	  WIN32OLE_EVENT.message_loop
+
 Sat Jul 12 01:54:13 2008  NAKAMURA Usaku  <usa@r...>
 
 	* win32/win32.c (rb_w32_select): shoudn't pass non-socket handle to
Index: test/win32ole/test_win32ole_event.rb
===================================================================
--- test/win32ole/test_win32ole_event.rb	(revision 18034)
+++ test/win32ole/test_win32ole_event.rb	(revision 18035)
@@ -69,6 +69,7 @@
       ev.on_event('BeforeNavigate') {|*args| handler2}
       @ie.navigate("file:///#{@f}")
       while @ie.busy
+        WIN32OLE_EVENT.message_loop
         sleep 0.1
       end
       assert_equal("handler2", @event2)
@@ -80,6 +81,7 @@
       ev.on_event {|*args| handler2}
       @ie.navigate("file:///#{@f}")
       while @ie.busy
+        WIN32OLE_EVENT.message_loop
         sleep 0.1
       end
       assert_equal("handler2", @event2)
@@ -92,6 +94,7 @@
       ev.on_event('NavigateComplete'){|*args| handler3(*args)}
       @ie.navigate("file:///#{@f}")
       while @ie.busy
+        WIN32OLE_EVENT.message_loop
         sleep 0.1
       end
       assert(@event3!="")
@@ -104,6 +107,7 @@
       ev.on_event('NavigateComplete'){|*args| handler3(*args)}
       @ie.navigate("file:///#{@f}")
       while @ie.busy
+        WIN32OLE_EVENT.message_loop
         sleep 0.1
       end
       assert_match(/BeforeNavigate/, @event)
@@ -116,6 +120,7 @@
       ev.on_event {|*args| default_handler(*args)}
       @ie.navigate("file:///#{@f}")
       while @ie.busy
+        WIN32OLE_EVENT.message_loop
         sleep 0.1
       end
       assert_match(/BeforeNavigate/, @event)
@@ -123,6 +128,7 @@
       @event = ""
       @ie.navigate("file:///#{@f}")
       while @ie.busy
+        WIN32OLE_EVENT.message_loop
         sleep 0.1
       end
       assert_equal("", @event);
@@ -141,6 +147,23 @@
       }
     end
 
+    def test_on_event_with_outargs
+      ev = WIN32OLE_EVENT.new(@ie)
+      # ev.on_event_with_outargs('BeforeNavigate'){|*args|
+      #  args.last[5] = true # Cancel = true
+      # }
+      ev.on_event_with_outargs('BeforeNavigate2'){|*args|
+        args.last[6] = true # Cancel = true
+      }
+      bl = @ie.locationURL
+      @ie.navigate("file:///#{@f}")
+      while @ie.busy
+        sleep 0.1
+        WIN32OLE_EVENT.message_loop
+      end
+      assert_equal(bl, @ie.locationURL)
+    end
+
     def handler1
       @event2 = "handler1"
     end
@@ -155,6 +178,7 @@
 
     def teardown
       @ie.quit
+      WIN32OLE_EVENT.message_loop
       @ie = nil
       File.unlink(@f)
       GC.start

--
ML: ruby-changes@q...
Info: http://www.atdot.net/~ko1/quickml/