From 88ea87db21a45da7f803155bdf66de0290acba43 Mon Sep 17 00:00:00 2001 From: suke Date: Sun, 12 Mar 2006 08:09:48 +0000 Subject: * ext/win32ole/win32ole.c(ole_val2olevariantdata): support VT_VARIANT in WIN32OLE_VARIANT.new(). * ext/win32ole/tests/testOLEVARIANT.rb: ditto. * ext/win32ole/tests/testOLEPARAM.rb: test method name should not be duplicated. git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@10032 b2dd03c8-39d4-4d8f-98ff-823fe69b080e --- ext/win32ole/tests/testOLEPARAM.rb | 2 +- ext/win32ole/tests/testOLEVARIANT.rb | 5 +++++ 2 files changed, 6 insertions(+), 1 deletion(-) (limited to 'ext/win32ole/tests') diff --git a/ext/win32ole/tests/testOLEPARAM.rb b/ext/win32ole/tests/testOLEPARAM.rb index 685b548aa5..6baeee5eb3 100644 --- a/ext/win32ole/tests/testOLEPARAM.rb +++ b/ext/win32ole/tests/testOLEPARAM.rb @@ -62,7 +62,7 @@ class TestOLEPARAM < RUNIT::TestCase f = methods.find {|m| m.name == 'SaveAs'} assert(f.params[0].optional?) end - def test_ole_type_detail + def test_ole_type_detail2 classes = WIN32OLE_TYPE.ole_classes(MS_EXCEL_TYPELIB) methods = classes.find {|c| c.name == 'Worksheet'}.ole_methods f = methods.find {|m| m.name == 'SaveAs'} diff --git a/ext/win32ole/tests/testOLEVARIANT.rb b/ext/win32ole/tests/testOLEVARIANT.rb index a9a52a826f..d94eede2da 100644 --- a/ext/win32ole/tests/testOLEVARIANT.rb +++ b/ext/win32ole/tests/testOLEVARIANT.rb @@ -71,4 +71,9 @@ class TestWIN32OLE_VARIANT < Test::Unit::TestCase assert_equal("10000", obj.value) end + def test_create_vt_array + obj = WIN32OLE_VARIANT.new([1.2, 2.3], WIN32OLE::VARIANT::VT_ARRAY|WIN32OLE::VARIANT::VT_R8) + assert_equal([1.2, 2.3], obj.value) + end + end -- cgit v1.2.3