rainux-2000-2005-adapter 2.2.15

data/lib/core_ext/active_record.rb

@@ -0,0 +1,150 @@
+require 'active_record/version'
+
+module ActiveRecord
+  module ConnectionAdapters
+    module SQLServerActiveRecordExtensions
+      
+      def self.included(klass)
+        klass.extend ClassMethods
+        class << klass
+          alias_method_chain :reset_column_information, :sqlserver_cache_support
+          alias_method_chain :add_order!, :sqlserver_unique_checking
+        end
+      end
+      
+      module ClassMethods
+        
+        def execute_procedure(proc_name, *variables)
+          if connection.respond_to?(:execute_procedure)
+            connection.execute_procedure(proc_name,*variables)
+          else
+            []
+          end
+        end
+        
+        def coerce_sqlserver_date(*attributes)
+          write_inheritable_attribute :coerced_sqlserver_date_columns, Set.new(attributes.map(&:to_s))
+        end
+        
+        def coerce_sqlserver_time(*attributes)
+          write_inheritable_attribute :coerced_sqlserver_time_columns, Set.new(attributes.map(&:to_s))
+        end
+        
+        def coerced_sqlserver_date_columns
+          read_inheritable_attribute(:coerced_sqlserver_date_columns) || []
+        end
+        
+        def coerced_sqlserver_time_columns
+          read_inheritable_attribute(:coerced_sqlserver_time_columns) || []
+        end
+        
+        def reset_column_information_with_sqlserver_cache_support
+          connection.send(:initialize_sqlserver_caches) if connection.respond_to?(:sqlserver?)
+          reset_column_information_without_sqlserver_cache_support
+        end
+        
+        private
+        
+        def add_order_with_sqlserver_unique_checking!(sql, order, scope = :auto)
+          if connection.respond_to?(:sqlserver?)
+            order_sql = ''
+            add_order_without_sqlserver_unique_checking!(order_sql, order, scope)
+            unless order_sql.blank?
+              unique_order_hash = {}
+              select_table_name = connection.send(:get_table_name,sql)
+              select_table_name.tr!('[]','') if select_table_name
+              orders_and_dirs_set = connection.send(:orders_and_dirs_set,order_sql)
+              unique_order_sql = orders_and_dirs_set.inject([]) do |array,order_dir|
+                ord, dir = order_dir
+                ord_tn_and_cn = ord.to_s.split('.').map{|o|o.tr('[]','')}
+                ord_table_name, ord_column_name = if ord_tn_and_cn.size > 1
+                                                    ord_tn_and_cn
+                                                  else
+                                                    [nil, ord_tn_and_cn.first]
+                                                  end
+                if (ord_table_name && ord_table_name == select_table_name && unique_order_hash[ord_column_name]) || unique_order_hash[ord_column_name]
+                  array
+                else
+                  unique_order_hash[ord_column_name] = true
+                  array << "#{ord} #{dir}".strip
+                end
+              end.join(', ')
+              sql << " ORDER BY #{unique_order_sql}"
+            end
+          else
+            add_order_without_sqlserver_unique_checking!(sql, order, scope)
+          end
+        end
+        
+      end
+      
+    end
+  end
+end
+
+ActiveRecord::Base.send :include, ActiveRecord::ConnectionAdapters::SQLServerActiveRecordExtensions
+
+
+
+
+if ActiveRecord::VERSION::MAJOR == 2 && ActiveRecord::VERSION::MINOR >= 3
+
+  require 'active_record/associations'
+  module ActiveRecord
+    module ConnectionAdapters
+      module SQLServerJoinAssociationChanges
+        
+        def self.included(klass)
+          klass.class_eval do
+            include InstanceMethods
+            alias_method_chain :aliased_table_name_for, :sqlserver_support
+          end
+        end
+        
+        module InstanceMethods
+          
+          protected
+          
+          # An exact copy, except this method has a Regexp escape on the quoted table name.
+          def aliased_table_name_for_with_sqlserver_support(name,suffix=nil)
+            if !parent.table_joins.blank? && parent.table_joins.to_s.downcase =~ %r{join(\s+\w+)?\s+#{Regexp.escape(active_record.connection.quote_table_name(name.downcase))}\son}i
+              @join_dependency.table_aliases[name] += 1
+            end
+            unless @join_dependency.table_aliases[name].zero?
+              # if the table name has been used, then use an alias
+              name = active_record.connection.table_alias_for "#{pluralize(reflection.name)}_#{parent_table_name}#{suffix}"
+              table_index = @join_dependency.table_aliases[name]
+              @join_dependency.table_aliases[name] += 1
+              name = name[0..active_record.connection.table_alias_length-3] + "_#{table_index+1}" if table_index > 0
+            else
+              @join_dependency.table_aliases[name] += 1
+            end
+            name
+          end
+          
+        end
+        
+      end
+    end
+  end
+  ActiveRecord::Associations::ClassMethods::JoinDependency::JoinAssociation.send :include, ActiveRecord::ConnectionAdapters::SQLServerJoinAssociationChanges
+
+end
+
+module ActiveRecord
+  class Base
+    class << self
+      def add_limit!(sql, options, scope = :auto)
+        scope = scope(:find) if :auto == scope
+
+        if scope
+          options[:limit] ||= scope[:limit]
+          options[:offset] ||= scope[:offset]
+          options[:order] ||= scope[:order]
+        end
+
+        connection.add_limit_offset!(sql, options)
+      end
+    end
+  end
+end

data/lib/core_ext/dbi.rb

@@ -0,0 +1,85 @@
+
+module SQLServerDBI
+  
+  module Timestamp
+    # Deprecated DBI. See documentation for Type::SqlserverTimestamp which 
+    # this method tries to mimic as ODBC is still going to convert SQL Server 
+    # milliconds to whole number representation of nanoseconds.
+    def to_sqlserver_string
+      datetime, nanoseconds = to_s.split('.')
+      "#{datetime}.#{sprintf("%03d",nanoseconds.to_i/1000000)}"
+    end
+  end
+  
+  module Type
+    
+    # Make sure we get DBI::Type::Timestamp returning a string NOT a time object
+    # that represents what is in the DB before type casting while letting core 
+    # ActiveRecord do the reset. It is assumed that DBI is using ODBC connections 
+    # and that ODBC::Timestamp is taking the native milliseconds that SQL Server 
+    # stores and returning them incorrect using ODBC::Timestamp#fraction which is 
+    # nanoseconds. Below shows the incorrect ODBC::Timestamp represented by DBI 
+    # and the conversion we expect to have in the DB before type casting.
+    # 
+    #   "1985-04-15 00:00:00 0"           # => "1985-04-15 00:00:00.000"
+    #   "2008-11-08 10:24:36 30000000"    # => "2008-11-08 10:24:36.003"
+    #   "2008-11-08 10:24:36 123000000"   # => "2008-11-08 10:24:36.123"
+    class SqlserverTimestamp
+      def self.parse(obj)
+        return nil if ::DBI::Type::Null.parse(obj).nil?
+        date, time, nanoseconds = obj.split(' ')
+        "#{date} #{time}.#{sprintf("%03d",nanoseconds.to_i/1000000)}"
+      end
+    end
+    
+    # The adapter and rails will parse our floats, decimals, and money field correctly 
+    # from a string. Do not let the DBI::Type classes create Float/BigDecimal objects 
+    # for us. Trust rails .type_cast to do what it is built to do.
+    class SqlserverForcedString
+      def self.parse(obj)
+        return nil if ::DBI::Type::Null.parse(obj).nil?
+        obj.to_s
+      end
+    end
+    
+  end
+  
+  module TypeUtil
+    
+    def self.included(klass)
+      klass.extend ClassMethods
+      class << klass
+        alias_method_chain :type_name_to_module, :sqlserver_types
+      end
+    end
+    
+    module ClassMethods
+      
+      # Capture all types classes that we need to handle directly for SQL Server 
+      # and allow normal processing for those that we do not.
+      def type_name_to_module_with_sqlserver_types(type_name)
+        case type_name
+        when /^timestamp$/i
+          DBI::Type::SqlserverTimestamp
+        when /^float|decimal|money$/i
+          DBI::Type::SqlserverForcedString
+        else
+          type_name_to_module_without_sqlserver_types(type_name)
+        end
+      end
+      
+    end
+    
+  end
+  
+  
+end
+
+
+if defined?(DBI::TypeUtil)
+  DBI::Type.send :include, SQLServerDBI::Type
+  DBI::TypeUtil.send :include, SQLServerDBI::TypeUtil
+elsif defined?(DBI::Timestamp) # DEPRECATED in DBI 0.4.0 and above. Remove when 0.2.2 and lower is no longer supported.
+  DBI::Timestamp.send :include, SQLServerDBI::Timestamp
+end
+

data/lib/rails-sqlserver-2000-2005-adapter.rb

@@ -0,0 +1 @@
+require 'active_record/connection_adapters/sqlserver_adapter'

data/test/cases/aaaa_create_tables_test_sqlserver.rb

@@ -0,0 +1,19 @@
+# The filename begins with "aaaa" to ensure this is the first test.
+require 'cases/sqlserver_helper'
+
+class AAAACreateTablesTestSqlserver < ActiveRecord::TestCase
+  self.use_transactional_fixtures = false
+  
+  should 'load activerecord schema' do
+    schema_file = "#{ACTIVERECORD_TEST_ROOT}/schema/schema.rb"
+    eval(File.read(schema_file))
+    assert true
+  end
+  
+  should 'load sqlserver specific schema' do
+    sqlserver_specific_schema_file = "#{SQLSERVER_SCHEMA_ROOT}/sqlserver_specific_schema.rb"
+    eval(File.read(sqlserver_specific_schema_file))
+    assert true
+  end
+  
+end

data/test/cases/adapter_test_sqlserver.rb

@@ -0,0 +1,627 @@
+require 'cases/sqlserver_helper'
+require 'models/task'
+require 'models/reply'
+require 'models/joke'
+require 'models/subscriber'
+
+class AdapterTestSqlserver < ActiveRecord::TestCase
+    
+  def setup
+    @connection = ActiveRecord::Base.connection
+    @basic_insert_sql = "INSERT INTO [funny_jokes] ([name]) VALUES('Knock knock')"
+    @basic_update_sql = "UPDATE [customers] SET [address_street] = NULL WHERE [id] = 2"
+    @basic_select_sql = "SELECT * FROM [customers] WHERE ([customers].[id] = 1)"
+  end
+  
+  context 'For abstract behavior' do
+    
+    should 'have a 128 max #table_alias_length' do
+      assert @connection.table_alias_length <= 128
+    end
+    
+    should 'raise invalid statement error' do
+      assert_raise(ActiveRecord::StatementInvalid) { Topic.connection.update("UPDATE XXX") }
+    end
+    
+    should 'be our adapter_name' do
+      assert_equal 'SQLServer', @connection.adapter_name
+    end
+    
+    should 'include version in inspect' do
+      assert_match(/version\: \d.\d.\d/,@connection.inspect)
+    end
+    
+    should 'support migrations' do
+      assert @connection.supports_migrations?
+    end
+    
+    should 'support DDL in transactions' do
+      assert @connection.supports_ddl_transactions?
+    end
+    
+    should 'allow owner table name prefixs like dbo. to still allow table_exists? to return true' do
+      begin
+        assert_equal 'tasks', Task.table_name
+        assert Task.table_exists?
+        Task.table_name = 'dbo.tasks'
+        assert Task.table_exists?, 'Tasks table name of dbo.tasks should return true for exists.'
+      ensure
+        Task.table_name = 'tasks'
+      end
+    end
+    
+    context 'for database version' do
+      
+      setup do
+        @version_regexp = ActiveRecord::ConnectionAdapters::SQLServerAdapter::DATABASE_VERSION_REGEXP
+        @supported_version = ActiveRecord::ConnectionAdapters::SQLServerAdapter::SUPPORTED_VERSIONS
+        @sqlserver_2000_string = "Microsoft SQL Server  2000 - 8.00.2039 (Intel X86)"
+        @sqlserver_2005_string = "Microsoft SQL Server 2005 - 9.00.3215.00 (Intel X86)"
+      end
+      
+      should 'return a string from #database_version that matches class regexp' do
+        assert_match @version_regexp, @connection.database_version
+      end
+      
+      should 'return a 4 digit year fixnum for #database_year' do
+        assert_instance_of Fixnum, @connection.database_year
+        assert_contains @supported_version, @connection.database_year
+      end
+      
+      should 'return true to #sqlserver_2000?' do
+        @connection.stubs(:database_version).returns(@sqlserver_2000_string)
+        assert @connection.sqlserver_2000?
+      end
+      
+      should 'return true to #sqlserver_2005?' do
+        @connection.stubs(:database_version).returns(@sqlserver_2005_string)
+        assert @connection.sqlserver_2005?
+      end
+      
+    end
+    
+    context 'for #unqualify_table_name and #unqualify_db_name' do
+
+      setup do
+        @expected_table_name = 'baz'
+        @expected_db_name = 'foo'
+        @first_second_table_names = ['[baz]','baz','[bar].[baz]','bar.baz']
+        @third_table_names = ['[foo].[bar].[baz]','foo.bar.baz']
+        @qualifed_table_names = @first_second_table_names + @third_table_names
+      end
+      
+      should 'return clean table_name from #unqualify_table_name' do
+        @qualifed_table_names.each do |qtn|
+          assert_equal @expected_table_name, 
+            @connection.send(:unqualify_table_name,qtn),
+            "This qualifed_table_name #{qtn} did not unqualify correctly."
+        end
+      end
+      
+      should 'return nil from #unqualify_db_name when table_name is less than 2 qualified' do
+        @first_second_table_names.each do |qtn|
+          assert_equal nil, @connection.send(:unqualify_db_name,qtn),
+            "This qualifed_table_name #{qtn} did not return nil."
+        end
+      end
+      
+      should 'return clean db_name from #unqualify_db_name when table is thrid level qualified' do
+        @third_table_names.each do |qtn|
+          assert_equal @expected_db_name, 
+            @connection.send(:unqualify_db_name,qtn),
+            "This qualifed_table_name #{qtn} did not unqualify the db_name correctly."
+        end
+      end
+
+    end
+    
+    should 'return true to #insert_sql? for inserts only' do
+      assert @connection.send(:insert_sql?,'INSERT...')
+      assert !@connection.send(:insert_sql?,'UPDATE...')
+      assert !@connection.send(:insert_sql?,'SELECT...')
+    end
+        
+    context 'for #sql_for_association_limiting?' do
+      
+      should 'return false for simple selects with no GROUP BY and ORDER BY' do
+        assert !sql_for_association_limiting?("SELECT * FROM [posts]")
+      end
+      
+      should 'return true to single SELECT, ideally a table/primarykey, that also has a GROUP BY and ORDER BY' do
+        assert sql_for_association_limiting?("SELECT [posts].id FROM...GROUP BY [posts].id ORDER BY MIN(posts.id)")
+      end
+      
+      should 'return false to single * wildcard SELECT that also has a GROUP BY and ORDER BY' do
+        assert !sql_for_association_limiting?("SELECT * FROM...GROUP BY [posts].id ORDER BY MIN(posts.id)")
+      end
+      
+      should 'return false to multiple columns in the select even when GROUP BY and ORDER BY are present' do
+        sql = "SELECT [accounts].credit_limit, firm_id FROM...GROUP BY firm_id ORDER BY firm_id"
+        assert !sql_for_association_limiting?(sql)
+      end
+      
+    end
+    
+    context 'for #get_table_name' do
+
+      should 'return quoted table name from basic INSERT, UPDATE and SELECT statements' do
+        assert_equal '[funny_jokes]', @connection.send(:get_table_name,@basic_insert_sql)
+        assert_equal '[customers]', @connection.send(:get_table_name,@basic_update_sql)
+        assert_equal '[customers]', @connection.send(:get_table_name,@basic_select_sql)
+      end
+
+    end
+    
+    context 'dealing with various orders SQL snippets' do
+      
+      setup do
+        @single_order = 'comments.id'
+        @single_order_with_desc = 'comments.id DESC'
+        @two_orders = 'comments.id, comments.post_id'
+        @two_orders_with_asc = 'comments.id, comments.post_id ASC'
+        @two_orders_with_desc_and_asc = 'comments.id DESC, comments.post_id ASC'
+        @two_duplicate_order_with_dif_dir = "id, id DESC"
+      end
+      
+      should 'convert to an 2D array of column/direction arrays using #orders_and_dirs_set' do
+        assert_equal [['comments.id',nil]], orders_and_dirs_set('ORDER BY comments.id'), 'Needs to remove ORDER BY'
+        assert_equal [['comments.id',nil]], orders_and_dirs_set(@single_order)
+        assert_equal [['comments.id',nil],['comments.post_id',nil]], orders_and_dirs_set(@two_orders)
+        assert_equal [['comments.id',nil],['comments.post_id','ASC']], orders_and_dirs_set(@two_orders_with_asc)
+        assert_equal [['id',nil],['id','DESC']], orders_and_dirs_set(@two_duplicate_order_with_dif_dir)
+      end
+      
+      should 'remove duplicate or maintain the same order by statements giving precedence to first using #add_order! method chain extension' do
+        assert_equal ' ORDER BY comments.id', add_order!(@single_order)
+        assert_equal ' ORDER BY comments.id DESC', add_order!(@single_order_with_desc)
+        assert_equal ' ORDER BY comments.id, comments.post_id', add_order!(@two_orders)
+        assert_equal ' ORDER BY comments.id DESC, comments.post_id ASC', add_order!(@two_orders_with_desc_and_asc)
+        assert_equal 'SELECT * FROM [developers] ORDER BY id', add_order!('id, developers.id DESC','SELECT * FROM [developers]')
+        assert_equal 'SELECT * FROM [developers] ORDER BY [developers].[id] DESC', add_order!('[developers].[id] DESC, id','SELECT * FROM [developers]')
+      end
+      
+      should 'take all types of order options and convert them to MIN functions using #order_to_min_set' do
+        assert_equal 'MIN(comments.id)', order_to_min_set(@single_order)
+        assert_equal 'MIN(comments.id), MIN(comments.post_id)', order_to_min_set(@two_orders)
+        assert_equal 'MIN(comments.id) DESC', order_to_min_set(@single_order_with_desc)
+        assert_equal 'MIN(comments.id), MIN(comments.post_id) ASC', order_to_min_set(@two_orders_with_asc)
+        assert_equal 'MIN(comments.id) DESC, MIN(comments.post_id) ASC', order_to_min_set(@two_orders_with_desc_and_asc)
+      end
+      
+    end
+    
+    context 'with different language' do
+
+      teardown do
+        @connection.execute("SET LANGUAGE us_english") rescue nil
+      end
+
+      should_eventually 'do a date insertion when language is german' do
+        @connection.execute("SET LANGUAGE deutsch")
+        assert_nothing_raised do
+          Task.create(:starting => Time.utc(2000, 1, 31, 5, 42, 0), :ending => Date.new(2006, 12, 31))
+        end
+      end
+
+    end
+    
+    context 'testing #enable_default_unicode_types configuration' do
+
+      should 'use non-unicode types when set to false' do
+        with_enable_default_unicode_types(false) do
+          if sqlserver_2000?
+            assert_equal 'varchar', @connection.native_string_database_type
+            assert_equal 'text', @connection.native_text_database_type
+          elsif sqlserver_2005?
+            assert_equal 'varchar', @connection.native_string_database_type
+            assert_equal 'varchar(max)', @connection.native_text_database_type
+          end
+        end
+      end
+      
+      should 'use unicode types when set to true' do
+        with_enable_default_unicode_types(true) do
+          if sqlserver_2000?
+            assert_equal 'nvarchar', @connection.native_string_database_type
+            assert_equal 'ntext', @connection.native_text_database_type
+          elsif sqlserver_2005?
+            assert_equal 'nvarchar', @connection.native_string_database_type
+            assert_equal 'nvarchar(max)', @connection.native_text_database_type
+          end
+        end
+      end
+
+    end
+    
+    
+  end
+  
+  context 'For chronic data types' do
+    
+    context 'with a usec' do
+      
+      setup do
+        @time = Time.now
+        @db_datetime_003 = '2012-11-08 10:24:36.003'
+        @db_datetime_123 = '2012-11-08 10:24:36.123'
+        @all_datetimes = [@db_datetime_003, @db_datetime_123]
+        @all_datetimes.each do |datetime|
+          @connection.execute("INSERT INTO [sql_server_chronics] ([datetime]) VALUES('#{datetime}')")
+        end
+      end
+      
+      teardown do
+        @all_datetimes.each do |datetime|
+          @connection.execute("DELETE FROM [sql_server_chronics] WHERE [datetime] = '#{datetime}'")
+        end
+      end
+      
+      context 'finding existing DB objects' do
+
+        should 'find 003 millisecond in the DB with before and after casting' do
+          existing_003 = SqlServerChronic.find_by_datetime!(@db_datetime_003)
+          assert_equal @db_datetime_003, existing_003.datetime_before_type_cast
+          assert_equal 3000, existing_003.datetime.usec, 'A 003 millisecond in SQL Server is 3000 microseconds'
+        end
+
+        should 'find 123 millisecond in the DB with before and after casting' do
+          existing_123 = SqlServerChronic.find_by_datetime!(@db_datetime_123)
+          assert_equal @db_datetime_123, existing_123.datetime_before_type_cast
+          assert_equal 123000, existing_123.datetime.usec, 'A 123 millisecond in SQL Server is 123000 microseconds'
+        end
+
+      end
+      
+      context 'saving new datetime objects' do
+
+        should 'truncate 123456 usec to just 123 in the DB cast back to 123000' do
+          @time.stubs(:usec).returns(123456)
+          saved = SqlServerChronic.create!(:datetime => @time).reload
+          assert_equal '123', saved.datetime_before_type_cast.split('.')[1]
+          assert_equal 123000, saved.datetime.usec
+        end
+        
+        should 'truncate 3001 usec to just 003 in the DB cast back to 3000' do
+          @time.stubs(:usec).returns(3001)
+          saved = SqlServerChronic.create!(:datetime => @time).reload
+          assert_equal '003', saved.datetime_before_type_cast.split('.')[1]
+          assert_equal 3000, saved.datetime.usec
+        end
+        
+      end
+      
+    end
+    
+  end
+  
+  context 'For identity inserts' do
+    
+    setup do
+      @identity_insert_sql = "INSERT INTO [funny_jokes] ([id],[name]) VALUES(420,'Knock knock')"
+    end
+    
+    should 'return quoted table_name to #query_requires_identity_insert? when INSERT sql contains id_column' do
+      assert_equal '[funny_jokes]', @connection.send(:query_requires_identity_insert?,@identity_insert_sql)
+    end
+    
+    should 'return false to #query_requires_identity_insert? for normal SQL' do
+      [@basic_insert_sql, @basic_update_sql, @basic_select_sql].each do |sql|
+        assert !@connection.send(:query_requires_identity_insert?,sql), "SQL was #{sql}"
+      end
+    end
+    
+    should 'find identity column using #identity_column' do
+      joke_id_column = Joke.columns.detect { |c| c.name == 'id' }
+      assert_equal joke_id_column, @connection.send(:identity_column,Joke.table_name)
+    end
+    
+    should 'return nil when calling #identity_column for a table_name with no identity' do
+      assert_nil @connection.send(:identity_column,Subscriber.table_name)
+    end
+    
+  end
+  
+  context 'For Quoting' do
+    
+    should 'return 1 for #quoted_true' do
+      assert_equal '1', @connection.quoted_true
+    end
+    
+    should 'return 0 for #quoted_false' do
+      assert_equal '0', @connection.quoted_false
+    end
+    
+    should 'not escape backslash characters like abstract adapter' do
+      string_with_backslashs = "\\n"
+      assert_equal string_with_backslashs, @connection.quote_string(string_with_backslashs)
+    end
+    
+    should 'quote column names with brackets' do
+      assert_equal '[foo]', @connection.quote_column_name(:foo)
+      assert_equal '[foo]', @connection.quote_column_name('foo')
+      assert_equal '[foo].[bar]', @connection.quote_column_name('foo.bar')
+    end
+    
+    should 'quote table names like columns' do
+      assert_equal '[foo].[bar]', @connection.quote_column_name('foo.bar')
+      assert_equal '[foo].[bar].[baz]', @connection.quote_column_name('foo.bar.baz')
+    end
+    
+  end
+  
+  context 'When disableing referential integrity' do
+    
+    setup do
+      @parent = FkTestHasPk.create!
+      @member = FkTestHasFk.create!(:fk_id => @parent.id)
+    end
+    
+    should 'NOT ALLOW by default the deletion of a referenced parent' do
+      FkTestHasPk.connection.disable_referential_integrity { }
+      assert_raise(ActiveRecord::StatementInvalid) { @parent.destroy }
+    end
+    
+    should 'ALLOW deletion of referenced parent using #disable_referential_integrity block' do
+      FkTestHasPk.connection.disable_referential_integrity { @parent.destroy }
+    end
+    
+    should 'again NOT ALLOW deletion of referenced parent after #disable_referential_integrity block' do
+      assert_raise(ActiveRecord::StatementInvalid) do
+        FkTestHasPk.connection.disable_referential_integrity { }
+        @parent.destroy
+      end
+    end
+    
+  end
+  
+  context 'For DatabaseStatements' do
+    
+  end
+  
+  context 'For SchemaStatements' do
+    
+    context 'returning from #type_to_sql' do
+      
+      should 'create integers when no limit supplied' do
+        assert_equal 'integer', @connection.type_to_sql(:integer)
+      end
+      
+      should 'create integers when limit is 4' do
+        assert_equal 'integer', @connection.type_to_sql(:integer, 4)
+      end
+      
+      should 'create integers when limit is 3' do
+        assert_equal 'integer', @connection.type_to_sql(:integer, 3)
+      end
+      
+      should 'create smallints when limit is less than 3' do
+        assert_equal 'smallint', @connection.type_to_sql(:integer, 2)
+        assert_equal 'smallint', @connection.type_to_sql(:integer, 1)
+      end
+      
+      should 'create bigints when limit is greateer than 4' do
+        assert_equal 'bigint', @connection.type_to_sql(:integer, 5)
+        assert_equal 'bigint', @connection.type_to_sql(:integer, 6)
+        assert_equal 'bigint', @connection.type_to_sql(:integer, 7)
+        assert_equal 'bigint', @connection.type_to_sql(:integer, 8)
+      end
+      
+    end
+    
+  end
+  
+  context 'For indexes' do
+    
+    setup do
+      @desc_index_name = 'idx_credit_limit_test_desc'
+      @connection.execute "CREATE INDEX #{@desc_index_name} ON accounts (credit_limit DESC)"
+    end
+    
+    teardown do
+      @connection.execute "DROP INDEX accounts.#{@desc_index_name}"
+    end
+    
+    should 'have indexes with descending order' do
+      assert @connection.indexes('accounts').detect { |i| i.name == @desc_index_name }
+    end
+    
+  end
+  
+  context 'For views' do
+    
+    context 'using @connection.views' do
+
+      should 'return an array' do
+        assert_instance_of Array, @connection.views
+      end
+      
+      should 'find CustomersView table name' do
+        assert_contains @connection.views, 'customers_view'
+      end
+      
+      should 'not contain system views' do
+        systables = ['sysconstraints','syssegments']
+        systables.each do |systable|
+          assert !@connection.views.include?(systable), "This systable #{systable} should not be in the views array."
+        end
+      end
+      
+      should 'allow the connection.view_information method to return meta data on the view' do
+        view_info = @connection.view_information('customers_view')
+        assert_equal('customers_view', view_info['TABLE_NAME'])
+        assert_match(/CREATE VIEW customers_view/, view_info['VIEW_DEFINITION'])
+      end
+      
+      should 'allow the connection.view_table_name method to return true table_name for the view' do
+        assert_equal 'customers', @connection.view_table_name('customers_view')
+        assert_equal 'topics', @connection.view_table_name('topics'), 'No view here, the same table name should come back.'
+      end
+      
+    end
+    
+    context 'used by a class for table_name' do
+      
+      context 'with same column names' do
+        
+        should 'have matching column objects' do
+          columns = ['id','name','balance']
+          assert !CustomersView.columns.blank?
+          assert_equal columns.size, CustomersView.columns.size
+          columns.each do |colname|
+            assert_instance_of ActiveRecord::ConnectionAdapters::SQLServerColumn, 
+              CustomersView.columns_hash[colname], 
+              "Column name #{colname.inspect} was not found in these columns #{CustomersView.columns.map(&:name).inspect}"
+          end
+        end
+        
+        should 'find identity column' do
+          assert CustomersView.columns_hash['id'].primary
+          assert CustomersView.columns_hash['id'].is_identity?
+        end
+        
+        should 'find default values' do
+          assert_equal 0, CustomersView.new.balance
+        end
+        
+        should 'respond true to table_exists?' do
+          assert CustomersView.table_exists?
+        end
+        
+        should 'have correct table name for all column objects' do
+          assert CustomersView.columns.all?{ |c| c.table_name == 'customers_view' }, 
+            CustomersView.columns.map(&:table_name).inspect
+        end
+        
+      end
+      
+      context 'with aliased column names' do
+        
+        should 'have matching column objects' do
+          columns = ['id','pretend_null']
+          assert !StringDefaultsView.columns.blank?
+          assert_equal columns.size, StringDefaultsView.columns.size
+          columns.each do |colname|
+            assert_instance_of ActiveRecord::ConnectionAdapters::SQLServerColumn, 
+              StringDefaultsView.columns_hash[colname], 
+              "Column name #{colname.inspect} was not found in these columns #{StringDefaultsView.columns.map(&:name).inspect}"
+          end
+        end
+        
+        should 'find identity column' do
+          assert StringDefaultsView.columns_hash['id'].primary
+          assert StringDefaultsView.columns_hash['id'].is_identity?
+        end
+        
+        should 'find default values' do
+          assert_equal 'null', StringDefaultsView.new.pretend_null, 
+            StringDefaultsView.columns_hash['pretend_null'].inspect
+        end
+        
+        should 'respond true to table_exists?' do
+          assert StringDefaultsView.table_exists?
+        end
+        
+        should 'have correct table name for all column objects' do
+          assert StringDefaultsView.columns.all?{ |c| c.table_name == 'string_defaults_view' }, 
+            StringDefaultsView.columns.map(&:table_name).inspect
+        end
+        
+      end
+      
+    end
+    
+    context 'doing identity inserts' do
+
+      setup do
+        @view_insert_sql = "INSERT INTO [customers_view] ([id],[name],[balance]) VALUES (420,'Microsoft',0)"
+      end
+      
+      should 'respond true/tablename to #query_requires_identity_insert?' do
+        assert_equal '[customers_view]', @connection.send(:query_requires_identity_insert?,@view_insert_sql)
+      end
+      
+      should 'be able to do an identity insert' do
+        assert_nothing_raised { @connection.execute(@view_insert_sql) }
+        assert CustomersView.find(420)
+      end
+
+    end
+    
+    context 'that have more than 4000 chars for their defintion' do
+
+      should 'cope with null returned for the defintion' do
+        assert_nothing_raised() { StringDefaultsBigView.columns }
+      end
+      
+      should 'using alternate view defintion still be able to find real default' do
+        assert_equal 'null', StringDefaultsBigView.new.pretend_null, 
+          StringDefaultsBigView.columns_hash['pretend_null'].inspect
+      end
+
+    end
+    
+  end
+  
+  
+  
+  private
+  
+  def sql_for_association_limiting?(sql)
+    @connection.send :sql_for_association_limiting?, sql
+  end
+  
+  def orders_and_dirs_set(order)
+    @connection.send :orders_and_dirs_set, order
+  end
+  
+  def add_order!(order,sql='')
+    ActiveRecord::Base.send :add_order!, sql, order, nil
+    sql
+  end
+  
+  def order_to_min_set(order)
+    @connection.send :order_to_min_set, order
+  end
+  
+  def with_enable_default_unicode_types(setting)
+    old_setting = ActiveRecord::ConnectionAdapters::SQLServerAdapter.enable_default_unicode_types
+    old_text = ActiveRecord::ConnectionAdapters::SQLServerAdapter.native_text_database_type
+    old_string = ActiveRecord::ConnectionAdapters::SQLServerAdapter.native_string_database_type
+    ActiveRecord::ConnectionAdapters::SQLServerAdapter.enable_default_unicode_types = setting
+    ActiveRecord::ConnectionAdapters::SQLServerAdapter.native_text_database_type = nil
+    ActiveRecord::ConnectionAdapters::SQLServerAdapter.native_string_database_type = nil
+    yield
+  ensure
+    ActiveRecord::ConnectionAdapters::SQLServerAdapter.enable_default_unicode_types = old_setting
+    ActiveRecord::ConnectionAdapters::SQLServerAdapter.native_text_database_type = old_text
+    ActiveRecord::ConnectionAdapters::SQLServerAdapter.native_string_database_type = old_string
+  end
+  
+end
+
+
+class AdapterTest < ActiveRecord::TestCase
+  
+  COERCED_TESTS = [
+    :test_add_limit_offset_should_sanitize_sql_injection_for_limit_without_comas,
+    :test_add_limit_offset_should_sanitize_sql_injection_for_limit_with_comas
+  ]
+  
+  include SqlserverCoercedTest
+  
+  def test_coerced_test_add_limit_offset_should_sanitize_sql_injection_for_limit_without_comas
+    sql_inject = "1 select * from schema"
+    connection = ActiveRecord::Base.connection
+    assert_raise(ArgumentError) { connection.add_limit_offset!("", :limit=>sql_inject) }
+    assert_raise(ArgumentError) { connection.add_limit_offset!("", :limit=>sql_inject, :offset=>7) }
+  end
+
+  def test_coerced_test_add_limit_offset_should_sanitize_sql_injection_for_limit_with_comas
+    sql_inject = "1, 7 procedure help()"
+    connection = ActiveRecord::Base.connection
+    assert_raise(ArgumentError) { connection.add_limit_offset!("", :limit=>sql_inject) }
+    assert_raise(ArgumentError) { connection.add_limit_offset!("", :limit=> '1 ; DROP TABLE USERS', :offset=>7) }
+    assert_raise(ArgumentError) { connection.add_limit_offset!("", :limit=>sql_inject, :offset=>7) }
+  end
+  
+end