test/win32ole/test_win32ole_method_event.rb


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36

begin
  require 'win32ole'
rescue LoadError
end

require 'test/unit'

if defined?(WIN32OLE::Method)
  require_relative 'available_ole'
  class TestWIN32OLE_METHOD_EVENT < Test::Unit::TestCase
    unless AvailableOLE.sysmon_available?
      def test_dummy_for_skip_message
        omit 'System Monitor Control is not available'
      end
    else
      def setup
        ole_type = WIN32OLE::Type.new('System Monitor Control', 'SystemMonitor')
        @on_dbl_click = WIN32OLE::Method.new(ole_type, 'OnDblClick')
        ole_type = WIN32OLE::Type.new('Microsoft Shell Controls And Automation', 'Shell')
        @namespace = WIN32OLE::Method.new(ole_type, 'namespace')
      end

      def test_event?
        assert(@on_dbl_click.event?)
      end

      def test_event_interface
        assert('DISystemMonitorEvents', @on_dbl_click.event_interface)
      end

      def test_event_interface_is_nil
        assert_equal(nil, @namespace.event_interface)
      end
    end
  end
end