From 33311b653cca4bb3ac0b209f3b7ce23e3e4defb8 Mon Sep 17 00:00:00 2001 From: suke Date: Sun, 18 Jun 2006 11:34:53 +0000 Subject: support PROPERTYPUTREF. [ruby-talk:183042] git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@10316 b2dd03c8-39d4-4d8f-98ff-823fe69b080e --- test/win32ole/test_ole_methods.rb | 36 ++++++++++++++++++++++++++++++++++++ 1 file changed, 36 insertions(+) create mode 100644 test/win32ole/test_ole_methods.rb (limited to 'test/win32ole/test_ole_methods.rb') diff --git a/test/win32ole/test_ole_methods.rb b/test/win32ole/test_ole_methods.rb new file mode 100644 index 0000000000..4b777a7eba --- /dev/null +++ b/test/win32ole/test_ole_methods.rb @@ -0,0 +1,36 @@ +# +# This is test for [ruby-talk:196897] +# +begin + require 'win32ole' +rescue LoadError +end +require "test/unit" + +if defined?(WIN32OLE) + class TestWIN32OLE < Test::Unit::TestCase + + def setup + @obj = WIN32OLE.new('Scripting.Dictionary') + end + + def test_ole_methods + x = @obj.ole_methods.select {|m| + m.invoke_kind == 'PROPERTYPUTREF' + } + assert(x.size > 0) + assert_equal(1, x.size) + assert_equal('Item', x[0].name) + end + + def test_ole_put_methods + x = @obj.ole_put_methods.select {|m| + m.invoke_kind == 'PROPERTYPUTREF' + } + assert(x.size > 0) + assert_equal(1, x.size) + assert_equal('Item', x[0].name) + end + + end +end -- cgit v1.2.3