diff options
Diffstat (limited to 'ext/win32ole/tests/testINVOKEVERB.rb')
-rw-r--r-- | ext/win32ole/tests/testINVOKEVERB.rb | 68 |
1 files changed, 0 insertions, 68 deletions
diff --git a/ext/win32ole/tests/testINVOKEVERB.rb b/ext/win32ole/tests/testINVOKEVERB.rb deleted file mode 100644 index 96b3e2f88f..0000000000 --- a/ext/win32ole/tests/testINVOKEVERB.rb +++ /dev/null @@ -1,68 +0,0 @@ -# -# This script check that Win32OLE can execute InvokeVerb method of FolderItem2. -# - -require 'test/unit' -require 'win32ole' - -class TestInvokeVerb < Test::Unit::TestCase - def setup - # - # make dummy.txt file for InvokeVerb test. - # - ofs = open('dummy.txt', 'w') - ofs.write('this is test') - ofs.close - - @fso = WIN32OLE.new('Scripting.FileSystemObject') - @dummy_path = @fso.GetAbsolutePathName('dummy.txt') - - @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 test_invokeverb - # We expect there is no shortcut in this folder. - link = Dir["*.lnk"].find {|f| true} - assert(!link) - - # Now create shortcut to "dummy.txt" - assert(@shortcut) - arg = WIN32OLE_VARIANT.new(@shortcut) - @fi2.InvokeVerb(arg) - - # We expect there is shortcut in this folder - link = Dir["*.lnk"].find {|f| true} - assert(link) - - # The shortcut is to the "dummy.txt" - @lpath = @fso.GetAbsolutePathName(link) - linkinfo = @shell.NameSpace(@lpath).Self.GetLink - assert_equal(@dummy_path, linkinfo.path) - end - - def teardown - if @lpath - @fso.deleteFile(@lpath) - end - if @dummy_path - @fso.deleteFile(@dummy_path) - end - end - -end - |