ruby-oci8 2.2.10-x64-mingw-ucrt

data/test/README.md

@@ -0,0 +1,37 @@
+Before running unit test:
+
+1. Connect to Oracle as sys
+   ```shell
+   $ sqlplus sys/<password_of_sys> as sysdba
+   SQL>
+   ```
+2. Create user ruby
+   ```sql
+   SQL> CREATE USER ruby IDENTIFIED BY oci8 DEFAULT TABLESPACE users TEMPORARY TABLESPACE temp;
+   SQL> alter user ruby quota unlimited on users;
+   ```
+3. Grant the privilege to connect and execute.
+   ```sql
+    SQL> GRANT connect, resource, create view, create synonym TO ruby;
+    SQL> GRANT execute ON dbms_lock TO ruby;
+    ```
+4. Connect as ruby user.
+   ```shell
+   $ sqlplus ruby/oci8
+   SQL>
+   ```
+5. Create object types
+   ```sql
+   SQL> @test/setup_test_object.sql
+   SQL> @test/setup_test_package.sql
+   ```
+6. change $dbname in test/config.rb.
+
+Then run the following command:
+```shell
+$ make check
+```
+or
+```
+$ nmake check   (If your compiler is MS Visual C++.)
+````

data/test/config.rb

@@ -0,0 +1,201 @@
+# $dbuser must have permission to run DBMS_LOCK.SLEEP
+#   connect as sys
+#     GRANT EXECUTE ON dbms_lock TO ruby;
+$dbuser = "ruby"
+$dbpass = "oci8"
+$dbname = nil
+
+# for test_bind_string_as_nchar in test_encoding.rb
+ENV['ORA_NCHAR_LITERAL_REPLACE'] = 'TRUE' if OCI8.client_charset_name.include? 'UTF8'
+
+# test_clob.rb
+
+nls_lang = ENV['NLS_LANG']
+nls_lang = nls_lang.split('.')[1] unless nls_lang.nil?
+nls_lang = nls_lang.upcase unless nls_lang.nil?
+$lobfile = File.dirname(__FILE__) + '/../setup.rb'
+$lobreadnum = 256 # counts in charactors
+
+# don't modify below.
+
+begin
+  require 'minitest/autorun'
+  Minitest = MiniTest unless defined? Minitest
+  Minitest::Test = Minitest::Unit::TestCase unless defined? Minitest::Test
+rescue LoadError
+  require 'test/unit'
+  module Minitest
+    Test = ::Test::Unit::TestCase
+    Assertions = ::Test::Unit::Assertions
+    module Assertions
+      alias refute_nil assert_not_nil
+    end
+  end
+end
+
+# $oracle_server_version: database compatible level of the Oracle server.
+# $oracle_client_version: Oracle client library version for which oci8 is compiled.
+# $oracle_version: lower value of $oracle_server_version and $oracle_client_version.
+conn = OCI8.new($dbuser, $dbpass, $dbname)
+begin
+  conn.exec('select value from database_compatible_level') do |row|
+    $oracle_server_version = OCI8::OracleVersion.new(row[0])
+  end
+rescue OCIError
+  raise if $!.code != 942 # ORA-00942: table or view does not exist
+  $oracle_server_version = OCI8::ORAVER_8_0
+end
+conn.logoff
+
+if $oracle_server_version < OCI8.oracle_client_version
+  $oracle_version = $oracle_server_version
+else
+  $oracle_version = OCI8.oracle_client_version
+end
+
+if $oracle_version < OCI8::ORAVER_8_1
+  $test_clob = false
+else
+  $test_clob = true
+end
+
+begin
+  Time.new(2001, 1, 1, 0, 0, 0, '+00:00')
+  # ruby 1.9.2 or later
+  def convert_to_time(year, month, day, hour, minute, sec, subsec, timezone)
+    subsec ||= 0
+    if timezone
+      # with time zone
+      Time.new(year, month, day, hour, minute, sec + subsec, timezone)
+    else
+      # without time zone
+      Time.local(year, month, day, hour, minute, sec, subsec * 1000000)
+    end
+  end
+rescue
+  # ruby 1.9.1 or former
+  def convert_to_time(year, month, day, hour, minute, sec, subsec, timezone)
+    subsec ||= 0
+    if timezone
+      # with time zone
+      /([+-])(\d+):(\d+)/ =~ timezone
+      offset = ($1 + '1').to_i * ($2.to_i * 60 + $3.to_i)
+      if offset == 0
+        Time.utc(year, month, day, hour, minute, sec, subsec * 1000000)
+      else
+        tm = Time.local(year, month, day, hour, minute, sec, subsec * 1000000)
+        raise "Failed to convert #{str} to Time" if tm.utc_offset != offset * 60
+        tm
+      end
+    else
+      # without time zone
+      Time.local(year, month, day, hour, minute, sec, subsec * 1000000)
+    end
+  end
+end
+
+def convert_to_datetime(year, month, day, hour, minute, sec, subsec, timezone)
+  subsec ||= 0
+  utc_offset = if timezone
+                 # with time zone
+                 /([+-])(\d+):(\d+)/ =~ timezone
+                 ($1 + '1').to_i * ($2.to_i * 60 + $3.to_i) * 60
+               else
+                 Time.local(year, month, day, hour, minute, sec).utc_offset
+               end
+  begin
+    DateTime.civil(year, month, day, hour, minute, sec + subsec, utc_offset.to_r / 86400)
+  rescue ArgumentError
+    raise $! if $!.to_s != 'invalid date'
+    # for ruby 1.8.6.
+    # convert to a DateTime via a String as a workaround.
+    if utc_offset >= 0
+      sign = ?+
+    else
+      sign = ?-
+      utc_offset = - utc_offset;
+    end
+    tz_min = utc_offset / 60
+    tz_hour, tz_min = tz_min.divmod 60
+    time_str = format("%04d-%02d-%02dT%02d:%02d:%02d.%09d%c%02d:%02d",
+                      year, month, day, hour, minute, sec, (subsec * 1000_000_000).to_i, sign, tz_hour, tz_min)
+    ::DateTime.parse(time_str)
+  end
+end
+
+class Minitest::Test
+
+  # @!visibility private
+  # dirty hack to suppress "warning: constant ::Fixnum is deprecated"
+  Fixnum = (0.class == ::Integer) ? ::Integer : ::Fixnum
+  # @!visibility private
+  # dirty hack to suppress "warning: constant ::Bignum is deprecated"
+  Bignum = (0.class == ::Integer) ? ::Integer : ::Bignum
+
+  def get_oci8_connection()
+    OCI8.new($dbuser, $dbpass, $dbname)
+  rescue OCIError
+    raise if $!.code != 12516 && $!.code != 12520
+    # sleep a few second and try again if
+    # the error code is ORA-12516 or ORA-12520.
+    #
+    # ORA-12516 - TNS:listener could not find available handler with
+    #             matching protocol stack
+    # ORA-12520 - TNS:listener could not find available handler for
+    #             requested type of server
+    #
+    # Thanks to Christopher Jones.
+    #
+    # Ref: The Underground PHP and Oracle Manual (page 175 in vesion 1.4)
+    #      http://www.oracle.com/technology/tech/php/pdf/underground-php-oracle-manual.pdf
+    #
+    sleep(5)
+    OCI8.new($dbuser, $dbpass, $dbname)
+  end
+
+  def get_dbi_connection()
+    DBI.connect("dbi:OCI8:#{$dbname}", $dbuser, $dbpass, 'AutoCommit' => false)
+  rescue DBI::DatabaseError
+    raise if $!.err != 12516 && $!.err != 12520
+    # same as get_oci8_connection()
+    sleep(5)
+    DBI.connect("dbi:OCI8:#{$dbname}", $dbuser, $dbpass, 'AutoCommit' => false)
+  end
+
+  def drop_table(table_name)
+    if $oracle_server_version < OCI8::ORAVER_10_1
+      # Oracle 8 - 9i
+      sql = "DROP TABLE #{table_name}"
+    else
+      # Oracle 10g -
+      sql = "DROP TABLE #{table_name} PURGE"
+    end
+
+    if defined? @conn
+      begin
+        @conn.exec(sql)
+      rescue OCIError
+        raise if $!.code != 942 # table or view does not exist
+      end
+    elsif instance_variable_get(:@dbh)
+      begin
+        @dbh.do(sql)
+      rescue DBI::DatabaseError
+        raise if $!.err != 942 # table or view does not exist
+      end
+    end
+  end # drop_table
+
+  def drop_type(type_name)
+    begin
+      @conn.exec("DROP TYPE BODY #{type_name}")
+    rescue OCIError
+      raise if $!.code != 4043
+    end
+    begin
+      @conn.exec("DROP TYPE #{type_name}")
+    rescue OCIError
+      raise if $!.code != 4043
+    end
+  end # drop_type
+end

data/test/setup_test_object.sql

@@ -0,0 +1,199 @@
+drop table rb_test_obj_tab1 purge
+/
+drop table rb_test_obj_tab2 purge
+/
+drop type rb_test_obj
+/
+drop type rb_test_obj_elem_ary_of_ary
+/
+drop type rb_test_obj_elem_array
+/
+drop type rb_test_obj_elem
+/
+drop type rb_test_obj_sub
+/
+drop type rb_test_obj_base
+/
+create type rb_test_obj_elem as object (
+  x integer,
+  y integer
+)
+/
+create or replace type rb_test_int_array as array(50) of integer
+/
+create or replace type rb_test_flt_array as array(50) of float
+/
+create or replace type rb_test_num_array as array(50) of number(10,1)
+/
+create or replace type rb_test_bdbl_array as array(50) of binary_double
+/
+create or replace type rb_test_bflt_array as array(50) of binary_float
+/
+create or replace type rb_test_str_array as array(50) of varchar2(50)
+/
+create or replace type rb_test_raw_array as array(50) of raw(50)
+/
+create or replace type rb_test_obj_elem_array as array(50) of rb_test_obj_elem
+/
+create or replace type rb_test_obj_elem_ary_of_ary as array(50) of rb_test_obj_elem_array
+/
+--create or replace type rb_test_date_array as array(50) of date
+--/
+create type rb_test_obj as object (
+  int_val integer,
+  flt_val float,
+  num_val number(10,1),
+  bdbl_val binary_double,
+  bflt_val binary_float,
+  str_val varchar2(50),
+  raw_val raw(50),
+  clob_val clob,
+  nclob_val nclob,
+  blob_val blob,
+  obj_val rb_test_obj_elem,
+  int_array_val rb_test_int_array,
+  flt_array_val rb_test_flt_array,
+  num_array_val rb_test_num_array,
+  bdbl_array_val rb_test_bdbl_array,
+  bflt_array_val rb_test_bflt_array,
+  str_array_val rb_test_str_array,
+  raw_array_val rb_test_raw_array,
+  obj_array_val rb_test_obj_elem_array,
+  obj_ary_of_ary_val rb_test_obj_elem_ary_of_ary,
+  date_val date,
+  timestamp_val timestamp(9),
+  timestamp_tz_val timestamp(9) with time zone,
+--  date_array_val rb_test_date_array,
+
+  constructor function rb_test_obj(n number) return self as result,
+  static function test_object_version return integer,
+  static function class_func(n number) return rb_test_obj,
+  static procedure class_proc1(obj out rb_test_obj, n number),
+  static procedure class_proc2(obj in out rb_test_obj),
+  member function member_func return integer,
+  member procedure member_proc(n in integer)
+)
+/
+create type body rb_test_obj is
+  constructor function rb_test_obj(n number) return self as result is
+    str varchar(28);
+    ts timestamp(9);
+    ts_tz timestamp(9) with time zone;
+  begin
+    str := to_char(1990 + n, 'FM0000') ||
+                   to_char(mod(round(n) * 5, 12) + 1, 'FM00') ||
+                   to_char(mod(round(n) * 7, 27) + 1, 'FM00') ||
+                   to_char(mod(round(n) * 9, 24), 'FM00') ||
+                   to_char(mod(round(n) * 11, 60), 'FM00') ||
+                   to_char(mod(round(n) * 13, 60), 'FM00') ||
+                   to_char(mod(round(n) * 333333333, 1000000000), 'FM000000000');
+    ts := to_timestamp(str, 'yyyymmddhh24missff9');
+    str := str || to_char(mod(round(n) * 15, 24) - 11, 'FMS00') ||
+                  to_char(mod(round(n) * 17, 60), 'FM00');
+    ts_tz := to_timestamp_tz(str, 'yyyymmddhh24missff9tzhtzm');
+    self.int_val := n;
+    self.flt_val := n;
+    self.num_val := n;
+    self.bdbl_val := n;
+    self.bflt_val := n;
+    self.str_val := to_char(n);
+    self.raw_val := utl_raw.cast_to_raw(to_char(n));
+    self.clob_val := to_clob(n);
+    self.nclob_val := to_clob(n);
+    self.blob_val := to_blob(utl_raw.cast_to_raw(to_char(n)));
+    self.obj_val := rb_test_obj_elem(n, n + 1);
+    self.date_val := ts;
+    self.timestamp_val := ts;
+    self.timestamp_tz_val := ts_tz;
+    if self.int_val != 1 then
+      self.int_array_val := rb_test_int_array(n, n + 1, n + 2);
+      self.flt_array_val := rb_test_flt_array(n, n + 1, n + 2);
+      self.num_array_val := rb_test_num_array(n, n + 1, n + 2);
+      self.bdbl_array_val := rb_test_bdbl_array(n, n + 1, n + 2);
+      self.bflt_array_val := rb_test_bflt_array(n, n + 1, n + 2);
+      self.str_array_val := rb_test_str_array(to_char(n), to_char(n + 1), to_char(n + 2));
+      self.raw_array_val := rb_test_raw_array(utl_raw.cast_to_raw(to_char(n)),
+                                              utl_raw.cast_to_raw(to_char(n + 1)),
+                                              utl_raw.cast_to_raw(to_char(n + 2)));
+      self.obj_array_val := rb_test_obj_elem_array(rb_test_obj_elem(n + 0, n + 1),
+                                                   rb_test_obj_elem(n + 1, n + 2),
+                                                   rb_test_obj_elem(n + 2, n + 3));
+      self.obj_ary_of_ary_val := rb_test_obj_elem_ary_of_ary(self.obj_array_val);
+--      self.date_array_val := rb_test_date_array(to_test_date(n),
+--                                                to_test_date(n + 1),
+--                                                to_test_date(n + 2));
+    end if;
+    return;
+  end;
+
+  static function test_object_version return integer is
+  begin
+    return 4;
+  end;
+
+  static function class_func(n number) return rb_test_obj is
+  begin
+    return rb_test_obj(n);
+  end;
+
+  static procedure class_proc1(obj out rb_test_obj, n number) is
+  begin
+    obj := rb_test_obj(n);
+  end;
+
+  static procedure class_proc2(obj in out rb_test_obj) is
+  begin
+    obj.int_val := obj.int_val + 1;
+  end;
+
+  member function member_func return integer is
+  begin
+    return int_val;
+  end;
+
+  member procedure member_proc(n in integer) is
+  begin
+    self.int_val := n;
+  end;
+end;
+/
+create table rb_test_obj_tab1 (
+  n number primary key,
+  obj rb_test_obj
+)
+/
+create table rb_test_obj_tab2 of rb_test_obj (
+  int_val primary key
+)
+/
+declare
+  n number := 0;
+  obj rb_test_obj;
+begin
+  loop
+    n := n + 1.2;
+    exit when n > 20;
+    obj := rb_test_obj(n);
+    insert into rb_test_obj_tab1 values (n, obj);
+    insert into rb_test_obj_tab2 values (obj);
+  end loop;
+end;
+/
+
+create type rb_test_obj_base as object (
+   id varchar2(30)
+) not final
+/
+create type rb_test_obj_sub under rb_test_obj_base (
+   subid varchar2(30)
+) final
+/
+create or replace function rb_test_obj_get_object(get_base integer) return rb_test_obj_base is
+begin
+  if get_base = 0 then
+    return rb_test_obj_base('base');
+  else
+    return rb_test_obj_sub('sub', 'subid');
+  end if;
+end;
+/

data/test/setup_test_package.sql

@@ -0,0 +1,59 @@
+create or replace package rb_test_pkg is
+  package_version pls_integer := 1;
+
+  type array_of_integer is array(50) of integer;
+  type table_of_pls_integer is table of pls_integer;
+  type table_of_boolean is table of boolean;
+  type indexed_table_of_varchar2 is table of varchar2(10) index by varchar2(5);
+  type rec1 is record (i pls_integer, j integer);
+  type rec2 is record (b boolean, it indexed_table_of_varchar2, rec rec1);
+  type table_of_rec1 is table of rec1;
+  type table_of_rec2 is table of rec2;
+
+  function sum_table_of_pls_integer(tbl in table_of_pls_integer) return pls_integer;
+  function add_rec1_values(tbl in table_of_rec1) return pls_integer;
+  procedure out_rec1_values(tbl out table_of_rec1);
+end;
+/
+create or replace package body rb_test_pkg is
+  function sum_table_of_pls_integer(tbl in table_of_pls_integer) return pls_integer is
+    i pls_integer;
+    ret pls_integer := 0;
+  begin
+    for i in tbl.first..tbl.last loop
+      ret := ret + tbl(i);
+    end loop;
+    return ret;
+  end;
+
+  function add_rec1_values(tbl in table_of_rec1) return pls_integer is
+    i pls_integer;
+    ret pls_integer := 0;
+  begin
+    for i in tbl.first..tbl.last loop
+      ret := ret + nvl(tbl(i).i, 0) + nvl(tbl(i).j, 0);
+    end loop;
+    return ret;
+  end;
+
+  procedure out_rec1_values(tbl out table_of_rec1) is
+    i pls_integer;
+    rec1val rec1;
+  begin
+    tbl := table_of_rec1();
+    for i in 1..20 loop
+      tbl.extend;
+      if i mod 6 != 0 then
+        if i mod 3 != 0 then
+          rec1val.i := i;
+          rec1val.j := i;
+        else
+          rec1val.i := null;
+          rec1val.j := null;
+        end if;
+        tbl(i) := rec1val;
+      end if;
+    end loop;
+  end;
+end;
+/

data/test/test_all.rb

@@ -0,0 +1,56 @@
+srcdir = File.dirname(__FILE__)
+
+require 'oci8'
+require "#{srcdir}/config"
+
+require "#{srcdir}/test_oradate"
+require "#{srcdir}/test_oranumber"
+require "#{srcdir}/test_bind_array.rb"
+require "#{srcdir}/test_bind_string"
+require "#{srcdir}/test_bind_time"
+require "#{srcdir}/test_bind_raw"
+require "#{srcdir}/test_bind_integer"
+if $test_clob
+  require "#{srcdir}/test_clob"
+end
+
+require "#{srcdir}/test_break"
+require "#{srcdir}/test_oci8"
+require "#{srcdir}/test_datetime"
+require "#{srcdir}/test_connstr"
+require "#{srcdir}/test_metadata"
+require "#{srcdir}/test_array_dml"
+require "#{srcdir}/test_rowid"
+require "#{srcdir}/test_appinfo"
+require "#{srcdir}/test_oracle_version"
+require "#{srcdir}/test_error"
+require "#{srcdir}/test_connection_pool"
+require "#{srcdir}/test_object"
+require "#{srcdir}/test_properties.rb"
+
+if OCI8.respond_to? :encoding
+  require "#{srcdir}/test_encoding"
+end
+
+if $oracle_version >= OCI8::ORAVER_12_1
+  require "#{srcdir}/test_package_type"
+  require "#{srcdir}/test_bind_boolean.rb"
+end
+
+# Ruby/DBI
+begin
+  require 'dbi'
+rescue LoadError
+  begin
+    require 'rubygems'
+    require 'dbi'
+  rescue LoadError
+    dbi_not_found = true
+  end
+end
+unless dbi_not_found
+  require "#{srcdir}/test_dbi"
+  if $test_clob
+    require "#{srcdir}/test_dbi_clob"
+  end
+end

data/test/test_appinfo.rb

@@ -0,0 +1,62 @@
+require 'oci8'
+require File.dirname(__FILE__) + '/config'
+
+class TestAppInfo < Minitest::Test
+
+  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_raises 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