mirror of
https://github.com/ruby/ruby.git
synced 2022-11-09 12:17:21 -05:00
*** empty log message ***
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@10133 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
This commit is contained in:
suke
parent
2bdd9d6eba
commit
119b7a0534
2 changed files with 0 additions and 221 deletions
|
|
@ -1,136 +0,0 @@
|
||||||
begin
|
|
||||||
require 'win32ole'
|
|
||||||
rescue LoadError
|
|
||||||
end
|
|
||||||
|
|
||||||
require "test/unit"
|
|
||||||
|
|
||||||
if defined?(WIN32OLE_METHOD)
|
|
||||||
class TestWIN32OLE_METHOD < Test::Unit::TestCase
|
|
||||||
|
|
||||||
def setup
|
|
||||||
ole_type = WIN32OLE_TYPE.new("Microsoft Shell Controls And Automation", "Shell")
|
|
||||||
@m_open = WIN32OLE_METHOD.new(ole_type, "open")
|
|
||||||
@m_namespace = WIN32OLE_METHOD.new(ole_type, "namespace")
|
|
||||||
@m_parent = WIN32OLE_METHOD.new(ole_type, "parent")
|
|
||||||
@m_invoke = WIN32OLE_METHOD.new(ole_type, "invoke")
|
|
||||||
@m_browse_for_folder = WIN32OLE_METHOD.new(ole_type, "BrowseForFolder")
|
|
||||||
|
|
||||||
ole_type = WIN32OLE_TYPE.new("Microsoft Scripting Runtime", "File")
|
|
||||||
@m_file_name = WIN32OLE_METHOD.new(ole_type, "name")
|
|
||||||
|
|
||||||
ole_type = WIN32OLE_TYPE.new("Microsoft Internet Controls", "WebBrowser")
|
|
||||||
@m_navigate_complete = WIN32OLE_METHOD.new(ole_type, "NavigateComplete")
|
|
||||||
end
|
|
||||||
|
|
||||||
def test_initialize
|
|
||||||
ole_type = WIN32OLE_TYPE.new("Microsoft Shell Controls And Automation", "Shell")
|
|
||||||
assert_raise(ArgumentError) {
|
|
||||||
method = WIN32OLE_METHOD.new("foo")
|
|
||||||
}
|
|
||||||
assert_raise(ArgumentError) {
|
|
||||||
method = WIN32OLE_METHOD.new(ole_type)
|
|
||||||
}
|
|
||||||
assert_raise(WIN32OLERuntimeError) {
|
|
||||||
method = WIN32OLE_METHOD.new(ole_type, "NonExistMethod")
|
|
||||||
}
|
|
||||||
method = WIN32OLE_METHOD.new(ole_type, "Open")
|
|
||||||
assert_instance_of(WIN32OLE_METHOD, method)
|
|
||||||
method = WIN32OLE_METHOD.new(ole_type, "open")
|
|
||||||
assert_instance_of(WIN32OLE_METHOD, method)
|
|
||||||
end
|
|
||||||
|
|
||||||
def test_name
|
|
||||||
assert_equal("Open", @m_open.name)
|
|
||||||
end
|
|
||||||
|
|
||||||
def test_return_type
|
|
||||||
assert_equal("VOID", @m_open.return_type)
|
|
||||||
assert_equal("Folder", @m_namespace.return_type)
|
|
||||||
end
|
|
||||||
|
|
||||||
def test_return_vtype
|
|
||||||
assert_equal(24, @m_open.return_vtype)
|
|
||||||
assert_equal(26, @m_namespace.return_vtype)
|
|
||||||
end
|
|
||||||
|
|
||||||
def test_return_type_detail
|
|
||||||
assert_equal(['VOID'], @m_open.return_type_detail)
|
|
||||||
assert_equal(['PTR', 'USERDEFINED', 'Folder'], @m_namespace.return_type_detail)
|
|
||||||
end
|
|
||||||
|
|
||||||
def test_invoke_kind
|
|
||||||
assert_equal('FUNC', @m_open.invoke_kind)
|
|
||||||
assert_equal('FUNC', @m_namespace.invoke_kind)
|
|
||||||
assert_equal('PROPERTYGET', @m_parent.invoke_kind)
|
|
||||||
end
|
|
||||||
|
|
||||||
def test_invkind
|
|
||||||
assert_equal(1, @m_namespace.invkind)
|
|
||||||
assert_equal(2, @m_parent.invkind)
|
|
||||||
end
|
|
||||||
|
|
||||||
def test_visible?
|
|
||||||
assert(@m_namespace.visible?)
|
|
||||||
assert(!@m_invoke.visible?)
|
|
||||||
end
|
|
||||||
|
|
||||||
def test_event?
|
|
||||||
assert(@m_navigate_complete.event?)
|
|
||||||
assert(!@m_namespace.event?)
|
|
||||||
end
|
|
||||||
|
|
||||||
def test_event_interface
|
|
||||||
assert_equal("DWebBrowserEvents", @m_navigate_complete.event_interface)
|
|
||||||
assert_equal(nil, @m_namespace.event_interface)
|
|
||||||
end
|
|
||||||
|
|
||||||
def test_helpstring
|
|
||||||
assert_equal("Get special folder from ShellSpecialFolderConstants", @m_namespace.helpstring)
|
|
||||||
end
|
|
||||||
|
|
||||||
def test_helpfile
|
|
||||||
assert_equal("", @m_namespace.helpfile)
|
|
||||||
assert_match(/VBENLR.*\.CHM$/i, @m_file_name.helpfile)
|
|
||||||
end
|
|
||||||
|
|
||||||
def test_helpcontext
|
|
||||||
assert_equal(0, @m_namespace.helpcontext)
|
|
||||||
assert_equal(2181996, @m_file_name.helpcontext)
|
|
||||||
end
|
|
||||||
|
|
||||||
def test_dispid
|
|
||||||
assert_equal(1610743810, @m_namespace.dispid)
|
|
||||||
end
|
|
||||||
|
|
||||||
def test_offset_vtbl
|
|
||||||
assert_equal(24, @m_invoke.offset_vtbl)
|
|
||||||
end
|
|
||||||
|
|
||||||
def test_size_params
|
|
||||||
assert_equal(1, @m_open.size_params)
|
|
||||||
assert_equal(4, @m_browse_for_folder.size_params)
|
|
||||||
end
|
|
||||||
|
|
||||||
def test_size_opt_params
|
|
||||||
assert_equal(0, @m_open.size_opt_params)
|
|
||||||
assert_equal(1, @m_browse_for_folder.size_opt_params)
|
|
||||||
end
|
|
||||||
|
|
||||||
def test_params
|
|
||||||
params = @m_browse_for_folder.params
|
|
||||||
assert_instance_of(Array, params)
|
|
||||||
assert_equal(4, params.size)
|
|
||||||
assert_instance_of(WIN32OLE_PARAM, params[0])
|
|
||||||
end
|
|
||||||
|
|
||||||
def test_to_s
|
|
||||||
assert_equal(@m_namespace.name, @m_namespace.to_s)
|
|
||||||
end
|
|
||||||
|
|
||||||
def test_inspect
|
|
||||||
assert_equal("#<WIN32OLE_METHOD:NameSpace>", @m_namespace.inspect)
|
|
||||||
end
|
|
||||||
|
|
||||||
end
|
|
||||||
end
|
|
||||||
|
|
@ -1,85 +0,0 @@
|
||||||
begin
|
|
||||||
require 'win32ole'
|
|
||||||
rescue LoadError
|
|
||||||
end
|
|
||||||
|
|
||||||
require "test/unit"
|
|
||||||
|
|
||||||
if defined?(WIN32OLE_PARAM)
|
|
||||||
class TestWIN32OLE_PARAM < Test::Unit::TestCase
|
|
||||||
|
|
||||||
def setup
|
|
||||||
ole_type = WIN32OLE_TYPE.new("Microsoft Internet Controls", "WebBrowser")
|
|
||||||
m_navigate = WIN32OLE_METHOD.new(ole_type, "Navigate")
|
|
||||||
m_before_navigate = WIN32OLE_METHOD.new(ole_type, "BeforeNavigate")
|
|
||||||
params = m_navigate.params
|
|
||||||
@param_url = params[0]
|
|
||||||
@param_flags = params[1]
|
|
||||||
@param_cancel = m_before_navigate.params[5]
|
|
||||||
|
|
||||||
ole_type = WIN32OLE_TYPE.new("Microsoft Shell Controls And Automation", "ShellLinkObject")
|
|
||||||
m_geticonlocation = WIN32OLE_METHOD.new(ole_type, "GetIconLocation")
|
|
||||||
@param_pbs = m_geticonlocation.params[0]
|
|
||||||
|
|
||||||
ole_type = WIN32OLE_TYPE.new("Microsoft HTML Object Library", "FontNames")
|
|
||||||
m_count = WIN32OLE_METHOD.new(ole_type, "Count")
|
|
||||||
@param_p = m_count.params[0]
|
|
||||||
|
|
||||||
ole_type = WIN32OLE_TYPE.new("Microsoft Scripting Runtime", "FileSystemObject")
|
|
||||||
m_copyfile = WIN32OLE_METHOD.new(ole_type, "CopyFile")
|
|
||||||
@param_overwritefiles = m_copyfile.params[2]
|
|
||||||
end
|
|
||||||
|
|
||||||
def test_name
|
|
||||||
assert_equal('URL', @param_url.name)
|
|
||||||
assert_equal('Flags', @param_flags.name)
|
|
||||||
assert_equal('Cancel', @param_cancel.name)
|
|
||||||
end
|
|
||||||
|
|
||||||
def test_ole_type
|
|
||||||
assert_equal('BSTR', @param_url.ole_type)
|
|
||||||
assert_equal('VARIANT', @param_flags.ole_type)
|
|
||||||
end
|
|
||||||
|
|
||||||
def test_ole_type_detail
|
|
||||||
assert_equal(['BSTR'], @param_url.ole_type_detail)
|
|
||||||
assert_equal(['PTR', 'VARIANT'], @param_flags.ole_type_detail)
|
|
||||||
end
|
|
||||||
|
|
||||||
def test_input?
|
|
||||||
assert(@param_url.input?)
|
|
||||||
assert(@param_cancel.input?)
|
|
||||||
assert(!@param_pbs.input?)
|
|
||||||
end
|
|
||||||
|
|
||||||
def test_output?
|
|
||||||
assert(!@param_url.output?)
|
|
||||||
assert(@param_cancel.output?)
|
|
||||||
assert(@param_pbs.output?)
|
|
||||||
end
|
|
||||||
|
|
||||||
def test_optional?
|
|
||||||
assert(!@param_url.optional?)
|
|
||||||
assert(@param_flags.optional?)
|
|
||||||
end
|
|
||||||
|
|
||||||
def test_retval?
|
|
||||||
assert(!@param_url.retval?)
|
|
||||||
assert(@param_p.retval?)
|
|
||||||
end
|
|
||||||
|
|
||||||
def test_default
|
|
||||||
assert_equal(nil, @param_url.default)
|
|
||||||
assert_equal(true, @param_overwritefiles.default)
|
|
||||||
end
|
|
||||||
|
|
||||||
def test_to_s
|
|
||||||
assert_equal(@param_url.name, @param_url.to_s)
|
|
||||||
end
|
|
||||||
|
|
||||||
def test_inspect
|
|
||||||
assert_equal("#<WIN32OLE_PARAM:URL>", @param_url.inspect)
|
|
||||||
assert_equal("#<WIN32OLE_PARAM:OverWriteFiles=true>", @param_overwritefiles.inspect)
|
|
||||||
end
|
|
||||||
end
|
|
||||||
end
|
|
||||||
Loading…
Reference in a new issue