ruby-oci8 2.1.5.1-x64-mingw32

data/test/README

@@ -0,0 +1,42 @@
+Before runing unit test:
+
+1. connect to Oracle as system:
+
+    $ sqlplus system/<password_of_system>
+
+2. create user ruby:
+
+    SQL> CREATE USER ruby IDENTIFIED BY oci8;
+
+   or
+
+    SQL> CREATE USER ruby IDENTIFIED BY oci8
+       2 DEFAULT TABLESPACE users TEMPORARY TABLESPACE temp;
+
+3. grant the privilege to connect and execute.
+
+    SQL> GRANT connect, resource, create view TO ruby;
+
+4. connect to Oracle as sys
+
+    $ sqlplus 'sys/<password_of_sys> as sysdba'
+
+5. grant privileges
+
+    SQL> GRANT EXECUTE ON dbms_lock TO ruby;
+    SQL> GRANT CREATE VIEW TO ruby;
+
+6. connect as ruby user.
+
+    $ sqlplus ruby/oci8
+
+7. Create object types
+
+    SQL> @test/setup_test_object.sql
+
+8. change $dbname if the database 
+
+Then you can run:
+  $ make check
+or
+  $ nmake check   (If your compiler is MS Visual C++.)

data/test/config.rb

@@ -0,0 +1,184 @@
+# $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.
+
+# $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
+
+module Test
+  module Unit
+    class TestCase
+
+      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
+  end
+end
+

data/test/setup_test_object.sql

@@ -0,0 +1,171 @@
+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
+/
+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,
+--  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 or replace type body rb_test_obj is
+
+  constructor function rb_test_obj(n number) return self as result is
+    function to_test_date(n number) return date is
+    begin
+      return to_date(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'), 'yyyymmddhh24miss');
+    end;
+  begin
+    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 := to_test_date(n);
+    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 2;
+  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;
+/
+commit
+/

data/test/test_all.rb

@@ -0,0 +1,54 @@
+srcdir = File.dirname(__FILE__)
+
+require 'oci8'
+require 'test/unit'
+require "#{srcdir}/config"
+
+require "#{srcdir}/test_oradate"
+require "#{srcdir}/test_oranumber"
+require "#{srcdir}/test_bind_string"
+require "#{srcdir}/test_bind_time"
+require "#{srcdir}/test_bind_raw"
+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"
+
+if OCI8.respond_to? :encoding
+  require "#{srcdir}/test_encoding"
+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
+
+#Test::Unit::AutoRunner.run(true, true)
+if defined? Test::Unit::AutoRunner
+  Test::Unit::AutoRunner.run()
+end