ruby-oci8 1.0.2

data/support/runit/teardownable.rb

@@ -0,0 +1,16 @@
+require 'runit/method_mappable'
+module RUNIT
+  module Teardownable
+    include MethodMappable
+    @@teardowns = {}
+    def attach_teardown(teardown_method, *methods)
+      attach_method(@@teardowns, teardown_method, *methods)
+    end
+    private :attach_teardown
+    def invoke_teardown(m)
+      invoke_method(@@teardowns, m)
+    end
+    private :invoke_teardown
+  end
+end
+      

data/support/runit/testcase.rb

@@ -0,0 +1,113 @@
+require 'observer'
+require 'runit/testsuite'
+require 'runit/robserver'
+require 'runit/error'
+require 'runit/assert'
+require 'runit/setuppable'
+require 'runit/teardownable'
+
+module RUNIT
+  class TestCase
+    alias_method :extend_test, :extend
+
+    include Assert
+    include Observable
+
+    include Setuppable
+    extend Setuppable
+    include Teardownable
+    extend Teardownable
+
+    @@test_classes = []
+
+    def initialize(method, name=self.class.name)
+      @method = method
+      @name = name
+    end
+
+    def setup
+    end
+    private :setup
+
+    def teardown
+    end
+    private :teardown
+
+    def name
+      @name + "#" +  @method
+    end
+
+    def method_name
+      @method
+    end
+
+    def count_test_cases
+      1
+    end
+
+    def run(result)
+      result.start_test(self)
+      begin
+        run_bare
+      rescue AssertionFailedError
+        result.add_failure($@, $!, self.class)
+      rescue StandardError, ScriptError
+        result.add_error($@, $!, self.class)
+      end
+      result.end_test(self)
+    end
+  
+    def run_bare
+      setup
+      invoke_setup(@method)
+      begin 
+        send(@method)
+      ensure
+        begin
+          invoke_teardown(@method)
+          teardown
+        rescue
+          changed
+          notify_observers(RObserver::ADD_ERROR, $@, $!, self.class)
+        end
+      end
+    end
+        
+    def ==(other)
+      other.class == self.class && other.method_name && self.method_name
+    end
+
+    def TestCase.suite
+      TestSuite.new(self_test_cases)
+    end
+
+    def TestCase.inherited(sub)
+      @@test_classes.push sub
+    end
+
+    def TestCase.self_test_cases
+      instance_methods(true).sort.collect {|m|
+	new(m, name) if /^test/ =~ m
+      }.compact
+    end
+
+    def TestCase.test_cases
+      if self == TestCase
+        TestSuite.new(*@@test_classes)
+      else
+        suite
+      end
+    end
+
+
+    class<<TestCase
+      alias test_methods test_cases
+      alias all_suite test_cases
+      private :self_test_cases
+    end
+
+    def TestCase.test_classes
+      @@test_classes
+    end
+  end
+end

data/support/runit/testfailure.rb

@@ -0,0 +1,25 @@
+module RUNIT
+  SKIP_FILES = $:.collect{|path| /#{path}\/runit\//}.push /\/rubyunit\.rb:/
+
+  class TestFailure
+    attr_reader :at, :err
+    def initialize(at, err, testclass)
+      skip_trace = at.reject{|i|
+        SKIP_FILES.find {|pat|
+          pat =~ i
+	}
+      }
+      @at = insert_class_name(skip_trace, testclass)
+      @err = err
+    end
+    def to_s
+      "#{@at[0]} #{@err}(#{@err.type})"
+    end
+    def insert_class_name(last_exception_backtrace, testclass)
+      tns = testclass.inspect.split("::")
+      last_exception_backtrace[0] += "(" + tns[tns.length-1] + ")"
+      last_exception_backtrace
+    end
+    private :insert_class_name
+  end
+end

data/support/runit/testresult.rb

@@ -0,0 +1,121 @@
+require 'observer'
+require 'runit/error'
+require 'runit/robserver'
+require 'runit/testfailure'
+
+module RUNIT
+  class TestResultItem
+    attr_reader :name
+    attr_reader :failures
+    attr_reader :errors
+    attr_accessor :run_asserts
+
+    def initialize(name)
+      @failures = []
+      @errors = []
+      @name = name
+      @run_asserts = 0
+    end
+
+    def add_failure(failure)
+      @failures.push failure
+    end
+
+    def add_error(error)
+      @errors.push error
+    end
+  end
+
+  class TestResult
+    include Observable
+    include RObserver
+
+    def initialize
+      @result = nil
+      @results = []
+      @test_start_time = nil
+      @test_end_time = nil
+      @start_assert_size = 0
+    end
+
+    def items
+      @results
+    end
+  
+    def run_tests
+      @results.size
+    end
+
+    def add_failure(at, err, testclass)
+      fail = TestFailure.new(at, err, testclass)
+      @result.add_failure(fail)
+      changed
+      notify_observers(RObserver::ADD_FAILURE, at, err)
+    end
+  
+    def add_error(at, err, testclass)
+      error = TestFailure.new(at, err, testclass)
+      @result.add_error(error)
+      changed
+      notify_observers(RObserver::ADD_ERROR, at, err)
+    end
+  
+    def assert_size
+      size = 0
+      @results.each do |i|
+        size += i.run_asserts
+      end
+      size
+    end
+    alias run_asserts assert_size
+
+    def failure_size
+      failures.size
+    end
+
+    def error_size
+      errors.size
+    end
+
+    def failures
+      @results.collect{|r|
+	r.failures
+      }.flatten
+    end
+
+    def errors
+      @results.collect{|r|
+        r.errors
+      }.flatten
+    end
+
+    def succeed?
+      failure_size == 0 && error_size == 0
+    end
+
+    def running_time
+      if @test_end_time && @test_start_time
+        @test_end_time - @test_start_time
+      else
+        0
+      end
+    end
+  
+    def start_test(testcase)
+      testcase.add_observer(self)
+      @result = TestResultItem.new(testcase.name)
+      @results.push @result
+      @start_assert_size = Assert.run_asserts
+      @test_start_time = Time.now if !@test_start_time
+      changed
+      notify_observers(RObserver::START_TEST, testcase)
+    end
+  
+    def end_test(testcase)
+      changed
+      notify_observers(RObserver::END_TEST, testcase)
+      @test_end_time = Time.now
+      @result.run_asserts = Assert.run_asserts - @start_assert_size
+    end
+  end
+end  

data/support/runit/testsuite.rb

@@ -0,0 +1,43 @@
+module RUNIT
+  class TestSuite < Array
+    
+    def initialize(*test_classes)
+      test_classes.each do |k|
+        if k.kind_of?(Array)
+          concat k
+        else
+          concat k.suite
+        end
+      end
+    end
+
+    def run(result)
+      each do |t|
+        t.run(result)
+      end
+    end
+
+    def count_test_cases
+      sum = 0
+      each do |test|
+	sum += test.count_test_cases
+      end
+      sum
+    end
+
+    def add(test)
+      if test.kind_of?(Array) 
+	concat test
+      else
+	push test
+      end
+    end
+    alias add_test add
+
+    def extend_test(*mod)
+      each do |t|
+        t.extend_test(*mod)
+      end
+    end
+  end
+end

data/support/runit/version.rb

@@ -0,0 +1,3 @@
+module RUNIT
+  VERSION = '0.5.2'
+end

data/test/README

@@ -0,0 +1,4 @@
+This directory includes test cases using RubyUnit.
+
+If RubyUnit is installed in your site, it is used to run test cases.
+If not installed, support files in this package are used.

data/test/config.rb

@@ -0,0 +1,129 @@
+# $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
+
+# 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?
+case nls_lang
+when 'JA16EUC'
+  $lobfile = File.dirname(__FILE__) + '/../doc/api.ja.rd' # EUC-JP file
+else
+  $lobfile = File.dirname(__FILE__) + '/../doc/api.en.rd' # ASCII file
+end
+$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)
+conn.exec('select value from database_compatible_level') do |row|
+  ver = row[0].split('.')
+  $oracle_server_version = (ver[0] + ver[1] + ver[2]).to_i
+end
+conn.logoff
+$oracle_client_version = OCI8::CLIENT_VERSION.to_i
+if $oracle_server_version < $oracle_client_version
+  $oracle_version = $oracle_server_version
+else
+  $oracle_version = $oracle_client_version
+end
+
+if $oracle_version <= 805
+  $describe_need_object_mode = true
+  $test_clob = false
+elsif $oracle_version < 810
+  $describe_need_object_mode = false
+  $test_clob = false
+else
+  $describe_need_object_mode = false
+  $test_clob = true
+end
+
+def do_connect ()
+  begin
+    yield
+  rescue OCIError
+    raise if $!.code != 12516 && $!.code != 12520
+    # sleep a few seconds 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)
+    yield
+  end
+end
+
+$env_is_initialized = false
+def setup_lowapi()
+  if ! $env_is_initialized
+    if $describe_need_object_mode
+      OCIEnv.initialise(OCI_OBJECT)
+    else
+      OCIEnv.initialise(OCI_DEFAULT)
+    end
+    $env_is_initialized = true
+  end
+  env = OCIEnv.init()
+  svc = do_connect { env.logon($dbuser, $dbpass, $dbname) }
+  stmt = env.alloc(OCIStmt)
+  return env, svc, stmt
+end
+
+def get_oci_connection()
+  do_connect { OCI8.new($dbuser, $dbpass, $dbname) }
+end
+
+def get_dbi_connection()
+  do_connect { DBI.connect("dbi:OCI8:#{$dbname}", $dbuser, $dbpass, 'AutoCommit' => false) }
+end
+
+module RUNIT
+  class TestCase
+    def drop_table(table_name)
+      if $oracle_server_version < 1000
+        # 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 defined? @dbh
+        begin
+          @dbh.do(sql)
+        rescue DBI::DatabaseError
+          raise if $!.err != 942 # table or view does not exist
+        end
+      elsif defined? @stmt
+        begin
+          @stmt.prepare(sql).execute(@svc)
+        rescue OCIError
+          raise if $!.code != 942 # table or view does not exist
+        end
+      end
+    end # drop_table
+  end
+end