activerecord-ingres-adapter 3.0.2

data/ext/Unicode.h

@@ -0,0 +1,56 @@
+/*
+**      Copyright (c) 2009 Ingres Corporation
+**
+**      This program is free software; you can redistribute it and/or modify
+**      it under the terms of the GNU General Public License version 2 as
+**      published by the Free Software Foundation.
+**
+**      This program is distributed in the hope that it will be useful,
+**      but WITHOUT ANY WARRANTY; without even the implied warranty of
+**      MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+**      GNU General Public License for more details.
+**
+**      You should have received a copy of the GNU General Public License along
+**      with this program; if not, write to the Free Software Foundation, Inc.,
+**      51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
+*/
+
+/*      static char     Sccsid[] = "$Id$";        */
+
+/*
+**      UNCIODE.H
+**
+**      History
+**              24-Aug-2009 (Grant.Croker@ingres.com)
+**                  Created
+*/
+
+#include <stdlib.h>
+
+typedef unsigned short ucs2;
+typedef unsigned long ucs4;
+typedef unsigned char utf8;
+
+typedef short i2;
+typedef long i4;
+typedef unsigned short u_i2;
+#ifndef _WIN32
+typedef long long __int64;
+#endif
+
+#ifndef FALSE
+#define FALSE 0
+#endif
+#ifndef TRUE
+#define TRUE 0
+#endif
+
+#define UTF8				utf8
+#define UCS2				ucs2
+#define UCS4				ucs4
+
+int utf8_to_utf16 (UTF8 * sourceStart, const UTF8 * sourceEnd, UCS2 * targetStart, const UCS2 * targetEnd, long *reslen);
+int utf16_to_utf8 (UCS2 * sourceStart, const UCS2 * sourceEnd, UTF8 * targetStart, const UTF8 * targetEnd, long *reslen);
+/*
+vim:  ts=2 sw=2 expandtab
+*/

data/ext/createMake.bat

@@ -0,0 +1 @@
+ruby -r mkmf extconf.rb --with-ingres-include="%II_SYSTEM%\ingres\files" --with-ingres-lib="%II_SYSTEM%\ingres\lib"

data/ext/extconf.rb

@@ -0,0 +1,85 @@
+# UNIX/Linux/OS X
+# ruby -r mkmf extconf.rb  --with-ingres-include="${II_SYSTEM}/ingres/files/" --with-ingres-lib="${II_SYSTEM}/ingres/lib/"
+# Windows
+# ruby -r mkmf extconf.rb  --with-ingres-include="%II_SYSTEM%\ingres\files\" --with-ingres-lib="%II_SYSTEM%\ingres\lib\"
+#
+# If mkmf is not found on your system, install something like ruby1.8-dev
+#
+require 'mkmf'
+puts "Start extconf.rb"
+
+#Get the supplied library/header directory (if any)
+ingres_dirs=dir_config('ingres')
+
+#Sanity checks, --with-ingres-xxx override system set II_SYSTEM
+if ingres_dirs[0] =~ /files/ and ingres_dirs[1] =~ /lib/ 
+    puts "Using supplied directories:"
+    puts "Headers   - #{ingres_dirs[0]}"
+    puts "Libraries - #{ingres_dirs[1]}"
+
+elsif ENV["II_SYSTEM"] # fallback
+    puts "Using II_SYSTEM=#{ENV['II_SYSTEM']}"
+    $CFLAGS += " -I#{ENV["II_SYSTEM"]}/ingres/files"
+    if RUBY_PLATFORM !~ /mswin32/
+	libdir = ENV["II_SYSTEM"] + "/ingres/lib"
+        $LDFLAGS += " -L#{libdir}"
+        $LDFLAGS += " -lq.1 -lcompat.1 -lframe.1 -liiapi.1"
+        if RUBY_PLATFORM =~ /solaris/
+            $LDFLAGS += " -lsocket"
+        end
+        if RUBY_PLATFORM =~ /linux/
+            $LDFLAGS += " -lrt"
+        end
+    else
+	libdir = "#{ENV["II_SYSTEM"]}\\ingres\\lib"
+        $LIBPATH.push("-libpath:\"#{libdir}\"")
+    end
+else
+    puts "Unable to proceed without the environment variable II_SYSTEM or the flags --with-ingres-files/--with-ingres-lib pointing to a valid Ingres installation"
+    exit(1)
+end
+
+if have_header('iiapi.h')
+    if RUBY_PLATFORM =~ /mswin32/
+        if have_library('oiapi','IIapi_initialize') # Check for Ingres 2.6
+            have_library('ingres')
+            puts "Found Ingres 2.6 or earlier.\n"
+        elsif have_library('iilibapi','IIapi_initialize')
+            have_library('libingres')
+            puts "Found Ingres 2006/9.0.4 or later.\n"
+        else
+            puts "\n\nI couldn't find the Ingres libraries so I didn't create your Makefile.\n"
+            puts "Do you have Ingres installed?\n"
+            puts "Be sure to use the '--with-ingres-include' and '--with-ingres-lib' options.\n"
+            puts "See the first line of extconf.rb for an example.\n\n"
+            puts "BUILD FAILED\n\n"
+            exit
+        end
+    else
+
+        if have_library('iiapi')
+        else
+            puts "\n\nI couldn't find the Ingres libraries so I didn't create your Makefile.\n"
+            puts "Do you have Ingres installed?\n"
+            puts "Be sure to use the '--with-ingres-include' and '--with-ingres-lib' options.\n"
+            puts "See the first line of extconf.rb for an example.\n\n"
+            puts "BUILD FAILED\n\n"
+            exit
+        end
+
+        if ENV["INGRES_RUBY_DEBUG"] == "Y"
+            $CFLAGS += " -g "
+        end
+    end 
+    $OBJS=['Unicode.o','Ingres.c']
+
+    if RUBY_VERSION.to_f >= 1.9
+      $CFLAGS << ' -DRUBY_19_COMPATIBILITY'
+    end
+
+    create_makefile('Ingres')
+else
+    puts "Unable to find iiapi.h, please verify your setup"
+end
+#do not remove the following line
+#vim: ts=4 sw=4 expandtabs

data/ext/tests/config.rb

@@ -0,0 +1,11 @@
+# Database and connection information for the tests
+# Use a vnode for Windows as the build box only has a
+# client installation
+if RUBY_PLATFORM =~ /mswin32/
+    @@database = "ruby::demodb"
+else
+    @@database = "demodb"
+end
+@@username = "ruby"
+@@password = "ruby"
+ 

data/ext/tests/tc_connect.rb

@@ -0,0 +1,12 @@
+require 'Ingres'
+require 'test/unit'
+require 'ext/tests/config.rb'
+
+class TestIngresConnection < Test::Unit::TestCase
+
+  def test_connect
+    ing = Ingres.new()
+    assert_kind_of(Ingres, ing.connect(@@database), "conn is not an Ingres object")
+  end
+ 
+end

data/ext/tests/tc_connect_hash.rb

@@ -0,0 +1,31 @@
+require 'Ingres'
+require 'test/unit'
+require 'ext/tests/config.rb'
+
+class TestIngresConnectionHash < Test::Unit::TestCase
+
+  def test_connect_hash
+    ing = Ingres.new()
+    assert_kind_of(Ingres, ing.connect(:database => @@database), "conn is not an Ingres object")
+  end
+
+  def test_connect_hash_no_database
+    ing = Ingres.new()
+    assert_raise ArgumentError do
+        ing.connect()
+    end
+  end
+
+  def test_connect_hash_with_login_password
+    ing = Ingres.new()
+    assert_kind_of(Ingres, ing.connect_with_credentials(:database => @@database, :username => @@username, :password => @@password), "conn is not an Ingres object")
+  end
+ 
+  def test_connect_hash_with_login_only
+    ing = Ingres.new()
+    assert_raise ArgumentError do
+        ing.connect_with_credentials(:database => @@database, :username => @@username)
+    end
+  end
+
+end

data/ext/tests/tc_connect_with_login_only.rb

@@ -0,0 +1,14 @@
+require 'Ingres'
+require 'test/unit'
+require 'ext/tests/config.rb'
+
+class TestIngresConnection < Test::Unit::TestCase
+
+  def test_connect_with_login_only
+    ing = Ingres.new()
+    assert_raise ArgumentError do
+        ing.connect_with_credentials(@@database,@@username)
+    end
+  end
+
+end

data/ext/tests/tc_connect_with_login_password.rb

@@ -0,0 +1,12 @@
+require 'Ingres'
+require 'test/unit'
+require 'ext/tests/config.rb'
+
+class TestIngresConnection < Test::Unit::TestCase
+
+  def test_connect_with_login_password
+    ing = Ingres.new()
+    assert_kind_of(Ingres, ing.connect_with_credentials(@@database,@@username,@@password), "conn is not an Ingres object")
+  end
+
+end

data/ext/tests/tc_dual_connections.rb

@@ -0,0 +1,14 @@
+require 'Ingres'
+require 'test/unit'
+require 'ext/tests/config.rb'
+
+class TestIngresDualConnections < Test::Unit::TestCase
+
+  def test_dual_connections
+    ing = Ingres.new()
+    assert_kind_of(Ingres, ing.connect(@@database), "conn is not an Ingres object")
+    ing2 = Ingres.new()
+    assert_kind_of(Ingres, ing2.connect(@@database), "conn is not an Ingres object")
+  end
+
+end

data/ext/tests/tc_env_date_format.rb

@@ -0,0 +1,47 @@
+require 'Ingres'
+require 'test/unit'
+require 'ext/tests/config.rb'
+
+class TestIngresEnvionmentDateFormat < Test::Unit::TestCase
+
+  def test_connect_env_date_iso4
+    @@ing = Ingres.new()
+    @@ing.connect(:database => @@database, :date_format => Ingres::DATE_FORMAT_ISO4)
+    assert_equal "20091109 15:14:00", @@ing.execute("select date('20091109 15:14:00')").flatten[0]
+  end
+
+  def test_connect_env_date_finland
+    @@ing = Ingres.new()
+    @@ing.connect(:database => @@database, :date_format => Ingres::DATE_FORMAT_FINLAND)
+    assert_equal "2009-11-09 15:14:00", @@ing.execute("select date('2009-11-09 15:14:00')").flatten[0]
+  end
+
+  def test_connect_env_date_multinational4
+    @@ing = Ingres.new()
+    @@ing.connect(:database => @@database, :date_format => Ingres::DATE_FORMAT_MULTINATIONAL4)
+    assert_equal "09/11/2009 15:14:00", @@ing.execute("select date('09/11/2009 15:14:00')").flatten[0]
+  end
+
+  # Same as above but using Ingres.set_environment()
+  def test_set_env_date_iso4
+    @@ing = Ingres.new()
+    @@ing.connect(:database => @@database)
+    @@ing.set_environment(:date_format => Ingres::DATE_FORMAT_ISO4)
+    assert_equal "20061012 01:09:00", @@ing.execute("select rt_arrive_at, rt_depart_at from route where rt_depart_from = 'VLL' and rt_arrive_to = 'LHR'")[0][0]
+  end
+
+  def test_set_env_date_finland
+    @@ing = Ingres.new()
+    @@ing.connect(:database => @@database)
+    @@ing.set_environment(:date_format => Ingres::DATE_FORMAT_FINLAND)
+    assert_equal "2006-10-11 20:26:00", @@ing.execute("select rt_arrive_at, rt_depart_at from route where rt_depart_from = 'VLL' and rt_arrive_to = 'LHR'")[0][1]
+  end
+
+  def test_set_env_date_multinational4
+    @@ing = Ingres.new()
+    @@ing.connect(:database => @@database)
+    @@ing.set_environment(:date_format => Ingres::DATE_FORMAT_MULTINATIONAL4)
+    assert_equal "11/10/2006 23:40:00", @@ing.execute("select rt_arrive_at, rt_depart_at from route where rt_depart_from = 'VLL' and rt_arrive_to = 'LHR'")[1][0]
+  end
+
+end

data/ext/tests/tc_query_simple.rb

@@ -0,0 +1,29 @@
+require 'Ingres'
+require 'test/unit'
+require 'ext/tests/config.rb'
+
+class TestIngresQuerySimple < Test::Unit::TestCase
+
+  def setup
+    @@ing = Ingres.new()
+    assert_kind_of(Ingres, @@ing.connect(@@database, @@username, @@password), "conn is not an Ingres object")
+  end
+
+  def teardown
+    @@ing.disconnect
+  end
+
+  def test_query_username
+    # ing.execute returns and array so we want the first and only element
+    assert_equal @@username, @@ing.execute("select dbmsinfo('session_user')").flatten[0]
+  end
+
+  def test_tables
+    if @@database == "demodb"
+      assert_not_nil @@ing.tables.include? "airport"
+      assert_not_nil @@ing.tables.include? "country"
+      assert_not_nil @@ing.tables.include? "user_profile"
+    end
+  end
+ 
+end

data/ext/tests/tc_query_username.rb

@@ -0,0 +1,22 @@
+require 'Ingres'
+require 'test/unit'
+require 'ext/tests/config.rb'
+
+class TestIngresQueryUsername < Test::Unit::TestCase
+
+  def setup
+    @ing = Ingres.new()
+    @ing.connect(@@database, @@username, @@password)
+  end
+
+  def test_query_username
+    # ing.execute returns and array so we want the first and only element
+    assert_equal @@username, @ing.execute("select dbmsinfo('username')")[0][0]
+  end
+
+  def test_tables
+    # ing.execute returns and array so we want the first and only element
+    assert_not_nil @ing.tables.include? "airport"
+  end
+ 
+end

data/ext/tests/tc_transactions_savepoint.rb

@@ -0,0 +1,109 @@
+require 'Ingres'
+require 'test/unit'
+require 'ext/tests/config.rb'
+
+class TestIngresTransactionSavePoints < Test::Unit::TestCase
+
+  # Data set used for inserting
+  @@data = [[1, "one"], [2, "two"], [3, "three"], [4, "four"], [5, "five"], [6, "six"], [7, "seven"], [8, "eight"], [9, "nine"], [10, "ten"]]
+  # Some savepoint => rollback values in the form of at savepoint x rollback to (=>) y
+  @@rollback_points = { 5 => 3, 7 => 6 }
+
+  def setup
+    @@ing = Ingres.new()
+    #@@ing.set_debug_flag("GLOBAL_DEBUG","TRUE")
+    assert_kind_of(Ingres, @@ing.connect(@@database, @@username, @@password), "conn is not an Ingres object")
+  end
+
+  def teardown
+    # drop the savepoint_tests table if it happens to be around still
+    if @@ing.tables.include? "savepoint_tests"
+      @@ing.execute "drop table savepoint_tests"
+    end
+    @@ing.disconnect
+  end
+
+  # A simple test to create a savepoint, if this fails then the rest of this unit test
+  # has no chance
+  def test_savepoint_single
+    @@ing.execute "start transaction"
+    @@ing.execute "create table savepoint_tests (id integer not null, txt varchar(100))"
+    @@ing.savepoint "savepoint_1" 
+    @@ing.execute "insert into savepoint_tests values (1, 'one')"
+    @@ing.rollback
+  end
+
+  # Generate a savepoint for each insert into the table and rollback them all at the end
+  def test_savepoint_multiple
+    @@ing.execute "start transaction"
+    @@ing.execute "create table savepoint_tests (id integer not null, txt varchar(100))"
+    @@data.each { |element|
+        @@ing.execute("insert into savepoint_tests values (#{element[0]}, '#{element[1]}')")
+        @@ing.savepoint "savepoint_#{element[0]}"
+    }
+    @@ing.rollback
+  end
+
+  # Generate a savepoint for each insert then rollback to specified savepoints verifying 
+  # we have actually rolled back
+  def test_savepoint_named_rollback
+    @@ing.execute "start transaction"
+    @@ing.execute "create table savepoint_tests (id integer not null, txt varchar(100))"
+    @@data.each { |element|
+        @@ing.execute("insert into savepoint_tests values (#{element[0]}, '#{element[1]}')")
+        @@ing.savepoint "savepoint_#{element[0]}"
+    }
+    @@ing.rollback "savepoint_8"
+    assert_equal 8, @@ing.execute("select max(id) from savepoint_tests").flatten[0]
+    @@ing.rollback "savepoint_5"
+    assert_equal 5, @@ing.execute("select max(id) from savepoint_tests").flatten[0]
+    @@ing.rollback "savepoint_3"
+    assert_equal 3, @@ing.execute("select max(id) from savepoint_tests").flatten[0]
+    @@ing.rollback
+  end
+
+  # Test the ability to carry on working after a rollback has been issued against a named savepoint.
+  # Then carry on inserting then rollback again.
+  def test_savepoint_nested_transactions
+    @@ing.execute "start transaction"
+    @@ing.execute "create table savepoint_tests (id integer not null, txt varchar(100))"
+    @@data.each { |data_set|
+      @@ing.execute("insert into savepoint_tests values (#{data_set[0]}, '#{data_set[1]}')")
+      @@ing.savepoint "savepoint_#{data_set[0]}"
+      if @@rollback_points.has_key?(data_set[0])
+        @savepoint_no = @@rollback_points.values_at(data_set[0])
+        @@ing.rollback "savepoint_#{@savepoint_no}"
+        assert_equal @savepoint_no, @@ing.execute("select max(id) from savepoint_tests").flatten
+      end
+    }
+    @@ing.rollback
+  end
+
+  # Verify the driver raises a RuntimeError exception when rolling back to a non-existant
+  # savepoint
+  def test_savepoint_rollback_non_existent
+    @@ing.execute "start transaction"
+    @@ing.execute "create table savepoint_tests (id integer not null, txt varchar(100))"
+    @@data.each { |data_set|
+      @@ing.execute("insert into savepoint_tests values (#{data_set[0]}, '#{data_set[1]}')")
+      @@ing.savepoint "savepoint_#{data_set[0]}"
+      if (data_set[0]) == 5
+        @@ing.rollback "savepoint_3"
+        assert_equal 3, @@ing.execute("select max(id) from savepoint_tests").flatten[0]
+      end
+    }
+    assert_raise RuntimeError do
+      @@ing.rollback "savepoint_5"
+    end
+  end
+
+  # Ingres requires that a transaction has been started using "start transaction" before
+  # a savepoint can be created
+  def test_savepoint_no_transaction
+    # Cannot start a savepoint with no active transaction
+    assert_raise RuntimeError do
+      @@ing.savepoint "savepoint_1" 
+    end
+  end
+
+end