ruby-oci8 1.0.7 → 2.0.0

data/test/test_break.rb

@@ -1,10 +1,17 @@
 # High-level API
 require 'oci8'
-require 'runit/testcase'
-require 'runit/cui/testrunner'
+require 'test/unit'
 require File.dirname(__FILE__) + '/config'
 
-class TestBreak < RUNIT::TestCase
+class TestBreak < Test::Unit::TestCase
+
+  def setup
+    @conn = get_oci8_connection
+  end
+
+  def teardown
+    @conn.logoff
+  end
 
   def report(str)
     printf "%d: %s\n", (Time.now - $start_time), str
@@ -14,8 +21,8 @@ class TestBreak < RUNIT::TestCase
   OCIBREAK = 2
   SEND_BREAK = 3
 
-  TIME_IN_PLSQL = 3
-  TIME_TO_BREAK = 1
+  TIME_IN_PLSQL = 5
+  TIME_TO_BREAK = 2
   MARGIN = 0.1
 
   def do_test_ocibreak(conn, expect)
@@ -24,58 +31,53 @@ class TestBreak < RUNIT::TestCase
     th = Thread.start do 
       begin
 	conn.exec("BEGIN DBMS_LOCK.SLEEP(#{TIME_IN_PLSQL}); END;")
-	assert_equal(expect[PLSQL_DONE], (Time.now - $start_time + MARGIN).to_i)
+	assert_equal(expect[PLSQL_DONE], (Time.now - $start_time + MARGIN).to_i, 'PLSQL_DONE')
       rescue OCIBreak
-	assert_equal(expect[OCIBREAK], (Time.now - $start_time + MARGIN).to_i)
+	assert_equal(expect[OCIBREAK], (Time.now - $start_time + MARGIN).to_i, 'OCIBREAK')
       end
     end
 
+    sleep(0.01) # make a time to run DBMS_LOCK.SLEEP
     sleep(TIME_TO_BREAK)
-    assert_equal(expect[SEND_BREAK], (Time.now - $start_time + MARGIN).to_i)
+    assert_equal(expect[SEND_BREAK], (Time.now - $start_time + MARGIN).to_i, 'SEND_BREAK')
     conn.break()
     th.join
   end
 
-  def test_set_blocking_mode
-    conn = get_oci_connection()
-    conn.non_blocking = true
-    assert_equal(true, conn.non_blocking?)
-    conn.non_blocking = false
-    assert_equal(false, conn.non_blocking?)
-    conn.non_blocking = true
-    assert_equal(true, conn.non_blocking?)
-    conn.logoff()
-  end
-
   def test_blocking_mode
-    conn = get_oci_connection()
-    conn.non_blocking = false
+    @conn.non_blocking = false
+    assert_equal(false, @conn.non_blocking?)
     expect = []
     expect[PLSQL_DONE] = TIME_IN_PLSQL
     expect[OCIBREAK]   = "Invalid status"
     expect[SEND_BREAK] = TIME_IN_PLSQL + TIME_TO_BREAK
-    do_test_ocibreak(conn, expect)
-    conn.logoff()
+    do_test_ocibreak(@conn, expect)
   end
 
   def test_non_blocking_mode
-    conn = get_oci_connection()
-    conn.non_blocking = true
+    is_windows_server = false
+    @conn.exec('select banner from v$version') do |row|
+      is_windows_server = true if row[0].include? 'Windows'
+    end
+
+    @conn.non_blocking = true
+    assert_equal(true, @conn.non_blocking?)
     expect = []
-    expect[PLSQL_DONE] = "Invalid status"
-    if RUBY_PLATFORM =~ /mswin32|cygwin|mingw32|bccwin32/
-      # raise after sleeping #{TIME_IN_PLSQL} seconds.
-      expect[OCIBREAK] = TIME_IN_PLSQL
+    if is_windows_server
+      if $oracle_server_version >= OCI8::ORAVER_9_0
+        # raise after sleeping #{TIME_IN_PLSQL} seconds.
+        expect[PLSQL_DONE] = "Invalid status"
+        expect[OCIBREAK] = TIME_IN_PLSQL
+      else
+        expect[PLSQL_DONE] = TIME_IN_PLSQL
+        expect[OCIBREAK] = "Invalid status"
+      end
     else
       # raise immediately by OCI8#break.
+      expect[PLSQL_DONE] = "Invalid status"
       expect[OCIBREAK] = TIME_TO_BREAK
     end
     expect[SEND_BREAK]   = TIME_TO_BREAK
-    do_test_ocibreak(conn, expect)
-    conn.logoff()
+    do_test_ocibreak(@conn, expect)
   end
 end
-
-if $0 == __FILE__
-  RUNIT::CUI::TestRunner.run(TestBreak.suite())
-end

data/test/test_clob.rb

@@ -1,122 +1,66 @@
 # Low-level API
 require 'oci8'
-require 'runit/testcase'
-require 'runit/cui/testrunner'
+require 'test/unit'
 require File.dirname(__FILE__) + '/config'
 
-class TestCLob < RUNIT::TestCase
+class TestCLob < Test::Unit::TestCase
 
   def setup
-    @env, @svc, @stmt = setup_lowapi()
+    @conn = get_oci8_connection
   end
 
   def test_insert
     filename = File.basename($lobfile)
-    @stmt.prepare("DELETE FROM test_clob WHERE filename = :1")
-    @stmt.bindByPos(1, String, filename.size).set(filename)
-    @stmt.execute(@svc)
-
-    @stmt.prepare("INSERT INTO test_clob(filename, content) VALUES (:1, EMPTY_CLOB())")
-    @stmt.bindByPos(1, String, filename.size).set(filename)
-    @stmt.execute(@svc)
-
-    lob = @env.alloc(OCILobLocator)
-    @stmt.prepare("SELECT content FROM test_clob WHERE filename = :1 FOR UPDATE")
-    @stmt.bindByPos(1, String, filename.size).set(filename)
-    @stmt.defineByPos(1, OCI_TYPECODE_CLOB, lob)
-    @stmt.execute(@svc, 1)
-    offset = 1 # count by charactor, not byte.
+    @conn.exec("DELETE FROM test_clob WHERE filename = :1", filename)
+    @conn.exec("INSERT INTO test_clob(filename, content) VALUES (:1, EMPTY_CLOB())", filename)
+    cursor = @conn.exec("SELECT content FROM test_clob WHERE filename = :1 FOR UPDATE", filename)
+    lob = cursor.fetch[0]
     open($lobfile) do |f|
       while f.gets()
-	num_of_chars = lob.write(@svc, offset, $_)
-	offset += num_of_chars
+        lob.write($_)
       end
     end
-    lob.free()
+    lob.close
   end
 
-  def test_insert_with_open_close
+  def test_insert_with_flush
     filename = File.basename($lobfile)
-    @stmt.prepare("DELETE FROM test_clob WHERE filename = :1")
-    @stmt.bindByPos(1, String, filename.size).set(filename)
-    @stmt.execute(@svc)
-
-    @stmt.prepare("INSERT INTO test_clob(filename, content) VALUES (:1, EMPTY_CLOB())")
-    @stmt.bindByPos(1, String, filename.size).set(filename)
-    @stmt.execute(@svc)
-
-    lob = @env.alloc(OCILobLocator)
-    @stmt.prepare("SELECT content FROM test_clob WHERE filename = :1 FOR UPDATE")
-    @stmt.bindByPos(1, String, filename.size).set(filename)
-    @stmt.defineByPos(1, OCI_TYPECODE_CLOB, lob)
-    @stmt.execute(@svc, 1)
-    lob.open(@svc)
-    begin
-      offset = 1 # count by charactor, not byte.
-      open($lobfile) do |f|
-	while f.gets()
-	  offset += lob.write(@svc, offset, $_)
-	end
+    @conn.exec("DELETE FROM test_clob WHERE filename = :1", filename)
+    @conn.exec("INSERT INTO test_clob(filename, content) VALUES (:1, EMPTY_CLOB())", filename)
+    cursor = @conn.exec("SELECT content FROM test_clob WHERE filename = :1 FOR UPDATE", filename)
+    lob = cursor.fetch[0]
+    lob.sync = false
+    open($lobfile) do |f|
+      while f.gets()
+        lob.write($_)
       end
-    ensure
-      lob.close(@svc)
     end
-    lob.free()
-  end
-
-  def test_insert_symbol
-    filename = 'test_symbol'
-    value = :foo_bar
-    @stmt.prepare("DELETE FROM test_clob WHERE filename = :1")
-    @stmt.bindByPos(1, String, filename.size).set(filename)
-    @stmt.execute(@svc)
-
-    @stmt.prepare("INSERT INTO test_clob(filename, content) VALUES (:1, EMPTY_CLOB())")
-    @stmt.bindByPos(1, String, filename.size).set(filename)
-    @stmt.execute(@svc)
-
-    lob = @env.alloc(OCILobLocator)
-    @stmt.prepare("SELECT content FROM test_clob WHERE filename = :1 FOR UPDATE")
-    @stmt.bindByPos(1, String, filename.size).set(filename)
-    @stmt.defineByPos(1, OCI_TYPECODE_CLOB, lob)
-    @stmt.execute(@svc, 1)
-    lob.write(@svc, 1, value)
-    assert_equal(value.to_s, lob.read(@svc, 1, 30))
-    lob.free()
+    lob.flush
+    lob.close
   end
 
   def test_read
-    filename = File.basename($lobfile)
     test_insert() # first insert data.
-    lob = @env.alloc(OCILobLocator)
-    @stmt.prepare("SELECT content FROM test_clob WHERE filename = :1 FOR UPDATE")
-    @stmt.bindByPos(1, String, filename.size).set(filename)
-    @stmt.defineByPos(1, OCI_TYPECODE_CLOB, lob)
-    @stmt.execute(@svc, 1)
+    filename = File.basename($lobfile)
+    cursor = @conn.exec("SELECT content FROM test_clob WHERE filename = :1 FOR UPDATE", filename)
+    lob = cursor.fetch[0]
 
     open($lobfile) do |f|
-      offset = 1
-      while buf = lob.read(@svc, offset, $lobreadnum)
-	fbuf = f.read(buf.size)
-	assert_equal(fbuf, buf)
-	offset += $lobreadnum
-	# offset += buf.size will not work fine,
-	# Though buf.size counts in byte,
-	# offset and $lobreadnum count in character.
+      while buf = lob.read($lobreadnum)
+        fbuf = f.read(buf.size)
+        assert_equal(fbuf, buf)
+        # offset += buf.size will not work fine,
+        # Though buf.size counts in byte,
+        # offset and $lobreadnum count in character.
       end
       assert_equal(nil, buf)
-      assert_equal(true, f.eof?)
+      assert(f.eof?)
+      assert(lob.eof?)
     end
-    lob.free()
+    lob.close
   end
 
   def teardown
-    @stmt.free()
-    @svc.logoff()
-    @env.free()
+    @conn.logoff
   end
 end
-
-if $0 == __FILE__
-  RUNIT::CUI::TestRunner.run(TestCLob.suite())
-end

data/test/test_connstr.rb

@@ -1,9 +1,8 @@
 require 'oci8'
-require 'runit/testcase'
-require 'runit/cui/testrunner'
+require 'test/unit'
 require File.dirname(__FILE__) + '/config'
 
-class TestConnStr < RUNIT::TestCase
+class TestConnStr < Test::Unit::TestCase
   TEST_CASES =
     [
      # success cases:
@@ -69,7 +68,7 @@ class TestConnStr < RUNIT::TestCase
         result = obj.instance_eval { parse_connect_string(test_case[0]) }
         assert_equal(test_case[1], result, test_case[0])
       when Class
-        assert_exception(test_case[1], test_case[0]) do
+        assert_raises(test_case[1]) do
           result = obj.instance_eval { parse_connect_string(test_case[0]) }
         end
       else
@@ -78,3 +77,5 @@ class TestConnStr < RUNIT::TestCase
     end
   end
 end
+
+Test::Unit::AutoRunner.run() if $0 == __FILE__

data/test/test_datetime.rb

@@ -0,0 +1,469 @@
+require 'oci8'
+require 'test/unit'
+require File.dirname(__FILE__) + '/config'
+require 'scanf'
+
+class TestDateTime < Test::Unit::TestCase
+
+  def timezone_string(tzh, tzm)
+    if tzh >= 0
+      format("+%02d:%02d", tzh, tzm)
+    else
+      format("-%02d:%02d", -tzh, -tzm)
+    end
+  end
+
+  def setup
+    @conn = get_oci8_connection
+    @local_timezone = timezone_string(*((::Time.now.utc_offset / 60).divmod 60))
+  end
+
+  def teardown
+    @conn.logoff
+  end
+
+  def test_date_select
+    ['2005-12-31 23:59:59',
+     '2006-01-01 00:00:00'].each do |date|
+      @conn.exec(<<-EOS) do |row|
+SELECT TO_DATE('#{date}', 'YYYY-MM-DD HH24:MI:SS') FROM dual
+EOS
+        assert_equal(Time.local(*date.scanf("%d-%d-%d %d:%d:%d.%06d")), row[0])
+      end
+    end
+  end
+
+  def test_date_out_bind
+    cursor = @conn.parse(<<-EOS)
+BEGIN
+  :out := TO_DATE(:in, 'YYYY-MM-DD HH24:MI:SS');
+END;
+EOS
+    cursor.bind_param(:out, nil, DateTime)
+    cursor.bind_param(:in, nil, String, 36)
+    ['2005-12-31 23:59:59',
+     '2006-01-01 00:00:00'].each do |date|
+      cursor[:in] = date
+      cursor.exec
+      assert_equal(DateTime.parse(date + @local_timezone), cursor[:out])
+    end
+    cursor.close
+  end
+
+  def test_date_in_bind
+    cursor = @conn.parse(<<-EOS)
+DECLARE
+  dt date;
+BEGIN
+  dt := :in;
+  :out := TO_CHAR(dt, 'YYYY-MM-DD HH24:MI:SS');
+END;
+EOS
+    cursor.bind_param(:out, nil, String, 33)
+    cursor.bind_param(:in, nil, DateTime)
+    ['2005-12-31 23:59:59',
+     '2006-01-01 00:00:00'].each do |date|
+      cursor[:in] = DateTime.parse(date + @local_timezone)
+      cursor.exec
+      assert_equal(date, cursor[:out])
+    end
+    cursor.close
+  end
+
+  def test_timestamp_select
+    return if $oracle_version < OCI8::ORAVER_9_0
+
+    ['2005-12-31 23:59:59.999999000',
+     '2006-01-01 00:00:00.000000000'].each do |date|
+      @conn.exec(<<-EOS) do |row|
+SELECT TO_TIMESTAMP('#{date}', 'YYYY-MM-DD HH24:MI:SS.FF') FROM dual
+EOS
+        assert_equal(Time.local(*date.scanf("%d-%d-%d %d:%d:%d.%06d")), row[0])
+      end
+    end
+  end
+
+  def test_timestamp_out_bind
+    return if $oracle_version < OCI8::ORAVER_9_0
+
+    cursor = @conn.parse(<<-EOS)
+BEGIN
+  :out := TO_TIMESTAMP(:in, 'YYYY-MM-DD HH24:MI:SS.FF');
+END;
+EOS
+    cursor.bind_param(:out, nil, DateTime)
+    cursor.bind_param(:in, nil, String, 36)
+    ['2005-12-31 23:59:59.999999000',
+     '2006-01-01 00:00:00.000000000'].each do |date|
+      cursor[:in] = date
+      cursor.exec
+      assert_equal(DateTime.parse(date + @local_timezone), cursor[:out])
+    end
+    cursor.close
+  end
+
+  def test_timestamp_in_bind
+    return if $oracle_version < OCI8::ORAVER_9_0
+
+    cursor = @conn.parse(<<-EOS)
+BEGIN
+  :out := TO_CHAR(:in, 'YYYY-MM-DD HH24:MI:SS.FF');
+END;
+EOS
+    cursor.bind_param(:out, nil, String, 33)
+    cursor.bind_param(:in, nil, DateTime)
+    ['2005-12-31 23:59:59.999999000',
+     '2006-01-01 00:00:00.000000000'].each do |date|
+      cursor[:in] = DateTime.parse(date + @local_timezone)
+      cursor.exec
+      assert_equal(date, cursor[:out])
+    end
+    cursor.close
+  end
+
+  def test_timestamp_tz_select
+    return if $oracle_version < OCI8::ORAVER_9_0
+
+    ['2005-12-31 23:59:59.999999000 +08:30',
+     '2006-01-01 00:00:00.000000000 -08:30'].each do |date|
+      @conn.exec(<<-EOS) do |row|
+SELECT TO_TIMESTAMP_TZ('#{date}', 'YYYY-MM-DD HH24:MI:SS.FF TZH:TZM') FROM dual
+EOS
+        assert_equal(DateTime.parse(date), row[0])
+      end
+    end
+  end
+
+  def test_timestamp_tz_out_bind
+    return if $oracle_version < OCI8::ORAVER_9_0
+
+    cursor = @conn.parse(<<-EOS)
+BEGIN
+  :out := TO_TIMESTAMP_TZ(:in, 'YYYY-MM-DD HH24:MI:SS.FF TZH:TZM');
+END;
+EOS
+    cursor.bind_param(:out, nil, DateTime)
+    cursor.bind_param(:in, nil, String, 36)
+    ['2005-12-31 23:59:59.999999000 +08:30',
+     '2006-01-01 00:00:00.000000000 -08:30'].each do |date|
+      cursor[:in] = date
+      cursor.exec
+      assert_equal(DateTime.parse(date), cursor[:out])
+    end
+    cursor.close
+  end
+
+  def test_timestamp_tz_in_bind
+    return if $oracle_version < OCI8::ORAVER_9_0
+
+    cursor = @conn.parse(<<-EOS)
+BEGIN
+  :out := TO_CHAR(:in, 'YYYY-MM-DD HH24:MI:SS.FF TZH:TZM');
+END;
+EOS
+    cursor.bind_param(:out, nil, String, 36)
+    cursor.bind_param(:in, nil, DateTime)
+    ['2005-12-31 23:59:59.999999000 +08:30',
+     '2006-01-01 00:00:00.000000000 -08:30'].each do |date|
+      cursor[:in] = DateTime.parse(date)
+      cursor.exec
+      assert_equal(date, cursor[:out])
+    end
+    cursor.close
+  end
+
+  def test_datetype_duck_typing
+    cursor = @conn.parse("BEGIN :out := :in; END;")
+    cursor.bind_param(:in, nil, DateTime)
+    cursor.bind_param(:out, nil, DateTime)
+    obj = Object.new
+    # test year, month, day
+    def obj.year; 2006; end
+    def obj.month; 12; end
+    def obj.day; 31; end
+    cursor[:in] = obj
+    cursor.exec
+    assert_equal(DateTime.parse('2006-12-31 00:00:00' + @local_timezone), cursor[:out])
+    # test hour
+    def obj.hour; 23; end
+    cursor[:in] = obj
+    cursor.exec
+    assert_equal(DateTime.parse('2006-12-31 23:00:00' + @local_timezone), cursor[:out])
+    # test min
+    def obj.min; 59; end
+    cursor[:in] = obj
+    cursor.exec
+    assert_equal(DateTime.parse('2006-12-31 23:59:00' + @local_timezone), cursor[:out])
+    # test sec
+    def obj.sec; 59; end
+    cursor[:in] = obj
+    cursor.exec
+    assert_equal(DateTime.parse('2006-12-31 23:59:59' + @local_timezone), cursor[:out])
+
+    # sec_fraction and timezone are available on Oracle 9i or later
+    return if $oracle_version < OCI8::ORAVER_9_0
+
+    # test sec_fraction
+    def obj.sec_fraction; DateTime.parse('0001-01-01 00:00:00.000001').sec_fraction * 999999 ; end
+    cursor[:in] = obj
+    cursor.exec
+    assert_equal(DateTime.parse('2006-12-31 23:59:59.999999' + @local_timezone), cursor[:out])
+    # test utc_offset (Time)
+    def obj.utc_offset; @utc_offset; end
+    obj.instance_variable_set(:@utc_offset, 9 * 60 * 60)
+    cursor[:in] = obj
+    cursor.exec
+    assert_equal(DateTime.parse('2006-12-31 23:59:59.999999 +09:00'), cursor[:out])
+    obj.instance_variable_set(:@utc_offset, -5 * 60 * 60)
+    cursor[:in] = obj
+    cursor.exec
+    assert_equal(DateTime.parse('2006-12-31 23:59:59.999999 -05:00'), cursor[:out])
+    # test offset (DateTime)
+    def obj.offset; @offset; end
+    obj.instance_variable_set(:@offset, 9.to_r / 24)
+    cursor[:in] = obj
+    cursor.exec
+    assert_equal(DateTime.parse('2006-12-31 23:59:59.999999 +09:00'), cursor[:out])
+    obj.instance_variable_set(:@offset, -5.to_r / 24)
+    cursor[:in] = obj
+    cursor.exec
+    assert_equal(DateTime.parse('2006-12-31 23:59:59.999999 -05:00'), cursor[:out])
+  end
+
+  def test_timezone
+    if $oracle_version >= OCI8::ORAVER_9_0
+      # temporarily change the mapping to test OCI8::BindType::Util.default_timezone.
+      OCI8::BindType::Mapping[:date] = OCI8::BindType::TimeViaOCIDate
+    end
+    begin
+      assert_raise(ArgumentError) do
+        OCI8::BindType::Util.default_timezone = :invalid_value
+      end
+
+      [:local, :utc].each do |tz|
+        OCI8::BindType::Util.default_timezone = tz
+        @conn.exec("select sysdate, to_date('2008-01-02', 'yyyy-mm-dd') from dual") do |row|
+          row.each do |dt|
+            assert_kind_of(Time, dt)
+            assert_equal(tz, dt.utc? ? :utc : :local)
+          end
+          assert_equal(2008, row[1].year)
+          assert_equal(1, row[1].month)
+          assert_equal(2, row[1].day)
+        end
+      end
+    ensure
+      OCI8::BindType::Util.default_timezone = :local
+      if $oracle_version >= OCI8::ORAVER_9_0
+        OCI8::BindType::Mapping[:date] = OCI8::BindType::Time
+      end
+    end
+
+    if $oracle_version >= OCI8::ORAVER_9_0
+      ses_tz = nil
+      @conn.exec('select sessiontimezone from dual') do |row|
+        ses_tz = row[0]
+      end
+
+      begin
+        ['+09:00', '+00:00', '-05:00'].each do |tz|
+          @conn.exec("alter session set time_zone = '#{tz}'")
+          @conn.exec("select current_timestamp, sysdate, to_timestamp('2008-01-02', 'yyyy-mm-dd') from dual") do |row|
+            row.each do |dt|
+              case dt
+              when Time
+                assert_equal(tz, timezone_string(*((dt.utc_offset / 60).divmod 60)))
+              when DateTime
+                assert_equal(tz, dt.zone)
+              else
+                flunk "unexpedted type #{dt.class}"
+              end
+            end
+            assert_equal(2008, row[2].year)
+            assert_equal(1, row[2].month)
+            assert_equal(2, row[2].day)
+          end
+        end
+      ensure
+        @conn.exec("alter session set time_zone = '#{ses_tz}'")
+      end
+    else
+    end
+  end
+
+  def test_interval_ym_select
+    return if $oracle_version < OCI8::ORAVER_9_0
+
+    [['2006-01-01', '2004-03-01'],
+     ['2006-01-01', '2005-03-01'],
+     ['2006-01-01', '2006-03-01'],
+     ['2006-01-01', '2007-03-01']
+    ].each do |date1, date2|
+      @conn.exec(<<-EOS) do |row|
+SELECT (TO_TIMESTAMP('#{date1}', 'YYYY-MM-DD')
+      - TO_TIMESTAMP('#{date2}', 'YYYY-MM-DD')) YEAR TO MONTH
+  FROM dual
+EOS
+        assert_equal(DateTime.parse(date1), DateTime.parse(date2) >> row[0])
+      end
+    end
+  end
+
+  def test_interval_ym_out_bind
+    return if $oracle_version < OCI8::ORAVER_9_0
+
+    cursor = @conn.parse(<<-EOS)
+DECLARE
+  ts1 TIMESTAMP;
+  ts2 TIMESTAMP;
+BEGIN
+  ts1 := TO_TIMESTAMP(:in1, 'YYYY-MM-DD');
+  ts2 := TO_TIMESTAMP(:in2, 'YYYY-MM-DD');
+  :out := (ts1 - ts2) YEAR TO MONTH;
+END;
+EOS
+    cursor.bind_param(:out, nil, :interval_ym)
+    cursor.bind_param(:in1, nil, String, 36)
+    cursor.bind_param(:in2, nil, String, 36)
+    [['2006-01-01', '2004-03-01'],
+     ['2006-01-01', '2005-03-01'],
+     ['2006-01-01', '2006-03-01'],
+     ['2006-01-01', '2007-03-01']
+    ].each do |date1, date2|
+      cursor[:in1] = date1
+      cursor[:in2] = date2
+      cursor.exec
+      assert_equal(DateTime.parse(date1), DateTime.parse(date2) >> cursor[:out])
+    end
+    cursor.close
+  end
+
+  def test_interval_ym_in_bind
+    return if $oracle_version < OCI8::ORAVER_9_0
+
+    cursor = @conn.parse(<<-EOS)
+DECLARE
+  ts1 TIMESTAMP;
+BEGIN
+  ts1 := TO_TIMESTAMP(:in1, 'YYYY-MM-DD');
+  :out := TO_CHAR(ts1 + :in2, 'YYYY-MM-DD');
+END;
+EOS
+    cursor.bind_param(:out, nil, String, 36)
+    cursor.bind_param(:in1, nil, String, 36)
+    cursor.bind_param(:in2, nil, :interval_ym)
+    [['2006-01-01', -22],
+     ['2006-01-01', -10],
+     ['2006-01-01',  +2],
+     ['2006-01-01', +12]
+    ].each do |date, interval|
+      cursor[:in1] = date
+      cursor[:in2] = interval
+      cursor.exec
+      assert_equal(DateTime.parse(date) >> interval, DateTime.parse(cursor[:out]))
+    end
+    cursor.close
+  end
+
+  def test_interval_ds_select
+    return if $oracle_version < OCI8::ORAVER_9_0
+
+    [['2006-01-01', '2004-03-01'],
+     ['2006-01-01', '2005-03-01'],
+     ['2006-01-01', '2006-03-01'],
+     ['2006-01-01', '2007-03-01'],
+     ['2006-01-01', '2006-01-01 23:00:00'],
+     ['2006-01-01', '2006-01-01 00:59:00'],
+     ['2006-01-01', '2006-01-01 00:00:59'],
+     ['2006-01-01', '2006-01-01 00:00:00.999999'],
+     ['2006-01-01', '2006-01-01 23:59:59.999999'],
+     ['2006-01-01', '2005-12-31 23:00:00'],
+     ['2006-01-01', '2005-12-31 00:59:00'],
+     ['2006-01-01', '2005-12-31 00:00:59'],
+     ['2006-01-01', '2005-12-31 00:00:00.999999'],
+     ['2006-01-01', '2005-12-31 23:59:59.999999']
+    ].each do |date1, date2|
+      @conn.exec(<<-EOS) do |row|
+SELECT (TO_TIMESTAMP('#{date1}', 'YYYY-MM-DD HH24:MI:SS.FF')
+      - TO_TIMESTAMP('#{date2}', 'YYYY-MM-DD HH24:MI:SS.FF')) DAY(3) TO SECOND
+  FROM dual
+EOS
+        assert_equal(DateTime.parse(date1) - DateTime.parse(date2), row[0])
+      end
+    end
+  end
+
+  def test_interval_ds_out_bind
+    return if $oracle_version < OCI8::ORAVER_9_0
+
+    cursor = @conn.parse(<<-EOS)
+DECLARE
+  ts1 TIMESTAMP;
+  ts2 TIMESTAMP;
+BEGIN
+  ts1 := TO_TIMESTAMP(:in1, 'YYYY-MM-DD HH24:MI:SS.FF');
+  ts2 := TO_TIMESTAMP(:in2, 'YYYY-MM-DD HH24:MI:SS.FF');
+  :out := (ts1 - ts2) DAY TO SECOND(9);
+END;
+EOS
+    cursor.bind_param(:out, nil, :interval_ds)
+    cursor.bind_param(:in1, nil, String, 36)
+    cursor.bind_param(:in2, nil, String, 36)
+    [['2006-01-01', '2004-03-01'],
+     ['2006-01-01', '2005-03-01'],
+     ['2006-01-01', '2006-03-01'],
+     ['2006-01-01', '2007-03-01'],
+     ['2006-01-01', '2006-01-01 23:00:00'],
+     ['2006-01-01', '2006-01-01 00:59:00'],
+     ['2006-01-01', '2006-01-01 00:00:59'],
+     ['2006-01-01', '2006-01-01 00:00:00.999999'],
+     ['2006-01-01', '2006-01-01 23:59:59.999999'],
+     ['2006-01-01', '2005-12-31 23:00:00'],
+     ['2006-01-01', '2005-12-31 00:59:00'],
+     ['2006-01-01', '2005-12-31 00:00:59'],
+     ['2006-01-01', '2005-12-31 00:00:00.999999'],
+     ['2006-01-01', '2005-12-31 23:59:59.999999']
+    ].each do |date1, date2|
+      cursor[:in1] = date1
+      cursor[:in2] = date2
+      cursor.exec
+      assert_equal(DateTime.parse(date1) - DateTime.parse(date2), cursor[:out])
+    end
+    cursor.close
+  end
+
+  def test_interval_ds_in_bind
+    return if $oracle_version < OCI8::ORAVER_9_0
+
+    cursor = @conn.parse(<<-EOS)
+DECLARE
+  ts1 TIMESTAMP;
+BEGIN
+  ts1 := TO_TIMESTAMP(:in1, 'YYYY-MM-DD HH24:MI:SS.FF');
+  :out := TO_CHAR(ts1 + :in2, 'YYYY-MM-DD HH24:MI:SS.FF');
+END;
+EOS
+    cursor.bind_param(:out, nil, String, 36)
+    cursor.bind_param(:in1, nil, String, 36)
+    cursor.bind_param(:in2, nil, :interval_ds)
+    [['2006-01-01', -22],
+     ['2006-01-01', -10],
+     ['2006-01-01',  +2],
+     ['2006-01-01', +12],
+     ['2006-01-01', -1.to_r / 24], # one hour
+     ['2006-01-01', -1.to_r / (24*60)], # one minute
+     ['2006-01-01', -1.to_r / (24*60*60)], # one second
+     ['2006-01-01', -999999.to_r / (24*60*60*1000000)], # 0.999999 seconds
+     ['2006-01-01', +1.to_r / 24], # one hour
+     ['2006-01-01', +1.to_r / (24*60)], # one minute
+     ['2006-01-01', +1.to_r / (24*60*60)], # one second
+     ['2006-01-01', +999999.to_r / (24*60*60*1000000)] # 0.999999 seconds
+    ].each do |date, interval|
+      cursor[:in1] = date
+      cursor[:in2] = interval
+      cursor.exec
+      assert_equal(DateTime.parse(date) + interval, DateTime.parse(cursor[:out]))
+    end
+    cursor.close
+  end
+end # TestOCI8