test/win32ole/test_win32ole_method_event.rb

   1 begin
   2   require 'win32ole'
   3 rescue LoadError
   4 end
   5
   6 require 'test/unit'
   7
   8 if defined?(WIN32OLE::Method)
   9   require_relative 'available_ole'
  10   class TestWIN32OLE_METHOD_EVENT < Test::Unit::TestCase
  11     unless AvailableOLE.sysmon_available?
  12       def test_dummy_for_skip_message
  13         omit 'System Monitor Control is not available'
  14       end
  15     else
  16       def setup
  17         ole_type = WIN32OLE::Type.new('System Monitor Control', 'SystemMonitor')
  18         @on_dbl_click = WIN32OLE::Method.new(ole_type, 'OnDblClick')
  19         ole_type = WIN32OLE::Type.new('Microsoft Shell Controls And Automation', 'Shell')
  20         @namespace = WIN32OLE::Method.new(ole_type, 'namespace')
  21       end
  22
  23       def test_event?
  24         assert(@on_dbl_click.event?)
  25       end
  26
  27       def test_event_interface
  28         assert('DISystemMonitorEvents', @on_dbl_click.event_interface)
  29       end
  30
  31       def test_event_interface_is_nil
  32         assert_equal(nil, @namespace.event_interface)
  33       end
  34     end
  35   end
  36 end