add testNIL2VTEMPTY.rb

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@9366 b2dd03c8-39d4-4d8f-98ff-823fe69b080e

2 files changed, 30 insertions, 0 deletions

diff --git a/ext/win32ole/tests/testNIL2VTEMPTY.rb b/ext/win32ole/tests/testNIL2VTEMPTY.rb
new file mode 100644
index 0000000000..555d35fbf3
--- /dev/null
+++ b/ext/win32ole/tests/testNIL2VTEMPTY.rb
@@ -0,0 +1,28 @@
+# This is test script to check that WIN32OLE should convert nil to VT_EMPTY in second try.
+# [ruby-talk:137054]
+
+require 'win32ole'
+require 'test/unit'
+
+class TestNIL2VT_EMPTY < Test::Unit::TestCase
+  def setup
+    fs = WIN32OLE.new('Scripting.FileSystemObject')
+    @path = fs.GetFolder(".").path
+  end
+  def test_openSchema
+    con = nil
+    begin
+      con = WIN32OLE.new('ADODB.Connection')
+      con.connectionString = "Provider=MSDASQL;Extended Properties="
+      con.connectionString +="\"DRIVER={Microsoft Text Driver (*.txt; *.csv)};DBQ=#{@path}\""
+      con.open
+    rescue
+      con = nil
+    end
+    if con
+      rs = con.openSchema(4, [nil,nil,"DUMMY", "TABLE"])
+      assert(rs)
+    end
+  end
+end
+
diff --git a/ext/win32ole/tests/testall.rb b/ext/win32ole/tests/testall.rb
index a87b6bceaf..c3e2b9499a 100644
--- a/ext/win32ole/tests/testall.rb
+++ b/ext/win32ole/tests/testall.rb
@@ -10,3 +10,5 @@ require "testVARIANT"
 require "testOLETYPELIB"
 require "testOLEVARIANT"
 require "testOLEEVENT"
+require "testNIL2VTEMPTY"
+require "testINVOKEVERB"