* ext/win32ole/win32ole.c (fole_func_methods): correct argument mismatch.

* ext/win32ole/win32ole.c (fole_get_methods): ditto.
	* ext/win32ole/win32ole.c (fole_put_methods): ditto.
	* ext/win32ole/tests/testWIN32OLE.rb: add test for WIN32OLE#ole_func_methods
	  WIN32OLE#ole_get_methods, WIN32OLE#ole_put_methods


git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@7051 b2dd03c8-39d4-4d8f-98ff-823fe69b080e

ChangeLog

@@ -1,3 +1,11 @@
+Sun Oct 17 12:53:46 2004  Masaki Suketa  <masaki.suketa@nifty.ne.jp>
+
+	* ext/win32ole/win32ole.c (fole_func_methods): correct argument mismatch.
+	* ext/win32ole/win32ole.c (fole_get_methods): ditto.
+	* ext/win32ole/win32ole.c (fole_put_methods): ditto.
+	* ext/win32ole/tests/testWIN32OLE.rb: add test for WIN32OLE#ole_func_methods
+	  WIN32OLE#ole_get_methods, WIN32OLE#ole_put_methods
+
 Sat Oct 16 14:45:28 2004  Kouhei Sutou  <kou@cozmixng.org>
 
 	* lib/rss/0.9.rb (RSS::Rss#to_s): removed garbage.

ext/win32ole/tests/testWIN32OLE.rb

@@ -189,6 +189,24 @@ class TestWin32OLE < RUNIT::TestCase
     method_names = methods.collect{|m| m.name}
     assert(method_names.include?("Quit"))
   end
+  def test_ole_func_methods
+    methods = @excel.ole_func_methods
+    assert(methods.size > 0)
+    method_names = methods.collect{|m| m.name}
+    assert(method_names.include?("Quit"))
+  end
+  def test_ole_put_methods
+    methods = @excel.ole_put_methods
+    assert(methods.size > 0)
+    method_names = methods.collect{|m| m.name}
+    assert(method_names.include?("Visible"))
+  end
+  def test_ole_get_methods
+    methods = @excel.ole_get_methods
+    assert(methods.size > 0)
+    method_names = methods.collect{|m| m.name}
+    assert(method_names.include?("Visible"))
+  end
   def test_ole_method_help
     quit_info = @excel.ole_method_help("Quit")
     assert_equal(0, quit_info.size_params)
@@ -202,10 +220,6 @@ class TestWin32OLE < RUNIT::TestCase
     assert(add_info.params[0].optional?)
     assert_equal('VARIANT', add_info.params[0].ole_type)
   end
-#  def test_ole_put_methods
-#    methods_list = @excel.ole_put_methods
-#    puts methods_list
-#  end
   def teardown
     @excel.quit
     @excel = nil

ext/win32ole/win32ole.c

@@ -78,7 +78,7 @@
 
 #define WC2VSTR(x) ole_wc2vstr((x), TRUE)
 
-#define WIN32OLE_VERSION "0.5.7"
+#define WIN32OLE_VERSION "0.5.8"
 
 typedef HRESULT (STDAPICALLTYPE FNCOCREATEINSTANCEEX)
     (REFCLSID, IUnknown*, DWORD, COSERVERINFO*, DWORD, MULTI_QI*);
@@ -2755,9 +2755,7 @@ fole_methods( self )
  * Returns get properties.
  */
 static VALUE
-fole_get_methods( argc, argv, self )
-    int argc;
-    VALUE *argv;
+fole_get_methods( self )
     VALUE self;
 {
     return ole_methods( self, INVOKE_PROPERTYGET);
@@ -2769,9 +2767,7 @@ fole_get_methods( argc, argv, self )
  * Returns put properties.
  */
 static VALUE
-fole_put_methods( argc, argv, self )
-    int argc;
-    VALUE *argv;
+fole_put_methods( self )
     VALUE self;
 {
     return ole_methods( self, INVOKE_PROPERTYPUT);
@@ -2783,9 +2779,7 @@ fole_put_methods( argc, argv, self )
  * Returns OLE func methods.
  */
 static VALUE
-fole_func_methods( argc, argv, self )
-    int argc;
-    VALUE *argv;
+fole_func_methods( self )
     VALUE self;
 {
     return ole_methods( self, INVOKE_FUNC);