* ext/win32ole/win32ole.c (ole_type_progid): progid getted by

  ProgIDFromCLSID should be freed by CoTaskMemFree. Thanks, arton.

* test/win32ole/test_win32ole.rb (test_raise_message): set negative
  compareMode value to raise WIN32OLERuntimeError.

* test/win32ole/test_win32ole_type.rb (test_implemented_ole_types):
  support some environment which returns IShellDispatch5 instead 
  of IShellDispatch.



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

2 files changed, 2 insertions, 2 deletions

diff --git a/test/win32ole/test_win32ole.rb b/test/win32ole/test_win32ole.rb
index cf39c7681d..06d4713375 100644
--- a/test/win32ole/test_win32ole.rb
+++ b/test/win32ole/test_win32ole.rb
@@ -50,7 +50,7 @@ if defined?(WIN32OLE)
       assert_match(/^\(in OLE method `<dispatch id:1>': \)/, exc.message)
 
       exc = assert_raise(WIN32OLERuntimeError) {
-        @dict1.compareMode = 100
+        @dict1.compareMode = -1
       }
       assert_match(/^\(in setting property `compareMode': \)/, exc.message)
     end
diff --git a/test/win32ole/test_win32ole_type.rb b/test/win32ole/test_win32ole_type.rb
index 1674604fce..3ef62b10d1 100644
--- a/test/win32ole/test_win32ole_type.rb
+++ b/test/win32ole/test_win32ole_type.rb
@@ -152,7 +152,7 @@ if defined?(WIN32OLE_TYPE)
       ole_types = @ole_type.implemented_ole_types
       assert_instance_of(Array, ole_types)
       assert(ole_types.size > 0)
-      assert_equal("IShellDispatch", ole_types[0].name)
+      assert_match(/^IShellDispatch5{0,1}$/, ole_types[0].name)
     end
 
     def test_inspect