aboutsummaryrefslogtreecommitdiffstats
path: root/ext/win32ole/tests/testINVOKEVERB.rb
diff options
context:
space:
mode:
Diffstat (limited to 'ext/win32ole/tests/testINVOKEVERB.rb')
-rw-r--r--ext/win32ole/tests/testINVOKEVERB.rb68
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
-