diff options
| author | yugui <yugui@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2008-08-25 15:02:05 +0000 |
|---|---|---|
| committer | yugui <yugui@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2008-08-25 15:02:05 +0000 |
| commit | 0dc342de848a642ecce8db697b8fecd83a63e117 (patch) | |
| tree | 2b7ed4724aff1f86073e4740134bda9c4aac1a39 /trunk/test/win32ole/test_win32ole_variant_with_ie.rb | |
| parent | ef70cf7138ab8034b5b806f466e4b484b24f0f88 (diff) | |
added tag v1_9_0_4
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/tags/v1_9_0_4@18845 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'trunk/test/win32ole/test_win32ole_variant_with_ie.rb')
| -rw-r--r-- | trunk/test/win32ole/test_win32ole_variant_with_ie.rb | 53 |
1 files changed, 53 insertions, 0 deletions
diff --git a/trunk/test/win32ole/test_win32ole_variant_with_ie.rb b/trunk/test/win32ole/test_win32ole_variant_with_ie.rb new file mode 100644 index 0000000000..680f17ff54 --- /dev/null +++ b/trunk/test/win32ole/test_win32ole_variant_with_ie.rb @@ -0,0 +1,53 @@ +# This is test script to check WIN32OLE_VARIANT using Internet Explorer +begin + require 'win32ole' +rescue LoadError +end +require 'test/unit' + +if defined?(WIN32OLE) + class TestWIN32OLE_VARIANT_WITH_IE < Test::Unit::TestCase + def create_temp_html + fso = WIN32OLE.new('Scripting.FileSystemObject') + dummy_file = fso.GetTempName + ".html" + cfolder = fso.getFolder(".") + f = cfolder.CreateTextFile(dummy_file) + f.writeLine("<html><body>This is test HTML file for Win32OLE.</body></html>") + f.close + dummy_path = cfolder.path + "\\" + dummy_file + dummy_path + end + def setup + @f = create_temp_html + @ie = WIN32OLE.new('InternetExplorer.Application') + @ie.visible = true + @ie.navigate("file:///#{@f}") + while @ie.busy + sleep 0.5 + end + end + def test_variant_ref_and_argv + @ie.execWB(19, 0, nil, -1) + size = WIN32OLE::ARGV[3] + assert(size >= 0) + + obj = WIN32OLE_VARIANT.new(nil, WIN32OLE::VARIANT::VT_VARIANT|WIN32OLE::VARIANT::VT_BYREF) + @ie.execWb(19, 0, nil, obj) + assert_equal(size, obj.value) + assert_equal(size, WIN32OLE::ARGV[3]) + + obj = WIN32OLE_VARIANT.new(-1, WIN32OLE::VARIANT::VT_VARIANT|WIN32OLE::VARIANT::VT_BYREF) + @ie.execWb(19, 0, nil, obj) + assert_equal(size, obj.value) + assert_equal(size, WIN32OLE::ARGV[3]) + end + + def teardown + File.unlink(@f) + if @ie + @ie.quit + @ie = nil + end + end + end +end |