ext/win32ole/win32ole.c (add_event_call_back): should not

 delete event handler when the event name is not entried.


git-svn-id: http://svn.ruby-lang.org/repos/ruby/trunk@10125 b2dd03c8-39d4-4d8f-98ff-823fe69b080e

1 files changed, 80 insertions, 0 deletions

diff --git a/test/win32ole/test_folderitem2_invokeverb.rb b/test/win32ole/test_folderitem2_invokeverb.rb
new file mode 100644
index 000000000..070768468
--- /dev/null
+++ b/test/win32ole/test_folderitem2_invokeverb.rb
@@ -0,0 +1,80 @@
+#
+# This script check that Win32OLE can execute InvokeVerb method of FolderItem2.
+#
+
+begin
+  require 'win32ole'
+rescue
+end
+
+require 'test/unit'
+
+if defined?(WIN32OLE)
+  class TestInvokeVerb < Test::Unit::TestCase
+    def setup
+      #
+      # make dummy.txt file for InvokeVerb test.
+      #
+
+      @fso = WIN32OLE.new('Scripting.FileSystemObject')
+      @dummy_path = @fso.GetTempName
+      @cfolder = @fso.getFolder(".")
+      f = @cfolder.CreateTextFile(@dummy_path)
+      f.close
+      @dummy_path = @cfolder.path + "\\" + @dummy_path
+
+      @shell=WIN32OLE.new('Shell.Application')
+      @fi2 = @shell.NameSpace(@dummy_path).ParentFolder.ParseName(@shell.NameSpace(@dummy_path).Title)
+      @shortcut = nil
+
+      #
+      # Search the 'Create Shortcut (&S)' string.
+      # Yes, I know the string in the Windows 2000 Japanese Edition.
+      # But I do not know about the string in any other Windows.
+      # 
+      verbs = @fi2.verbs
+      verbs.extend(Enumerable)
+      @shortcut = verbs.collect{|verb| 
+        verb.name
+      }.find {|name|
+        /.*\(\&S\)$/ =~ name
+      }
+    end
+
+    def find_link(path)
+      arlink = []
+      @cfolder.files.each do |f|
+        if /\.lnk$/ =~ f.path
+          linkinfo = @shell.NameSpace(f.path).self.getlink
+          arlink.push f if linkinfo.path == path
+        end
+      end
+      arlink
+    end
+
+    def test_invokeverb
+      links = find_link(@dummy_path)
+      assert(0, links.size)
+
+      # Now create shortcut to @dummy_path
+      assert(@shortcut)
+      arg = WIN32OLE_VARIANT.new(@shortcut)
+      @fi2.InvokeVerb(arg)
+
+      # Now search shortcut to @dummy_path
+      links = find_link(@dummy_path)
+      assert(1, links.size)
+      @lpath = links[0].path
+    end
+
+    def teardown
+      if @lpath
+        @fso.deleteFile(@lpath)
+      end
+      if @dummy_path
+        @fso.deleteFile(@dummy_path)
+      end
+    end
+
+  end
+end