lib/ruby-1.9.1-rc1/test/win32ole/test_ole_methods.rb

   1 #
   2 # This is test for [ruby-talk:196897]
   3 #
   4 begin
   5   require 'win32ole'
   6 rescue LoadError
   7 end
   8 require "test/unit"
   9
  10 if defined?(WIN32OLE)
  11   class TestWIN32OLE_FOR_PROPERTYPUTREF < Test::Unit::TestCase
  12
  13     def setup
  14       @obj = WIN32OLE.new('Scripting.Dictionary')
  15     end
  16
  17     def test_ole_methods
  18       x = @obj.ole_methods.select {|m|
  19         m.invoke_kind == 'PROPERTYPUTREF'
  20       }
  21       assert(x.size > 0)
  22       assert_equal(1, x.size)
  23       assert_equal('Item', x[0].name)
  24     end
  25
  26     def test_ole_put_methods
  27       x = @obj.ole_put_methods.select {|m|
  28         m.invoke_kind == 'PROPERTYPUTREF'
  29       }
  30       assert(x.size > 0)
  31       assert_equal(1, x.size)
  32       assert_equal('Item', x[0].name)
  33     end
  34
  35   end
  36 end