ruby-oci8 2.1.5.1-x64-mingw32

data/test/test_appinfo.rb

@@ -0,0 +1,63 @@
+require 'oci8'
+require 'test/unit'
+require File.dirname(__FILE__) + '/config'
+
+class TestAppInfo < Test::Unit::TestCase
+
+  def setup
+    @conn = get_oci8_connection
+  end
+
+  def test_set_client_identifier
+    # set client_id
+    client_id = "ruby-oci8:#{Process.pid()}"
+    @conn.client_identifier = client_id
+    assert_equal(client_id, @conn.select_one("SELECT SYS_CONTEXT('USERENV', 'CLIENT_IDENTIFIER') FROM DUAL")[0]);
+    # check the first character
+    assert_raise ArgumentError do
+      @conn.client_identifier = ':bad_identifier'
+    end
+
+    # clear client_id
+    @conn.client_identifier = nil
+    assert_nil(@conn.select_one("SELECT SYS_CONTEXT('USERENV', 'CLIENT_IDENTIFIER') FROM DUAL")[0]);
+  end
+
+  def test_set_module
+    # FIXME: check again after upgrading Oracle 9.2 to 9.2.0.4.
+    return if @conn.oracle_server_version < OCI8::ORAVER_10_1
+
+    # set module
+    @conn.module = 'ruby-oci8'
+    assert_equal('ruby-oci8', @conn.select_one("SELECT SYS_CONTEXT('USERENV', 'MODULE') FROM DUAL")[0]);
+    # clear module
+    @conn.module = nil
+    assert_nil(@conn.select_one("SELECT SYS_CONTEXT('USERENV', 'MODULE') FROM DUAL")[0]);
+  end
+
+  def test_set_action
+    # FIXME: check again after upgrading Oracle 9.2 to 9.2.0.4.
+    return if @conn.oracle_server_version < OCI8::ORAVER_10_1
+
+    # set action
+    @conn.action = 'test_set_action'
+    assert_equal('test_set_action', @conn.select_one("SELECT SYS_CONTEXT('USERENV', 'ACTION') FROM DUAL")[0]);
+    # clear action
+    @conn.action = nil
+    assert_nil(@conn.select_one("SELECT SYS_CONTEXT('USERENV', 'ACTION') FROM DUAL")[0]);
+  end
+
+  def test_set_client_info
+    # set client_info
+    client_info = "ruby-oci8:#{Process.pid()}"
+    @conn.client_info = client_info
+    assert_equal(client_info, @conn.select_one("SELECT SYS_CONTEXT('USERENV', 'CLIENT_INFO') FROM DUAL")[0]);
+    # clear client_info
+    @conn.client_info = nil
+    assert_nil(@conn.select_one("SELECT SYS_CONTEXT('USERENV', 'CLIENT_INFO') FROM DUAL")[0]);
+  end
+
+  def teardown
+    @conn.logoff
+  end
+end

data/test/test_array_dml.rb

@@ -0,0 +1,333 @@
+require 'oci8'
+require 'test/unit'
+require File.dirname(__FILE__) + '/config'
+
+class TestArrayDML < Test::Unit::TestCase
+  def setup
+    @conn = get_oci8_connection
+  end
+
+  def teardown
+    @conn.logoff
+  end
+
+  # test inserting arrays with different data types
+  #   including char, varchar2, number, date and so on
+  def test_array_insert1
+    drop_table('test_table')
+    sql = <<-EOS
+CREATE TABLE test_table
+  (C CHAR(10) NOT NULL,
+   V VARCHAR2(20),
+   N NUMBER(10, 2),
+   D DATE,
+   INT NUMBER(30), 
+   BIGNUM NUMBER(30),
+   T TIMESTAMP)
+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, :D, :INT, :BIGNUM, :T)")
+    max_array_size = 3
+    cursor.max_array_size= max_array_size
+    
+    cursor.bind_param_array(1, nil, String)
+    cursor.bind_param_array(2, nil ,String)
+    cursor.bind_param_array(3, nil, Fixnum)
+    cursor.bind_param_array(4, nil, OraDate)
+    cursor.bind_param_array(5, nil, Integer)
+    cursor.bind_param_array(6, nil, Bignum)
+    cursor.bind_param_array(7, nil, DateTime)
+
+    c_arr = Array.new
+    v_arr = Array.new
+    n_arr = Array.new
+    d_arr = Array.new
+    int_arr = Array.new
+    bignum_arr = Array.new
+    t_arr = Array.new
+    
+    1.upto(30) do |i|
+      c_arr << format("%10d", i * 10)
+      v_arr << i.to_s
+      n_arr << i
+      d_arr <<  OraDate.new(2000 + i, 12, 24, 23, 59, 59)
+      int_arr << i * 11111111111
+      bignum_arr << i * 10000000000
+      t_arr <<  DateTime.new(2000 + i, 12, 24, 23, 59, 59)
+      
+      if i%max_array_size == 0
+        cursor[1] = c_arr
+        cursor[2] = v_arr
+        cursor[3] = n_arr
+        cursor[4] = d_arr
+        cursor[5] = int_arr
+        cursor[6] = bignum_arr
+        cursor[7] = t_arr
+        
+        r = cursor.exec_array
+        assert_equal(max_array_size, r)
+        assert_equal(c_arr, cursor[1])
+        assert_equal(v_arr, cursor[2])
+        assert_equal(n_arr, cursor[3])
+        assert_equal(d_arr, cursor[4])
+        assert_equal(int_arr, cursor[5])
+        assert_equal(bignum_arr, cursor[6])
+        assert_equal(t_arr, cursor[7])
+        c_arr.clear
+        v_arr.clear
+        n_arr.clear
+        d_arr.clear
+        int_arr.clear
+        bignum_arr.clear
+        t_arr.clear
+      end
+    end
+    cursor.close
+    
+    cursor = @conn.parse("SELECT * FROM test_table ORDER BY c")
+    cursor.define(5, Integer)
+    cursor.define(6, Bignum)
+    cursor.exec
+    assert_equal(["C","V","N","D","INT","BIGNUM","T"], cursor.get_col_names)
+    1.upto(30) 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])
+      tm = Time.local(2000 + i, 12, 24, 23, 59, 59)
+      assert_equal(tm, rv[3])
+      assert_equal(i * 11111111111, rv[4])
+      assert_equal(i * 10000000000, rv[5])
+      assert_equal(tm, rv[6])
+    end
+    assert_nil(cursor.fetch)
+    drop_table('test_table')
+  end
+
+  # Raise error when binding arrays are not the same size
+  def test_array_insert2
+    drop_table('test_table')
+    sql = <<-EOS
+CREATE TABLE test_table
+  (N NUMBER(10, 2) NOT NULL,
+   V VARCHAR(20))
+EOS
+    @conn.exec(sql)
+    cursor = @conn.parse("INSERT INTO test_table VALUES (:N, :V)")
+    max_array_size = 10
+    cursor.max_array_size = max_array_size
+    cursor.bind_param_array(1, nil, Fixnum)
+    cursor.bind_param_array(2, nil, String)
+    n_arr = Array.new
+    v_arr = Array.new
+    1.upto(max_array_size) do |i|
+      n_arr << i
+      v_arr << i.to_s if i != max_array_size
+    end
+    cursor[1] = n_arr
+    assert_raise(RuntimeError) { cursor[2] = v_arr }
+    cursor.close
+    
+    drop_table('test_table')
+  end  
+
+  # All binds are clear from cursor after calling "max_array_size=", 
+  #  in that case, you have to re-bind the array parameters 
+  #  otherwise, an error will be raised.
+  def test_array_insert3
+    drop_table('test_table')
+    sql = <<-EOS
+CREATE TABLE test_table
+  (N NUMBER(10, 2) NOT NULL,
+   V VARCHAR(20),
+   T TIMESTAMP)
+EOS
+    @conn.exec(sql)
+    cursor = @conn.parse("INSERT INTO test_table VALUES (:N, :V, :T)")
+    cursor.max_array_size = 3
+    cursor.bind_param_array(1, [1, 2, 3])
+    cursor.bind_param_array(2, ['happy', 'new', 'year'])
+    cursor.bind_param_array(3, [Time.gm(1990,1,1), Time.gm(2000,1,1), Time.gm(2010,1,1)])
+    assert_nothing_raised() { cursor.exec_array }
+    cursor.max_array_size = 2
+    assert_raise(RuntimeError) { cursor.exec_array }
+    drop_table('test_table')
+  end
+
+  # The size of binding arrays are not required to be same as max_array_size. The 
+  #   only requirement is that they should be the same size, and the size will be 
+  #   used as execution count for OCIStmtExecute.
+  def test_array_insert4
+    drop_table('test_table')
+    sql = <<-EOS
+CREATE TABLE test_table
+  (N NUMBER(10, 2) NOT NULL,
+   V VARCHAR(20))
+EOS
+    @conn.exec(sql)
+    cursor = @conn.parse("INSERT INTO test_table VALUES (:N, :V)")
+    max_array_size = 4
+    cursor.max_array_size = max_array_size
+    cursor.bind_param_array(1, nil, Fixnum)
+    cursor.bind_param_array(2, nil, String)
+    n_arr = Array.new
+    v_arr = Array.new
+    1.upto( max_array_size - 1 ) do |i|
+      n_arr << i
+      v_arr << i.to_s
+    end
+    cursor[1] = n_arr
+    cursor[2] = v_arr
+    assert_nothing_raised() { cursor.exec_array }
+    cursor.close
+
+    cursor = @conn.parse("SELECT * FROM test_table ORDER BY N")
+    cursor.exec
+    1.upto( max_array_size - 1 ) do |i|
+      rv = cursor.fetch
+      assert_equal(i, rv[0])
+      assert_equal(i.to_s, rv[1])
+    end  
+    assert_nil(cursor.fetch)
+    cursor.close
+    drop_table('test_table')    
+  end
+
+  # Inserting "nil" elements with array dml raises an error
+  def test_array_insert5
+    drop_table('test_table')
+    sql = <<-EOS
+CREATE TABLE test_table
+  (N NUMBER(10, 2),
+   V VARCHAR(20))
+EOS
+    @conn.exec(sql)
+    cursor = @conn.parse("INSERT INTO test_table VALUES (:N, :V)")
+    max_array_size = 3
+    cursor.max_array_size = max_array_size
+    cursor.bind_param_array(1, nil, Fixnum)
+    cursor.bind_param_array(2, nil, String)
+    assert_raise(RuntimeError) { cursor.exec_array }
+    cursor.close
+    drop_table('test_table')
+  end
+
+  # delete with array bindings
+  def test_array_delete
+    drop_table('test_table')
+    sql = <<-EOS
+CREATE TABLE test_table
+  (N NUMBER(10, 2),
+   V VARCHAR(20))
+EOS
+    @conn.exec(sql)    
+    cursor = @conn.parse("INSERT INTO test_table VALUES (:N, :V)")
+    max_array_size = 10
+    cursor.max_array_size = max_array_size
+    n_arr = Array.new
+    v_arr = Array.new
+    1.upto( max_array_size) do |i|
+      n_arr << i
+      v_arr << i.to_s
+    end    
+    cursor.bind_param_array(1, nil, Fixnum)
+    cursor.bind_param_array(2, nil, String)
+    cursor[1] = n_arr
+    cursor[2] = v_arr
+    cursor.exec_array
+    cursor.close
+
+    cursor = @conn.parse("DELETE FROM test_table WHERE N=:1")
+    cursor.max_array_size = max_array_size
+    delete_arr = Array.new
+    1.upto(max_array_size) do |i|
+      if i%2 == 0
+        delete_arr << i
+      end  
+    end
+    cursor.bind_param_array(1, nil, Fixnum)
+    cursor[1] = delete_arr
+    cursor.exec_array
+    cursor.close
+    
+    cursor = @conn.parse("SELECT * FROM test_table ORDER BY N")
+    cursor.exec
+    1.upto( max_array_size ) do |i|
+      if i%2 != 0
+        rv = cursor.fetch
+        assert_equal(rv[0], i)
+        assert_equal(rv[1], i.to_s)
+      end
+    end  
+    assert_nil(cursor.fetch)    
+    cursor.close
+    
+    drop_table('test_table')
+  end
+
+  # update with array bindings
+  def test_array_update
+    drop_table('test_table')
+    sql = <<-EOS
+CREATE TABLE test_table
+  (N NUMBER(10, 2),
+   V VARCHAR(20))
+EOS
+    @conn.exec(sql)    
+    cursor = @conn.parse("INSERT INTO test_table VALUES (:N, :V)")
+    max_array_size = 10
+    cursor.max_array_size = max_array_size
+    n_arr = Array.new
+    v_arr = Array.new
+    1.upto( max_array_size) do |i|
+      n_arr << i
+      v_arr << i.to_s
+    end    
+    cursor.bind_param_array(1, nil, Fixnum)
+    cursor.bind_param_array(2, nil, String)
+    cursor[1] = n_arr
+    cursor[2] = v_arr
+    cursor.exec_array
+    cursor.close
+
+    cursor = @conn.parse("UPDATE test_table SET V=:1 WHERE N=:2")
+    cursor.max_array_size = max_array_size
+    update_arr = Array.new
+    update_v_arr = Array.new
+    1.upto(max_array_size) do |i|
+      if i%2 == 0
+        update_arr << i
+        update_v_arr << (i * 10).to_s
+      end  
+    end
+    cursor.bind_param_array(1, nil, String)
+    cursor.bind_param_array(2, nil, Fixnum)
+    cursor[1] = update_v_arr
+    cursor[2] = update_arr
+    cursor.exec_array
+    cursor.close
+    
+    cursor = @conn.parse("SELECT * FROM test_table ORDER BY N")
+    cursor.exec
+    1.upto( max_array_size ) do |i|
+      rv = cursor.fetch      
+      if i%2 != 0
+        assert_equal(rv[0], i)
+        assert_equal(rv[1], i.to_s)
+      else
+        assert_equal(rv[0], i)
+        assert_equal(rv[1], (i * 10).to_s)
+      end
+    end  
+    assert_nil(cursor.fetch)    
+
+    cursor.close
+    drop_table('test_table')
+  end
+end

data/test/test_bind_raw.rb

@@ -0,0 +1,46 @@
+# Low-level API
+require 'oci8'
+require 'test/unit'
+require File.dirname(__FILE__) + '/config'
+
+class TestBindRaw < Test::Unit::TestCase
+  CHECK_TARGET = [
+    ["0123456789:;<=>?", "303132333435363738393A3B3C3D3E3F"],
+    ["@ABCDEFGHIJKLMNO", "404142434445464748494A4B4C4D4E4F"],
+    ["PQRSTUVWXYZ[\\]^_", "505152535455565758595A5B5C5D5E5F"],
+    ["`abcdefghijklmno", "606162636465666768696A6B6C6D6E6F"],
+    ["pqrstuvwxyz{|}~", "707172737475767778797A7B7C7D7E"],
+  ]
+
+  def setup
+    @conn = get_oci8_connection()
+  end
+
+  def test_set_raw
+    cursor = @conn.parse("BEGIN :hex := RAWTOHEX(:raw); END;")
+    cursor.bind_param(:raw, nil, OCI8::RAW, 16)
+    cursor.bind_param(:hex, nil, String, 32)
+
+    CHECK_TARGET.each do |raw, hex|
+      cursor[:raw] = raw
+      cursor.exec
+      assert_equal(hex, cursor[:hex])
+    end
+  end
+
+  def test_get_raw
+    cursor = @conn.parse("BEGIN :raw := HEXTORAW(:hex); END;")
+    cursor.bind_param(:hex, nil, String, 32)
+    cursor.bind_param(:raw, nil, OCI8::RAW, 16)
+
+    CHECK_TARGET.each do |raw, hex|
+      cursor[:hex] = hex
+      cursor.exec
+      assert_equal(raw, cursor[:raw])
+    end
+  end
+
+  def teardown
+    @conn.logoff
+  end
+end

data/test/test_bind_string.rb

@@ -0,0 +1,106 @@
+# -*- coding: utf-8 -*-
+require 'oci8'
+require 'test/unit'
+require File.dirname(__FILE__) + '/config'
+
+class TestBindString < Test::Unit::TestCase
+  def setup
+    @conn = get_oci8_connection
+  end
+
+  def teardown
+    @conn.logoff
+  end
+
+  if OCI8.client_charset_name.include? 'UTF8'
+
+    def test_bind_string_as_nchar
+      if ['AL32UTF8', 'UTF8', 'ZHS32GB18030'].include? @conn.database_charset_name
+        warn "Skip test_bind_string_as_nchar. It needs Oracle server whose database chracter set is incompatible with unicode."
+      else
+        drop_table('test_table')
+        @conn.exec("CREATE TABLE test_table (ID NUMBER(5), V VARCHAR2(10), NV1 NVARCHAR2(10), NV2 NVARCHAR2(10))")
+
+        orig_prop = OCI8.properties[:bind_string_as_nchar]
+        begin
+          utf8_string = "a¡あ"
+
+          OCI8.properties[:bind_string_as_nchar] = false
+          @conn.exec("INSERT INTO test_table VALUES (1, N'#{utf8_string}', N'#{utf8_string}', :1)", utf8_string)
+          v, nv1, nv2 = @conn.select_one('select V, NV1, NV2 from test_table where ID = 1')
+          assert_not_equal(utf8_string, v) # Some UTF-8 chracters should be garbled.
+          assert_equal(utf8_string, nv1) # No garbled characters
+          assert_equal(v, nv2) # Garbled as VARCHAR2 column.
+
+          OCI8.properties[:bind_string_as_nchar] = true
+          @conn.exec("INSERT INTO test_table VALUES (2, N'#{utf8_string}', N'#{utf8_string}', :1)", utf8_string)
+          v, nv1, nv2 = @conn.select_one('select V, NV1, NV2 from test_table where ID = 2')
+          assert_not_equal(utf8_string, v) # Some UTF-8 chracters should be garbled.
+          assert_equal(utf8_string, nv1) # No garbled characters
+          assert_equal(nv1, nv2) # Same as NVARCHAR2.
+
+          @conn.commit
+        ensure
+          OCI8.properties[:bind_string_as_nchar] = orig_prop
+        end
+      end
+    end
+
+    def test_length_semantics # This test needs to be revised.
+      orig_prop = OCI8.properties[:length_semantics]
+      begin
+        utf8_string = "a¡あ"
+
+        OCI8.properties[:length_semantics] = :byte
+        assert_equal(:byte, OCI8.properties[:length_semantics])
+        cursor = @conn.parse <<EOS
+DECLARE
+  TMP VARCHAR2(6);
+BEGIN
+  TMP := :in;
+  :out := TMP;
+END;
+EOS
+        cursor.bind_param(:in, utf8_string)
+        cursor.bind_param(:out, nil, String, 5)
+        begin
+          cursor.exec
+        rescue OCIError
+          assert_equal(6502, $!.code)
+        end
+        cursor.bind_param(:out, nil, String, 6)
+        cursor.exec
+        assert_equal(utf8_string, cursor[:out])
+
+        OCI8.properties[:length_semantics] = :char
+        assert_equal(:char, OCI8.properties[:length_semantics])
+        cursor = @conn.parse <<EOS
+DECLARE
+  TMP VARCHAR2(6);
+BEGIN
+  TMP := :in;
+  :out := TMP;
+END;
+EOS
+        cursor.bind_param(:in, utf8_string, String, 3)
+        cursor.bind_param(:out, nil, String, 2)
+        begin
+          cursor.exec
+        rescue OCIError
+          assert_equal(6502, $!.code)
+        end
+        cursor.bind_param(:out, nil, String, 3)
+        cursor.exec
+        assert_equal(utf8_string, cursor[:out])
+      ensure
+        OCI8.properties[:length_semantics] = orig_prop
+      end
+    end
+
+  else
+
+    def test_dummy
+      # to suppress "No tests were specified."
+    end
+  end
+end