From 54c4ab1f74a000540bf685084726b46196e92c0b Mon Sep 17 00:00:00 2001
From: suke <suke@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Sun, 9 Oct 2005 02:31:46 +0000
Subject: [PATCH] add testNIL2VTEMPTY

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/branches/ruby_1_8@9364 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 ext/win32ole/tests/testNIL2VTEMPTY.rb | 28 +++++++++++++++++++++++++++
 ext/win32ole/tests/testall.rb         |  1 +
 2 files changed, 29 insertions(+)
 create mode 100644 ext/win32ole/tests/testNIL2VTEMPTY.rb

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 17bae2c810..4835bac748 100644
--- a/ext/win32ole/tests/testall.rb
+++ b/ext/win32ole/tests/testall.rb
@@ -8,4 +8,5 @@ require "testOLEPARAM"
 require "testOLEMETHOD"
 require "testOLEVARIABLE"
 require "testVARIANT"
+require "testNIL2VTEMPTY"
 # require "testOLEEVENT"