kotovalexarian-likes-github/ruby--ruby
1
0
Fork 0
mirror of https://github.com/ruby/ruby.git synced 2022-11-09 12:17:21 -05:00
Code Releases Activity

The return value of WIN32OLE#ole_methods and WIN32OLE#ole_put_methods

Browse source 
should include PROPERTYPUTREF methods.


git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/branches/ruby_1_8@10277 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
This commit is contained in:
suke 2006-06-15 14:11:02 +00:00
parent 72e8f4fd3f
commit 20359b9bb2
4 changed files with 52 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

12
ChangeLog
View file

@ -1,3 +1,15 @@
Thu Jun 15 23:02:47 2006 Masaki Suketa <masaki.suketa@nifty.ne.jp>
* ext/win32ole/win32ole.c (fole_methods): The return value
of WIN32OLE#ole_methods should include PROPERTYPUTREF methods.
* ext/win32ole/win32ole.c (fole_put_methods): The return value
of WIN32OLE#ole_put_methods should include PROPERTYPUTREF methods.
* ext/win32ole/tests/test_ole_methods.rb : ditto.
* ext/win32ole/tests/testall.rb : ditto.
Wed Jun 14 18:23:28 2006 Eric Hodel <drbrain@segment7.net>
* enum.c (enum_any): Documentation typo.

36
ext/win32ole/tests/test_ole_methods.rb Normal file
View file

@ -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

1
ext/win32ole/tests/testall.rb
View file

@ -9,4 +9,5 @@ require "testOLEMETHOD"
require "testOLEVARIABLE"
require "testVARIANT"
require "testNIL2VTEMPTY"
require "test_ole_methods.rb"
# require "testOLEEVENT"

6
ext/win32ole/win32ole.c
View file

@ -78,7 +78,7 @@
#define WC2VSTR(x) ole_wc2vstr((x), TRUE)
#define WIN32OLE_VERSION "0.6.6"
#define WIN32OLE_VERSION "0.6.7"
typedef HRESULT (STDAPICALLTYPE FNCOCREATEINSTANCEEX)
(REFCLSID, IUnknown*, DWORD, COSERVERINFO*, DWORD, MULTI_QI*);
@ -2914,7 +2914,7 @@ static VALUE
fole_methods( self )
VALUE self;
{
return ole_methods( self, INVOKE_FUNC | INVOKE_PROPERTYGET | INVOKE_PROPERTYPUT);
return ole_methods( self, INVOKE_FUNC | INVOKE_PROPERTYGET | INVOKE_PROPERTYPUT | INVOKE_PROPERTYPUTREF);
}
/*
@ -2948,7 +2948,7 @@ static VALUE
fole_put_methods( self )
VALUE self;
{
return ole_methods( self, INVOKE_PROPERTYPUT);
return ole_methods( self, INVOKE_PROPERTYPUT | INVOKE_PROPERTYPUTREF);
}
/*