ackbar 0.1.0

data/test/001_schema_migration_test.rb

@@ -0,0 +1,32 @@
+###############################################################################
+# DB Schema Migration for testing ActiveKirby
+require 'active_record/migration'
+
+class SchemaMigrationTest < ActiveRecord::Migration
+  def self.up
+    create_table "pages", :force => true do |t|
+      t.column "book_id", :integer
+      t.column "page_num", :integer
+      t.column "content", :text
+    end  
+
+    remove_index(:delete_me_in_migration, :junk)
+    rename_column(:delete_me_in_migration, :more_junk, :less_junk)
+    change_column(:delete_me_in_migration, :junk, :string)
+    remove_column(:delete_me_in_migration, :junk_yard)
+
+    drop_table(:delete_me_in_migration)
+    
+    add_column(:publishers, :address, :string)
+    add_index(:publishers, :name, :unique)
+
+    # test belong_to (book) and has_one (book)
+    create_table 'errata', :force => true do |t|
+      t.column 'book_id', :integer
+      t.column 'contents', :string
+    end
+  end
+
+  def self.down
+  end
+end

data/test/ar_base_tests_runner.rb

@@ -0,0 +1,415 @@
+require 'test_helper'
+
+@@AR_PATH = Gem.latest_load_paths.grep(/activerecord/)[0]
+@@AR_TESTS_PATH = File.expand_path(File.join(@@AR_PATH, '../test'))
+$LOAD_PATH << @@AR_TESTS_PATH
+
+################################################################################
+### Start requiring ActiveRecords test files ###################################
+# There are 663 tests, 2188 assertions in the AR test suite (sqlite)
+
+################################################################################
+# ActiveRecord::Base basics tests
+require File.join(@@AR_TESTS_PATH, 'base_test.rb')
+class BasicsTest
+  # too much SQL
+  remove_method :test_count_with_join
+end
+
+################################################################################
+# ActiveRecord::Associations tests
+require File.join(@@AR_TESTS_PATH, 'associations_test.rb')
+
+class AssociationsTest
+  # We use code blocks (procs) which can't be dumped with Marshal
+  remove_method :test_storing_in_pstore
+end
+
+class HasAndBelongsToManyAssociationsTest
+  # Joins not supported
+  remove_method :test_adding_uses_default_values_on_join_table
+  remove_method :test_adding_uses_explicit_values_on_join_table
+  remove_method :test_additional_columns_from_join_table
+end
+
+class HasManyAssociationsTest
+  # :group option (GROUP BY statement) not supported
+  remove_method :test_find_grouped
+  # transactions not supported
+  remove_method :test_dependence_with_transaction_support_on_failure
+end
+
+class HasAndBelongsToManyAssociationsTest
+  # just changes the last select count to work through KB select blocks
+  def test_update_attributes_after_push_without_duplicate_join_table_rows
+    developer = Developer.new("name" => "Kano")
+    project = SpecialProject.create("name" => "Special Project")
+    assert developer.save
+    developer.projects << project
+    developer.update_attribute("name", "Bruza")
+    # assert_equal 1, Developer.connection.select_value(<<-end_sql).to_i
+    #   SELECT count(*) FROM developers_projects
+    #   WHERE project_id = #{project.id}
+    #   AND developer_id = #{developer.id}
+    # end_sql
+    num_rows = Developer.connection.db.get_table(:developers_projects).select do |rec|
+      rec.project_id == project.id and rec.developer_id == developer.id
+    end.size
+    assert_equal 1, num_rows
+  end
+
+  def test_removing_associations_on_destroy
+    david = DeveloperWithBeforeDestroyRaise.find(1)
+    assert !david.projects.empty?
+    assert_nothing_raised { david.destroy }
+    assert david.projects.empty?
+    assert DeveloperWithBeforeDestroyRaise.connection.db.get_table(:developers_projects).select{|rec| rec.developer_id == 1}.empty?
+  end
+
+end
+
+require File.join(@@AR_TESTS_PATH, 'associations_extensions_test.rb')
+
+class AssociationsExtensionsTest
+  # Procs can't be marshalled
+  remove_method :test_marshalling_extensions
+  remove_method :test_marshalling_named_extensions
+end
+
+require File.join(@@AR_TESTS_PATH, 'deprecated_associations_test.rb')
+
+class DeprecatedAssociationsTest
+  remove_method :test_has_many_dependence_with_transaction_support_on_failure
+  remove_method :test_storing_in_pstore
+end
+
+################################################################################
+# Finder tests
+require File.join(@@AR_TESTS_PATH, 'finder_test.rb')
+
+class FinderTest
+  # we don't allow full SQL, but might as well check the block format
+  def test_count_by_sql
+    assert_raises(ActiveRecord::StatementInvalid) { Entrant.count_by_sql("SELECT COUNT(*) FROM entrant") }
+    assert_equal 0, Entrant.count(lambda{|rec| rec.recno > 3})
+    # this is just too wierd: assert_equal 1, Entrant.count([lambda{|rec| rec.recno > 2}])
+    assert_equal 2, Entrant.count{|rec| rec.recno > 1}
+  end
+  remove_method :test_find_with_entire_select_statement
+  remove_method :test_find_with_prepared_select_statement
+  remove_method :test_select_value
+  remove_method :test_select_values
+  remove_method :test_find_all_with_join
+end
+
+require File.join(@@AR_TESTS_PATH, 'deprecated_finder_test.rb')
+
+class DeprecatedFinderTest
+  remove_method :test_count_by_sql
+end
+
+################################################################################
+# Schema & Migrations tests
+
+require File.join(@@AR_TESTS_PATH, 'ar_schema_test.rb')
+
+class ActiveRecordSchemaTest
+  def test_schema_define
+    ActiveRecord::Schema.define(:version => 7) do
+      create_table :fruits do |t|
+        t.column :color, :string
+        t.column :fruit_size, :string  # NOTE: "size" is reserved in Oracle
+        t.column :texture, :string
+        t.column :flavor, :string
+      end
+    end
+
+    assert_nothing_raised { @connection.get_table(:fruits).select }
+    assert_nothing_raised { @connection.get_table(:schema_info).select }
+    assert_equal 7, @connection.get_table(:schema_info).select[0].version
+  end
+end
+
+require File.join(@@AR_TESTS_PATH, 'migration_test.rb')
+
+class MigrationTest
+  def teardown
+    ActiveRecord::Base.connection.initialize_schema_information
+    ActiveRecord::Base.connection.get_table(:schema_info).update_all {|rec| rec.version = 0}
+
+    Reminder.connection.drop_table("reminders") rescue nil
+    Reminder.connection.drop_table("people_reminders") rescue nil
+    Reminder.connection.drop_table("prefix_reminders_suffix") rescue nil
+    Reminder.reset_column_information
+
+    Person.connection.remove_column("people", "last_name") rescue nil
+    Person.connection.remove_column("people", "bio") rescue nil
+    Person.connection.remove_column("people", "age") rescue nil
+    Person.connection.remove_column("people", "height") rescue nil
+    Person.connection.remove_column("people", "birthday") rescue nil
+    Person.connection.remove_column("people", "favorite_day") rescue nil
+    Person.connection.remove_column("people", "male") rescue nil
+    Person.connection.remove_column("people", "administrator") rescue nil
+    Person.reset_column_information
+  end
+
+  def test_create_table_with_not_null_column
+    Person.connection.create_table :testings do |t|
+      t.column :foo, :string, :null => false
+    end
+
+    # ArgumentError and not ActiveRecord::StatementInvalid because we're inserting directly to the db.
+    # Still showns that this field is required
+    assert_raises(ArgumentError) do
+      Person.connection.get_table(:testings).insert :foo => nil
+    end
+  ensure
+    Person.connection.drop_table :testings rescue nil
+  end
+
+  def test_add_column_not_null_with_default
+    Person.connection.create_table :testings do |t|
+      t.column :foo, :string
+    end
+    Person.connection.add_column :testings, :bar, :string, :null => false, :default => "default"
+
+    # changed from ActiveRecord::StatementInvalid as we're operating directly on
+    # the database, and that is what KB spits out. Still, it validates that the
+    # field is now required (not null)
+    assert_raises(ArgumentError) do
+      Person.connection.get_table(:testings).insert :foo => 'hello', :bar => nil
+    end
+  ensure
+    Person.connection.drop_table :testings rescue nil
+  end
+
+  def test_add_column_not_null_without_default
+    Person.connection.create_table :testings do |t|
+      t.column :foo, :string
+    end
+    Person.connection.add_column :testings, :bar, :string, :null => false
+
+    assert_raises(ArgumentError) do
+      Person.connection.get_table(:testings).insert :foo => 'hello', :bar => nil
+    end
+  ensure
+    Person.connection.drop_table :testings rescue nil
+  end
+
+  # KirbyBase only supports one index per column, so created new column
+  # (middle_name) for those tests. Also, KirbyBase does not support named
+  # indexes, so those tests were disabled.
+  def test_add_index
+    Person.connection.add_column "people", "last_name", :string        
+    Person.connection.add_column "people", "middle_name", :string        
+    Person.connection.add_column "people", "administrator", :boolean
+
+    assert_nothing_raised { Person.connection.add_index("people", "last_name") }
+    assert_nothing_raised { Person.connection.remove_index("people", "last_name") }
+
+    assert_nothing_raised { Person.connection.add_index("people", ["middle_name", "first_name"]) }
+    assert_nothing_raised { Person.connection.remove_index("people", "last_name") }
+
+    # assert_nothing_raised { Person.connection.add_index("people", %w(last_name middle_name administrator), :name => "named_admin") }
+    # assert_nothing_raised { Person.connection.remove_index("people", :name => "named_admin") }
+  end
+
+  def test_rename_table
+    begin
+      ActiveRecord::Base.connection.create_table :octopuses do |t|
+        t.column :url, :string
+      end
+      ActiveRecord::Base.connection.rename_table :octopuses, :octopi
+
+      assert_nothing_raised do
+        ActiveRecord::Base.connection.get_table(:octopi).insert :url => 'http://www.foreverflying.com/octopus-black7.jpg'
+      end
+
+      assert_equal 'http://www.foreverflying.com/octopus-black7.jpg', 
+                   ActiveRecord::Base.connection.get_table(:octopi).select{|r|r.recno == 1}.first.url
+
+    ensure
+      ActiveRecord::Base.connection.drop_table :octopuses rescue nil
+      ActiveRecord::Base.connection.drop_table :octopi rescue nil
+    end
+  end
+
+  # Since this test uses  aboolean field with a default, we need to override the
+  # change_column statement to use FalseClass rather than 0.
+  # In real life migrations, this should be guarded with an if current_adapter ...
+  def test_change_column_with_new_default
+    Person.connection.add_column "people", "administrator", :boolean, :default => true
+    Person.reset_column_information            
+    assert Person.new.administrator?
+    
+    assert_nothing_raised { Person.connection.change_column "people", "administrator", :boolean, :default => false }
+    Person.reset_column_information            
+    assert !Person.new.administrator?
+  end    
+end
+
+################################################################################
+# Misc tests
+
+require File.join(@@AR_TESTS_PATH, 'inheritance_test.rb')
+
+class InheritanceTest
+  # not supporting non-integer primary keys just yet
+  remove_method :test_inheritance_without_mapping
+
+  def test_a_bad_type_column
+    recno = Company.table.insert :mame => 'bad_class!', :type => 'Not happening'
+    assert_raises(ActiveRecord::SubclassNotFound) { Company.find(recno) }
+  end
+end
+
+require File.join(@@AR_TESTS_PATH, 'method_scoping_test.rb')
+
+class MethodScopingTest
+  # changed the LIKE clause to ruby block
+  def test_scoped_count
+    Developer.with_scope(:find => { :conditions => "name = 'David'" }) do
+      assert_equal 1, Developer.count
+    end
+
+    Developer.with_scope(:find => { :conditions => 'salary = 100000' }) do
+      assert_equal 8, Developer.count
+      # assert_equal 1, Developer.count("name LIKE 'fixture_1%'")
+      assert_equal 1, Developer.count(lambda{|rec| rec.name =~ /fixture_1.*/})
+    end
+  end
+end
+
+class HasAndBelongsToManyScopingTest
+  # we don't use the nested scopes
+  remove_method :test_raise_on_nested_scope
+end
+
+require File.join(@@AR_TESTS_PATH, 'pk_test.rb')
+
+# Strings not supported for primary keys
+class PrimaryKeysTest
+  remove_method :test_string_key
+  remove_method :test_find_with_more_than_one_string_key
+end
+
+require File.join(@@AR_TESTS_PATH, 'reflection_test.rb')
+
+# We don't keep limits on Strings (and others). Using plain Ruby types.
+class ReflectionTest
+  remove_method :test_column_string_type_and_limit
+end
+
+
+################################################################################
+# Require all other test files not specifically handled above
+
+ar_test_files = Dir[@@AR_TESTS_PATH + '/*_test.rb']
+# Remove things we don't support
+%w{
+  aaa_create_tables_test.rb
+  transactions_test.rb
+  associations_go_eager_test.rb
+  mixin_test.rb
+  mixin_nested_set_test.rb
+}.each {|test_file| ar_test_files.delete File.join(@@AR_TESTS_PATH, test_file)}
+ar_test_files.each {|test_file| require test_file}
+
+class BinaryTest
+  def setup
+    Binary.table.clear
+    @data = File.read(BINARY_FIXTURE_PATH).freeze
+  end
+end
+
+class FixturesTest
+  def test_inserts
+    topics = create_fixtures("topics")
+    # firstRow = ActiveRecord::Base.connection.select_one("SELECT * FROM topics WHERE author_name = 'David'")
+    firstRow = ActiveRecord::Base.connection.db.get_table(:topics).select{|rec| rec.author_name == 'David'}.first
+    assert_equal("The First Topic", firstRow["title"])
+
+    # secondRow = ActiveRecord::Base.connection.select_one("SELECT * FROM topics WHERE author_name = 'Mary'")
+    secondRow = ActiveRecord::Base.connection.db.get_table(:topics).select{|rec| rec.author_name == 'Mary'}.first
+    assert_nil(secondRow["author_email_address"])
+  end
+
+  def test_inserts_with_pre_and_suffix
+    ActiveRecord::Base.connection.create_table :prefix_topics_suffix do |t|
+      t.column :title, :string
+      t.column :author_name, :string
+      t.column :author_email_address, :string
+      t.column :written_on, :datetime
+      t.column :bonus_time, :time
+      t.column :last_read, :date
+      t.column :content, :text
+      t.column :approved, :boolean, :default => 1
+      t.column :replies_count, :integer, :default => 0
+      t.column :parent_id, :integer
+      t.column :type, :string, :limit => 50
+    end
+
+    # Store existing prefix/suffix
+    old_prefix = ActiveRecord::Base.table_name_prefix
+    old_suffix = ActiveRecord::Base.table_name_suffix
+
+    # Set a prefix/suffix we can test against
+    ActiveRecord::Base.table_name_prefix = 'prefix_'
+    ActiveRecord::Base.table_name_suffix = '_suffix'
+
+    topics = create_fixtures("topics")
+
+    # Restore prefix/suffix to its previous values
+    ActiveRecord::Base.table_name_prefix = old_prefix 
+    ActiveRecord::Base.table_name_suffix = old_suffix 
+
+    # firstRow = ActiveRecord::Base.connection.select_one("SELECT * FROM prefix_topics_suffix WHERE author_name = 'David'")
+    firstRow = ActiveRecord::Base.connection.db.get_table(:prefix_topics_suffix).select{|rec| rec.author_name == 'David'}.first
+    assert_equal("The First Topic", firstRow["title"])
+
+    # secondRow = ActiveRecord::Base.connection.select_one("SELECT * FROM prefix_topics_suffix WHERE author_name = 'Mary'")
+    secondRow = ActiveRecord::Base.connection.db.get_table(:prefix_topics_suffix).select{|rec| rec.author_name == 'Mary'}.first
+    assert_nil(secondRow["author_email_address"])        
+  ensure
+    ActiveRecord::Base.connection.drop_table :prefix_topics_suffix rescue nil
+  end
+end
+
+# Too SQL specific
+class TestColumnAlias
+  # can't remove_method, because it's the only one in the textcase
+  def test_column_alias() end
+end
+
+################################################################################
+# Introduce my adaptation of the model classes (override SQL with blocks)
+require 'ar_model_adaptation'
+
+# schema_test and schema_dumper_test require from relative URLs, which means they
+# override my changes. So the changes are reintroduced here.
+module ActiveRecord #:nodoc:
+  class Schema
+    def self.define(info={}, &block)
+      instance_eval(&block)
+
+      unless info.empty?
+        initialize_schema_information
+        ActiveRecord::Base.connection.get_table(ActiveRecord::Migrator.schema_info_table_name.to_sym).update_all(info)
+      end
+    end
+  end
+  
+  class SchemaDumper
+    def initialize(connection)
+      @connection = connection
+      @types = @connection.native_database_types
+      @info = @connection.get_table(:schema_info).select[0] rescue nil
+    end
+  end
+end
+
+# This is required as KirbyBase does not support transactions.
+ObjectSpace.each_object(Class) do |test|
+   test.use_transactional_fixtures = false if test < Test::Unit::TestCase
+end
+

data/test/ar_model_adaptation.rb

@@ -0,0 +1,98 @@
+module ActiveRecord
+  module Associations
+    module ClassMethods
+      def remove_association *names
+        if names.length == 1
+          assocs = @inheritable_attributes[:associations].select{ |a| a.name == names[0] }
+          assocs.each {|assoc| @inheritable_attributes[:associations].delete assoc }
+        else
+          names.each {|assoc| remove_association(assoc)}
+        end
+      end
+      def has_and_belongs_to_many_without_method_redefinition(association_id, options = {}, &extension)
+        options.assert_valid_keys(
+          :class_name, :table_name, :foreign_key, :association_foreign_key, :conditions, :include,
+          :join_table, :finder_sql, :delete_sql, :insert_sql, :order, :uniq, :before_add, :after_add, 
+          :before_remove, :after_remove, :extend
+        )
+
+        options[:extend] = create_extension_module(association_id, extension) if block_given?
+
+        association_name, association_class_name, association_class_primary_key_name =
+              associate_identification(association_id, options[:class_name], options[:foreign_key])
+
+        require_association_class(association_class_name)
+
+        options[:join_table] ||= join_table_name(undecorated_table_name(self.to_s), undecorated_table_name(association_class_name))
+
+        add_multiple_associated_save_callbacks(association_name)
+      
+        collection_accessor_methods(association_name, association_class_name, association_class_primary_key_name, options, HasAndBelongsToManyAssociation)
+
+        add_association_callbacks(association_name, options)
+        
+        # deprecated api
+        deprecated_collection_count_method(association_name)
+        deprecated_add_association_relation(association_name)
+        deprecated_remove_association_relation(association_name)
+        deprecated_has_collection_method(association_name)
+      end
+    end
+  end
+end
+
+class Company < ActiveRecord::Base
+  set_sequence_name nil
+end
+
+class Firm
+  remove_association :clients, :clients_of_firm, :clients_using_sql, :clients_using_counter_sql,
+                     :clients_using_zero_counter_sql, :no_clients_using_counter_sql
+  
+  has_many :clients, :order => "id", :dependent => true, :counter_sql =>
+           lambda {|rec, firm| rec.firm_id == 1 and ['Client', 'SpecialClient', 'VerySpecialClient'].include?(rec.type) }
+           # "SELECT COUNT(*) FROM companies WHERE firm_id = 1 " +
+           # "AND (#{QUOTED_TYPE} = 'Client' OR #{QUOTED_TYPE} = 'SpecialClient' OR #{QUOTED_TYPE} = 'VerySpecialClient' )"
+
+  has_many :clients_of_firm, :foreign_key => "client_of", :class_name => "Client", :order => "id"
+  has_many :clients_using_sql, :class_name => "Client",
+           :finder_sql => lambda{|rec, firm| rec.client_of == firm.id} # 'SELECT * FROM companies WHERE client_of = #{id}'
+  has_many :clients_using_counter_sql, :class_name => "Client",
+           :finder_sql  => lambda{|rec, firm| rec.client_of == firm.id}, # 'SELECT * FROM companies WHERE client_of = #{id}',
+           :counter_sql => lambda{|rec, firm| rec.client_of == firm.id}  # 'SELECT COUNT(*) FROM companies WHERE client_of = #{id}'
+  has_many :clients_using_zero_counter_sql, :class_name => "Client",
+           :finder_sql  => lambda{|rec, firm| rec.client_of == id}, # 'SELECT * FROM companies WHERE client_of = #{id}'
+           :counter_sql => lambda{|rec, firm| false } # 'SELECT 0 FROM companies WHERE client_of = #{id}'
+  has_many :no_clients_using_counter_sql, :class_name => "Client",
+           :finder_sql  => lambda{|rec, firm| rec.client_of == 1000}, # 'SELECT * FROM companies WHERE client_of = 1000'
+           :counter_sql => lambda{|rec, firm| rec.client_of == 1000}  # 'SELECT COUNT(*) FROM companies WHERE client_of = 1000'
+end
+
+class Client < Company
+  belongs_to :firm_with_condition, :class_name => "Firm", :foreign_key => "client_of", :conditions => "1 = 1"
+end
+
+# module MyApplication
+#   module Business
+#     class Firm
+#       has_many :clients_using_sql, :class_name => "Client", 
+#                :finder_sql => lambda{|rec, firm| rec.client_of == firm.id} # 'SELECT * FROM companies WHERE client_of = #{id}'
+#     end
+#   end
+# end 
+
+class Project
+  remove_association :developers_with_finder_sql, :developers_by_sql
+
+  ## Unfortunately calling habtm with the same name again will cause some method
+  # redefinition loop (see associations.rb for the dynamic method redefinition).
+  # So we have to go through loops to redefine the exact methods.
+  has_and_belongs_to_many_without_method_redefinition :developers_with_finder_sql, :class_name => "Developer",
+                          # :finder_sql => 'SELECT t.*, j.* FROM developers_projects j, developers t WHERE t.id = j.developer_id AND j.project_id = #{id}'
+                          :finder_sql => lambda{|join, project| join.project_id == project.id } # this is run on the join table
+                          
+  has_and_belongs_to_many_without_method_redefinition :developers_by_sql, :class_name => "Developer",
+                          # :delete_sql => "DELETE FROM developers_projects WHERE project_id = \#{id} AND developer_id = \#{record.id}"
+                          :delete_sql => lambda{|join, project, developer| join.project_id == project.id and join.developer_id == developer.id}
+end
+