ruby-oci8 1.0.2

data/test/test_describe.rb

@@ -0,0 +1,137 @@
+# Low-level API
+require 'oci8'
+require 'runit/testcase'
+require 'runit/cui/testrunner'
+require File.dirname(__FILE__) + '/config'
+
+class TestDescribe < RUNIT::TestCase
+
+  def setup
+    # initialize oracle as object mode.
+    # This is workaround to use OCIDescribeAny in Oracle 8.0.5 on Linux.
+    # This bug was fixed in 8.0.6 and 8i.
+    @env, @svc, @stmt = setup_lowapi()
+    @desc = @env.alloc(OCIDescribe)
+  end
+
+  def test_describe_sequence
+    begin
+      @stmt.prepare("DROP SEQUENCE test_sequence").execute(@svc)
+    rescue OCIError
+      raise if $!.code != 2289 # sequence does not exist
+    end
+    minvalue = 1
+    maxvalue = 1234567890123456789012345678 # bignum
+    incr = 777
+    sql = <<-EOS
+CREATE SEQUENCE test_sequence
+    MINVALUE #{minvalue}
+    MAXVALUE #{maxvalue}
+    INCREMENT BY #{incr}
+    ORDER
+EOS
+    @stmt.prepare(sql).execute(@svc)
+    @desc.describeAny(@svc, "test_sequence", OCI_PTYPE_SEQ)
+    parm = @desc.attrGet(OCI_ATTR_PARAM)
+    # common part
+    assert_equal(OCI_PTYPE_SEQ, parm.attrGet(OCI_ATTR_PTYPE))
+    # specific part
+    assert_instance_of(Fixnum, parm.attrGet(OCI_ATTR_OBJID))
+    assert_equal(minvalue, parm.attrGet(OCI_ATTR_MIN))
+    assert_equal(maxvalue, parm.attrGet(OCI_ATTR_MAX))
+    assert_equal(incr, parm.attrGet(OCI_ATTR_INCR))
+    assert_kind_of(Integer, parm.attrGet(OCI_ATTR_CACHE))
+    assert_equal(true, parm.attrGet(OCI_ATTR_ORDER))
+    assert_kind_of(Integer, parm.attrGet(OCI_ATTR_HW_MARK))
+    @stmt.prepare("DROP SEQUENCE test_sequence").execute(@svc)
+  end
+
+  def test_describe_synonym
+    begin
+      @stmt.prepare("DROP SYNONYM test_synonym").execute(@svc)
+    rescue OCIError
+      raise if $!.code != 1434 # private synonym to be dropped does not exist
+    end
+    @stmt.prepare("CREATE SYNONYM test_synonym FOR foo.bar@baz").execute(@svc)
+    @desc.describeAny(@svc, "test_synonym", OCI_PTYPE_SYN)
+    parm = @desc.attrGet(OCI_ATTR_PARAM)
+    # common part
+    assert_equal(OCI_PTYPE_SYN, parm.attrGet(OCI_ATTR_PTYPE))
+    # specific part
+    assert_instance_of(Fixnum, parm.attrGet(OCI_ATTR_OBJID))
+    assert_equal("FOO", parm.attrGet(OCI_ATTR_SCHEMA_NAME))
+    assert_equal("BAR", parm.attrGet(OCI_ATTR_NAME))
+    assert_equal("BAZ", parm.attrGet(OCI_ATTR_LINK))
+    @stmt.prepare("DROP SYNONYM test_synonym").execute(@svc)
+  end
+
+  def test_describe_table_and_columns
+    drop_table('test_table')
+    sql = <<-EOS
+CREATE TABLE test_table
+  (C CHAR(10) NOT NULL,
+   V VARCHAR2(20),
+   N NUMBER(10, 2),
+   D DATE)
+STORAGE (
+   INITIAL 4k
+   NEXT 4k
+   MINEXTENTS 1
+   MAXEXTENTS UNLIMITED
+   PCTINCREASE 0)
+EOS
+    @stmt.prepare(sql).execute(@svc)
+    @desc.describeAny(@svc, "test_table", OCI_PTYPE_TABLE)
+    tab_parm = @desc.attrGet(OCI_ATTR_PARAM)
+    col_list = tab_parm.attrGet(OCI_ATTR_LIST_COLUMNS)
+    num_cols = tab_parm.attrGet(OCI_ATTR_NUM_COLS)
+    # common part for table
+    assert_equal(OCI_PTYPE_TABLE, tab_parm.attrGet(OCI_ATTR_PTYPE))
+    # specific part for table
+    assert_instance_of(Fixnum, tab_parm.attrGet(OCI_ATTR_OBJID))
+    assert_equal(4, num_cols)
+    # common part for column list
+    assert_equal(OCI_PTYPE_LIST, col_list.attrGet(OCI_ATTR_PTYPE))
+
+    col = Array.new(num_cols)
+    1.upto(num_cols) do |i|
+      col[i] = col_list.paramGet(i)
+      assert_equal(OCI_PTYPE_COL, col[1].attrGet(OCI_ATTR_PTYPE))
+    end
+    assert_equal(10, col[1].attrGet(OCI_ATTR_DATA_SIZE))
+    assert_equal(20, col[2].attrGet(OCI_ATTR_DATA_SIZE))
+    assert_equal(22, col[3].attrGet(OCI_ATTR_DATA_SIZE))
+    assert_equal(7, col[4].attrGet(OCI_ATTR_DATA_SIZE))
+    assert_equal(OCI_TYPECODE_CHAR, col[1].attrGet(OCI_ATTR_DATA_TYPE))
+    assert_equal(OCI_TYPECODE_VARCHAR, col[2].attrGet(OCI_ATTR_DATA_TYPE))
+    assert_equal(OCI_TYPECODE_NUMBER, col[3].attrGet(OCI_ATTR_DATA_TYPE))
+    assert_equal(OCI_TYPECODE_DATE, col[4].attrGet(OCI_ATTR_DATA_TYPE))
+    assert_equal("C", col[1].attrGet(OCI_ATTR_NAME))
+    assert_equal("V", col[2].attrGet(OCI_ATTR_NAME))
+    assert_equal("N", col[3].attrGet(OCI_ATTR_NAME))
+    assert_equal("D", col[4].attrGet(OCI_ATTR_NAME))
+    assert_equal(0, col[1].attrGet(OCI_ATTR_PRECISION))
+    assert_equal(0, col[2].attrGet(OCI_ATTR_PRECISION))
+    assert_equal(10, col[3].attrGet(OCI_ATTR_PRECISION))
+    assert_equal(0, col[4].attrGet(OCI_ATTR_PRECISION))
+    assert_equal(0, col[1].attrGet(OCI_ATTR_SCALE))
+    assert_equal(0, col[2].attrGet(OCI_ATTR_SCALE))
+    assert_equal(2, col[3].attrGet(OCI_ATTR_SCALE))
+    assert_equal(0, col[4].attrGet(OCI_ATTR_SCALE))
+    assert_equal(false, col[1].attrGet(OCI_ATTR_IS_NULL))
+    assert_equal(true, col[2].attrGet(OCI_ATTR_IS_NULL))
+    assert_equal(true, col[3].attrGet(OCI_ATTR_IS_NULL))
+    assert_equal(true, col[4].attrGet(OCI_ATTR_IS_NULL))
+    drop_table('test_table')
+  end
+
+  def teardown
+    @stmt.free()
+    @svc.logoff()
+    @env.free()
+  end
+end
+
+if $0 == __FILE__
+  RUNIT::CUI::TestRunner.run(TestDescribe.suite())
+end

data/test/test_metadata.rb

@@ -0,0 +1,243 @@
+require 'oci8'
+require 'runit/testcase'
+require 'runit/cui/testrunner'
+require File.dirname(__FILE__) + '/config'
+
+class TestMetadata < RUNIT::TestCase
+
+  def setup
+    @conn = get_oci_connection()
+  end
+
+  def teardown
+    @conn.logoff
+  end
+
+  def test_metadata
+    # data_size factor for nchar charset_form.
+    cursor = @conn.exec("select CAST('1' AS NCHAR(1)) from dual")
+    cfrm = cursor.column_metadata[0].data_size
+    if $oracle_version >=  900
+      # data_size factor for char semantics.
+      cursor = @conn.exec("select CAST('1' AS CHAR(1 char)) from dual")
+      csem = cursor.column_metadata[0].data_size
+    end
+
+    coldef =
+      [
+       # oracle_version, definition,    data_type,  csfrm,     null,csem?,csize, data_size,prec,scale,fsprec,lfprec
+       [800, "CHAR(10) NOT NULL",       :char,      :implicit, false, false, 10,        10,   0,    0,    0,    0],
+       [900, "CHAR(10 CHAR)",           :char,      :implicit, true,  true,  10, 10 * csem,   0,    0,    0,    0],
+       [800, "NCHAR(10)",               :char,      :nchar,    true,  true,  10, 10 * cfrm,   0,    0,    0,    0],
+       [800, "VARCHAR2(10)",            :varchar2,  :implicit, true,  false, 10,        10,   0,    0,    0,    0],
+       [900, "VARCHAR2(10 CHAR)",       :varchar2,  :implicit, true,  true,  10, 10 * csem,   0,    0,    0,    0],
+       [800, "NVARCHAR2(10)",           :varchar2,  :nchar,    true,  true,  10, 10 * cfrm,   0,    0,    0,    0],
+       [800, "RAW(10)",                 :raw,       nil,       true,  false,  0,        10,   0,    0,    0,    0],
+
+       # Don't check data_size of CLOB, NCLOB and BLOB.
+       #
+       #  Oracle 10g XE 10.2.0.1.0 on Linux:
+       #   +----------+-----------+
+       #   |          | data_size |
+       #   +----------+-----------+
+       #   | implicit |   4000    |  <= OCI8::Cursor#column_metadata
+       #   | explicit |     86    |  <= OCI8.describe_table('table_name').columns
+       #   +----------+-----------+
+       [800, "CLOB",                    :clob,      :implicit, true,  false,  0,       :nc,   0,    0,    0,    0],
+       [800, "NCLOB",                   :clob,      :nchar,    true,  false,  0,       :nc,   0,    0,    0,    0],
+       [800, "BLOB",                    :blob,      nil,       true,  false,  0,       :nc,   0,    0,    0,    0],
+
+       [800, "BFILE",                   :bfile,     nil,       true,  false,  0,       530,   0,    0,    0,    0],
+
+       # Don't check fsprecision and lfprecision for NUMBER and FLOAT
+       #
+       #  Oracle 10g XE 10.2.0.1.0 on Linux:
+       #   +---------------------------+-------------+-------------+
+       #   |                           | fsprecision | lfprecision |
+       #   +----------------+----------+-------------+-------------+
+       #   | NUMBER         | implicit |     129     |      0      |
+       #   |                | explicit |       0     |    129      |
+       #   +----------------+----------+-------------+-------------+
+       #   | NUMBER(10)     | implicit |       0     |     10      |
+       #   |                | explicit |      10     |      0      |
+       #   +----------------+----------+-------------+-------------+
+       #   | NUMBER(10,2)   | implicit |       2     |     10      |
+       #   |                | explicit |      10     |      2      |
+       #   +----------------+----------+-------------+-------------+
+       #   | FLOAT          | implicit |     129     |    126      |
+       #   |                | explicit |     126     |    129      |
+       #   +----------------+----------+-------------+-------------+
+       #   | FLOAT(10)      | implicit |     129     |     10      |
+       #   |                | explicit |      10     |    129      |
+       #   +----------------+----------+-------------+-------------+
+       [800, "NUMBER",                  :number,    nil,       true,  false,  0,        22,   0, -127,  :nc,  :nc],
+       [800, "NUMBER(10)",              :number,    nil,       true,  false,  0,        22,  10,    0,  :nc,  :nc],
+       [800, "NUMBER(10,2)",            :number,    nil,       true,  false,  0,        22,  10,    2,  :nc,  :nc],
+       [800, "FLOAT",                   :number,    nil,       true,  false,  0,        22, 126, -127,  :nc,  :nc],
+       [800, "FLOAT(10)",               :number,    nil,       true,  false,  0,        22,  10, -127,  :nc,  :nc],
+
+       [1000,"BINARY_FLOAT",            :binary_float,  nil,   true,  false,  0,         4,   0,    0,    0,    0],
+       [1000,"BINARY_DOUBLE",           :binary_double, nil,   true,  false,  0,         8,   0,    0,    0,    0],
+       [800, "DATE",                    :date,      nil,       true,  false,  0,         7,   0,    0,    0,    0],
+
+       # Don't check precision and lfprecision for TIMESTAMP
+       #
+       #  Oracle 10g XE 10.2.0.1.0 on Linux:
+       #   +----------------------------------------------+-----------+-------------+
+       #   |                                              | precision | lfprecision |
+       #   +-----------------------------------+----------+-----------+-------------+
+       #   | TIMESTAMP                         | implicit |     0     |      0      |
+       #   |                                   | explicit |     6     |      6      |
+       #   +-----------------------------------+----------+-----------+-------------+
+       #   | TIMESTAMP(9)                      | implicit |     0     |      0      |
+       #   |                                   | explicit |     9     |      9      |
+       #   +-----------------------------------+----------+-----------+-------------+
+       #   | TIMESTAMP WITH TIME ZONE          | implicit |     0     |      0      |
+       #   |                                   | explicit |     6     |      6      |
+       #   +-----------------------------------+----------+-----------+-------------+
+       #   | TIMESTAMP(9) WITH TIME ZONE       | implicit |     0     |      0      |
+       #   |                                   | explicit |     9     |      9      |
+       #   +-----------------------------------+----------+-----------+-------------+
+       #   | TIMESTAMP WITH LOCAL TIME ZONE    | implicit |     0     |      0      |
+       #   |                                   | explicit |     6     |      6      |
+       #   +-----------------------------------+----------+-----------+-------------+
+       #   | TIMESTAMP(9) WITH LOCAL TIME ZONE | implicit |     0     |      0      |
+       #   |                                   | explicit |     9     |      9      |
+       #   +-----------------------------------+----------+-----------+-------------+
+       [900, "TIMESTAMP",                         :timestamp,     nil, true, false, 0,  11, :nc,    6,    6,  :nc],
+       [900, "TIMESTAMP(9)",                      :timestamp,     nil, true, false, 0,  11, :nc,    9,    9,  :nc],
+       [900, "TIMESTAMP WITH TIME ZONE",          :timestamp_tz,  nil, true, false, 0,  13, :nc,    6,    6,  :nc],
+       [900, "TIMESTAMP(9) WITH TIME ZONE",       :timestamp_tz,  nil, true, false, 0,  13, :nc,    9,    9,  :nc],
+       [900, "TIMESTAMP WITH LOCAL TIME ZONE",    :timestamp_ltz, nil, true, false, 0,  11, :nc,    6,    6,  :nc],
+       [900, "TIMESTAMP(9) WITH LOCAL TIME ZONE", :timestamp_ltz, nil, true, false, 0,  11, :nc,    9,    9,  :nc],
+
+       # Don't check scale and fsprecision for INTERVAL YEAR TO MONTH
+       #
+       #  Oracle 10g XE 10.2.0.1.0 on Linux:
+       #   +-----------------------------------------+-----------+-------------+
+       #   |                                         |   scale   | fsprecision |
+       #   +------------------------------+----------+-----------+-------------+
+       #   | INTERVAL YEAR TO MONTH       | implicit |     0     |      0      |
+       #   |                              | explicit |     2     |      2      |
+       #   +------------------------------+----------+-----------+-------------+
+       #   | INTERVAL YEAR(4) TO MONTH    | implicit |     0     |      0      |
+       #   |                              | explicit |     4     |      4      |
+       #   +------------------------------+----------+-----------+-------------+
+       [900, "INTERVAL YEAR TO MONTH",      :interval_ym, nil, true,  false,  0,         5,   2,  :nc,  :nc,    2],
+       [900, "INTERVAL YEAR(4) TO MONTH",   :interval_ym, nil, true,  false,  0,         5,   4,  :nc,  :nc,    4],
+
+       # Don't check precision and scale for INTERVAL DAY TO SECOND
+       #
+       #  Oracle 10g XE 10.2.0.1.0 on Linux:
+       #   +-----------------------------------------+-----------+-----------+
+       #   |                                         | precision |   scale   |
+       #   +------------------------------+----------+-----------+-----------+
+       #   | INTERVAL DAY TO SECOND       | implicit |     2     |     6     |
+       #   |                              | explicit |     6     |     2     |
+       #   +------------------------------+----------+-----------+-----------+
+       #   | INTERVAL DAY(4) TO SECOND(9) | implicit |     4     |     9     |
+       #   |                              | explicit |     9     |     4     |
+       #   +------------------------------+----------+-----------+-----------+
+       [900, "INTERVAL DAY TO SECOND",      :interval_ds, nil, true,  false,  0,        11, :nc,  :nc,    6,    2],
+       [900, "INTERVAL DAY(4) TO SECOND(9)",:interval_ds, nil, true,  false,  0,        11, :nc,  :nc,    9,    4],
+      ]
+
+    coldef.reject! do |c| c[0] > $oracle_version end
+
+    drop_table('test_table')
+    sql = <<-EOS
+CREATE TABLE test_table (#{i = 0; coldef.collect do |c| i += 1; "C#{i} " + c[1]; end.join(',')})
+STORAGE (
+   INITIAL 100k
+   NEXT 100k
+   MINEXTENTS 1
+   MAXEXTENTS UNLIMITED
+   PCTINCREASE 0)
+EOS
+    @conn.exec(sql)
+
+    @conn.describe_table('test_table').columns.each_with_index do |md, i|
+      # common
+      assert_equal("C#{i + 1}", md.name, "'#{coldef[i][1]}': name")
+      assert_equal(coldef[i][1], md.type_string, "'#{coldef[i][1]}': type_string")
+      assert_equal(coldef[i][2], md.data_type, "'#{coldef[i][1]}': data_type")
+      assert_equal(coldef[i][3], md.charset_form, "'#{coldef[i][1]}': charset_form")
+      assert_equal(coldef[i][4], md.nullable?, "'#{coldef[i][1]}': nullable? ")
+      # string type
+      if $oracle_version >=  900
+        assert_equal(coldef[i][5], md.char_used?, "'#{coldef[i][1]}': char_used? ")
+        assert_equal(coldef[i][6], md.char_size, "'#{coldef[i][1]}': char_size")
+      end
+      assert_equal(coldef[i][7], md.data_size, "'#{coldef[i][1]}': data_size") if coldef[i][7] != :nc
+      # number, timestamp and interval type
+      assert_equal(coldef[i][8], md.precision, "'#{coldef[i][1]}': precision") if coldef[i][8] != :nc
+      assert_equal(coldef[i][9], md.scale, "'#{coldef[i][1]}': scale") if coldef[i][9] != :nc
+      assert_equal(coldef[i][10], md.fsprecision, "'#{coldef[i][1]}': fsprecision") if coldef[i][10] != :nc
+      assert_equal(coldef[i][11], md.lfprecision, "'#{coldef[i][1]}': lfprecision") if coldef[i][11] != :nc
+    end
+
+    # temporarily change OCI8::BindType::Mapping.
+    saved_mapping = {}
+    [OCI8::SQLT_TIMESTAMP_TZ,
+     OCI8::SQLT_TIMESTAMP_LTZ,
+     OCI8::SQLT_INTERVAL_YM,
+     OCI8::SQLT_INTERVAL_DS].each do |sqlt_type|
+      saved_mapping[sqlt_type] = OCI8::BindType::Mapping[sqlt_type]
+      OCI8::BindType::Mapping[sqlt_type] = OCI8::BindType::String
+    end
+    begin
+      cursor = @conn.exec("SELECT * FROM test_table")
+    ensure
+      saved_mapping.each do |key, val|
+        OCI8::BindType::Mapping[key] = val
+      end
+    end
+    cursor.column_metadata.each_with_index do |md, i|
+      # common
+      assert_equal("C#{i + 1}", md.name, "'#{coldef[i][1]}': name")
+      assert_equal(coldef[i][1], md.type_string, "'#{coldef[i][1]}': type_string")
+      assert_equal(coldef[i][2], md.data_type, "'#{coldef[i][1]}': data_type")
+      assert_equal(coldef[i][3], md.charset_form, "'#{coldef[i][1]}': charset_form")
+      assert_equal(coldef[i][4], md.nullable?, "'#{coldef[i][1]}': nullable? ")
+      # string type
+      if $oracle_version >=  900
+        assert_equal(coldef[i][5], md.char_used?, "'#{coldef[i][1]}': char_used? ")
+        assert_equal(coldef[i][6], md.char_size, "'#{coldef[i][1]}': char_size")
+      end
+      assert_equal(coldef[i][7], md.data_size, "'#{coldef[i][1]}': data_size") if coldef[i][7] != :nc
+      # number, timestamp and interval type
+      assert_equal(coldef[i][8], md.precision, "'#{coldef[i][1]}': precision") if coldef[i][8] != :nc
+      assert_equal(coldef[i][9], md.scale, "'#{coldef[i][1]}': scale") if coldef[i][9] != :nc
+      assert_equal(coldef[i][10], md.fsprecision, "'#{coldef[i][1]}': fsprecision") if coldef[i][10] != :nc
+      assert_equal(coldef[i][11], md.lfprecision, "'#{coldef[i][1]}': lfprecision") if coldef[i][11] != :nc
+    end
+
+    drop_table('test_table')
+  end
+
+  def test_error_describe_table
+    drop_table('test_table')
+    begin
+      @conn.describe_table('test_table')
+      assert_fail("expects ORA-4043 but no error")
+    rescue OCIError
+      assert_fail("expects ORA-4043 but ORA-#{$!.code}") if $!.code != 4043
+    end
+    @conn.exec('create sequence test_table')
+    begin
+      begin
+        @conn.describe_table('test_table')
+        assert_fail('expects ORA-4043 but no error')
+      rescue OCIError
+        assert_fail("expects ORA-4043 but ORA-#{$!.code}") if $!.code != 4043
+      end
+    ensure
+      @conn.exec('drop sequence test_table')
+    end
+  end
+
+end # TestMetadata
+
+if $0 == __FILE__
+  RUNIT::CUI::TestRunner.run(TestMetadata.suite())
+end

data/test/test_oci8.rb

@@ -0,0 +1,273 @@
+require 'oci8'
+require 'runit/testcase'
+require 'runit/cui/testrunner'
+require File.dirname(__FILE__) + '/config'
+
+class TestOCI8 < RUNIT::TestCase
+
+  def setup
+    @conn = get_oci_connection()
+  end
+
+  def teardown
+    @conn.logoff
+  end
+
+  def test_select
+    drop_table('test_table')
+    sql = <<-EOS
+CREATE TABLE test_table
+  (C CHAR(10) NOT NULL,
+   V VARCHAR2(20),
+   N NUMBER(10, 2),
+   D1 DATE, D2 DATE, D3 DATE, D4 DATE,
+   INT NUMBER(30), BIGNUM NUMBER(30))
+STORAGE (
+   INITIAL 4k
+   NEXT 4k
+   MINEXTENTS 1
+   MAXEXTENTS UNLIMITED
+   PCTINCREASE 0)
+EOS
+    @conn.exec(sql)
+    cursor = @conn.parse("INSERT INTO test_table VALUES (:C, :V, :N, :D1, :D2, :D3, :D4, :INT, :BIGNUM)")
+    1.upto(10) do |i|
+      if i == 1
+	dt = [nil, OraDate]
+      else
+	dt = OraDate.new(2000 + i, 8, 3, 23, 59, 59)
+      end
+      cursor.exec(format("%10d", i * 10), i.to_s, i, dt, dt, dt, dt, i * 11111111111, i * 10000000000)
+    end
+    cursor.close
+    cursor = @conn.parse("SELECT * FROM test_table ORDER BY c")
+    cursor.define(5, Time) # define 5th column as Time
+    cursor.define(6, Date) # define 6th column as Date
+    cursor.define(7, DateTime) if defined? DateTime # define 7th column as DateTime
+    cursor.define(8, Integer) # define 8th column as Integer
+    cursor.define(9, Bignum) # define 9th column as Bignum
+    cursor.exec
+    assert_equal(["C", "V", "N", "D1", "D2", "D3", "D4", "INT", "BIGNUM"], cursor.get_col_names)
+    1.upto(10) do |i|
+      rv = cursor.fetch
+      assert_equal(format("%10d", i * 10), rv[0])
+      assert_equal(i.to_s, rv[1])
+      assert_equal(i, rv[2])
+      if i == 1
+	assert_nil(rv[3])
+	assert_nil(rv[4])
+	assert_nil(rv[5])
+	assert_nil(rv[6])
+      else
+	dt = OraDate.new(2000 + i, 8, 3, 23, 59, 59)
+	assert_equal(dt, rv[3])
+	assert_equal(dt.to_time, rv[4])
+	assert_equal(dt.to_date, rv[5])
+	assert_equal(dt.to_datetime, rv[6]) if defined? DateTime
+      end
+      assert_equal(i * 11111111111, rv[7])
+      assert_equal(i * 10000000000, rv[8])
+    end
+    assert_nil(cursor.fetch)
+
+    # fetch_hash with block
+    cursor.exec
+    i = 1
+    cursor.fetch_hash do |row|
+      assert_equal(format("%10d", i * 10), row['C'])
+      assert_equal(i.to_s, row['V'])
+      assert_equal(i, row['N'])
+      if i == 1
+	assert_nil(row['D1'])
+	assert_nil(row['D2'])
+	assert_nil(row['D3'])
+	assert_nil(row['D4'])
+      else
+	dt = OraDate.new(2000 + i, 8, 3, 23, 59, 59)
+	assert_equal(dt, row['D1'])
+	assert_equal(dt.to_time, row['D2'])
+	assert_equal(dt.to_date, row['D3'])
+	assert_equal(dt.to_datetime, row['D4']) if defined? DateTime
+      end
+      assert_equal(i * 11111111111, row['INT'])
+      assert_equal(i * 10000000000, row['BIGNUM'])
+      i += 1
+    end
+    assert_equal(i, 11)
+
+    cursor.close
+    drop_table('test_table')
+  end
+
+  def test_bind_cursor
+    drop_table('test_table')
+    sql = <<-EOS
+CREATE TABLE test_table
+  (C CHAR(10) NOT NULL,
+   V VARCHAR2(20),
+   N NUMBER(10, 2),
+   D1 DATE, D2 DATE, D3 DATE,
+   INT NUMBER(30), BIGNUM NUMBER(30))
+STORAGE (
+   INITIAL 4k
+   NEXT 4k
+   MINEXTENTS 1
+   MAXEXTENTS UNLIMITED
+   PCTINCREASE 0)
+EOS
+    @conn.exec(sql)
+    cursor = @conn.parse("INSERT INTO test_table VALUES (:C, :V, :N, :D1, :D2, :D3, :INT, :BIGNUM)")
+    1.upto(10) do |i|
+      if i == 1
+	dt = [nil, OraDate]
+      else
+	dt = OraDate.new(2000 + i, 8, 3, 23, 59, 59)
+      end
+      cursor.exec(format("%10d", i * 10), i.to_s, i, dt, dt, dt, i, i)
+    end
+    cursor.close
+    plsql = @conn.parse("BEGIN OPEN :cursor FOR SELECT * FROM test_table ORDER BY c; END;")
+    plsql.bind_param(':cursor', OCI8::Cursor)
+    plsql.exec
+    cursor = plsql[':cursor']
+    cursor.define(5, Time) # define 5th column as Time
+    cursor.define(6, Date) # define 6th column as Date
+    cursor.define(7, Integer) # define 7th column as Integer
+    cursor.define(8, Bignum) # define 8th column as Integer
+    assert_equal(["C", "V", "N", "D1", "D2", "D3", "INT", "BIGNUM"], cursor.get_col_names)
+    1.upto(10) do |i|
+      rv = cursor.fetch
+      assert_equal(format("%10d", i * 10), rv[0])
+      assert_equal(i.to_s, rv[1])
+      assert_equal(i, rv[2])
+      if i == 1
+	assert_nil(rv[3])
+	assert_nil(rv[4])
+	assert_nil(rv[5])
+      else
+	dt = OraDate.new(2000 + i, 8, 3, 23, 59, 59)
+	assert_equal(dt, rv[3])
+	assert_equal(dt.to_time, rv[4])
+	assert_equal(dt.to_date, rv[5])
+      end
+      assert_equal(i, rv[6])
+      assert_equal(i, rv[7])
+    end
+    assert_nil(cursor.fetch)
+    cursor.close
+    drop_table('test_table')
+  end
+
+  def test_cursor_in_result_set
+    drop_table('test_table')
+    sql = <<-EOS
+CREATE TABLE test_table (N NUMBER(10, 2))
+STORAGE (
+   INITIAL 4k
+   NEXT 4k
+   MINEXTENTS 1
+   MAXEXTENTS UNLIMITED
+   PCTINCREASE 0)
+EOS
+    @conn.exec(sql)
+    cursor = @conn.parse("INSERT INTO test_table VALUES (:1)")
+    1.upto(10) do |i|
+      cursor.exec(i)
+    end
+    cursor.close
+    cursor = @conn.exec(<<EOS)
+select a.n, cursor (select a.n + b.n
+                      from test_table b
+                     order by n)
+  from test_table a
+ order by n
+EOS
+    1.upto(10) do |i|
+      row = cursor.fetch
+      assert_equal(i, row[0])
+      cursor_in_result_set = row[1]
+      1.upto(10) do |j|
+        row2 = cursor_in_result_set.fetch
+        assert_equal(i + j, row2[0])
+      end
+      assert_nil(cursor_in_result_set.fetch) # check end of row data
+      cursor_in_result_set.close
+    end
+    assert_nil(cursor.fetch) # check end of row data
+    drop_table('test_table')
+  end
+
+  if $oracle_version >= 1000
+    # Oracle 10g or upper
+    def test_binary_float
+      cursor = @conn.parse("select CAST(:1 AS BINARY_FLOAT), CAST(:2 AS BINARY_DOUBLE) from dual")
+      bind_val = -1.0
+      cursor.bind_param(1, 10.0, OCI8::SQLT_IBDOUBLE)
+      cursor.bind_param(2, nil, OCI8::SQLT_IBDOUBLE)
+      while bind_val < 10.0
+        cursor[2] = bind_val
+        cursor.exec
+        rv = cursor.fetch
+        assert_equal(10.0, rv[0])
+        assert_equal(bind_val, rv[1])
+        bind_val += 1.234
+      end
+      [-1.0/0.0, # -Infinite
+       +1.0/0.0, # +Infinite
+       0.0/0.0   # NaN
+      ].each do |num|
+        cursor[1] = num
+        cursor[2] = num
+        cursor.exec
+        rv = cursor.fetch
+        if num.nan?
+          assert(rv[0].nan?)
+          assert(rv[1].nan?)
+        else
+          assert_equal(num, rv[0])
+          assert_equal(num, rv[1])
+        end
+      end
+      cursor.close
+    end
+  end
+
+  def test_clob_nclob_and_blob
+    drop_table('test_table')
+    sql = <<-EOS
+CREATE TABLE test_table (id number(5), C CLOB, NC NCLOB, B BLOB)
+STORAGE (
+   INITIAL 100k
+   NEXT 100k
+   MINEXTENTS 1
+   MAXEXTENTS UNLIMITED
+   PCTINCREASE 0)
+EOS
+    @conn.exec(sql)
+    cursor = @conn.parse("INSERT INTO test_table VALUES (:1, :2, :3, :4)")
+    0.upto(9) do |i|
+      val = format('%d', i) * 4096
+      cursor.exec(i, OCI8::CLOB.new(@conn, val), OCI8::NCLOB.new(@conn, val), OCI8::BLOB.new(@conn, val))
+    end
+    cursor.close
+    cursor = @conn.exec("select * from test_table order by id")
+    0.upto(9) do |i|
+      rv = cursor.fetch
+      val = format('%d', i) * 4096
+      assert_equal(i, rv[0])
+      assert_instance_of(OCI8::CLOB, rv[1])
+      assert_instance_of(OCI8::NCLOB, rv[2])
+      assert_instance_of(OCI8::BLOB, rv[3])
+      assert_equal(val, rv[1].read)
+      assert_equal(val, rv[2].read)
+      assert_equal(val, rv[3].read)
+    end
+    assert_nil(cursor.fetch)
+    cursor.close
+    drop_table('test_table')
+  end
+end # TestOCI8
+
+if $0 == __FILE__
+  RUNIT::CUI::TestRunner.run(TestOCI8.suite())
+end