activerecord 1.0.0 → 1.1.0

data/test/associations_test.rb

@@ -42,7 +42,8 @@ class AssociationsTest < Test::Unit::TestCase
   end
 
   def test_storing_in_pstore
-    store_filename = "/tmp/ar-pstore-association-test"
+    require "tmpdir"
+    store_filename = File.join(Dir.tmpdir, "ar-pstore-association-test")
     File.delete(store_filename) if File.exists?(store_filename)
     require "pstore"
     apple = Firm.create("name" => "Apple")
@@ -170,8 +171,9 @@ class HasManyAssociationsTest < Test::Unit::TestCase
 
   def test_finding_using_sql
     firm = Firm.find_first
-    firm.clients_using_sql.first
-    assert_equal "Microsoft", firm.clients_using_sql.first.name
+    first_client = firm.clients_using_sql.first
+    assert_not_nil first_client
+    assert_equal "Microsoft", first_client.name
     assert_equal 1, firm.clients_using_sql.size
     assert_equal 1, Firm.find_first.clients_using_sql.size
   end
@@ -181,6 +183,11 @@ class HasManyAssociationsTest < Test::Unit::TestCase
     assert_equal 1, Firm.find_first.clients.find_all("name = 'Summit'").length
   end
 
+  def test_find_all_sanitized
+    firm = Firm.find_first
+    assert_equal firm.clients.find_all("name = 'Summit'"), firm.clients.find_all(["name = '%s'", "Summit"])
+  end
+
   def test_find_in_collection
     assert_equal Client.find(2).name, @signals37.clients.find(2).name
     assert_equal Client.find(2).name, @signals37.clients.find {|c| c.name == @signals37.clients.find(2).name }.name
@@ -204,7 +211,7 @@ class HasManyAssociationsTest < Test::Unit::TestCase
   
   def test_adding_a_collection
     force_signal37_to_load_all_clients_of_firm
-    @signals37.clients_of_firm.concat(Client.new("name" => "Natural Company"), Client.new("name" => "Apple"))
+    @signals37.clients_of_firm.concat([Client.new("name" => "Natural Company"), Client.new("name" => "Apple")])
     assert_equal 3, @signals37.clients_of_firm.size
     assert_equal 3, @signals37.clients_of_firm(true).size
   end
@@ -234,6 +241,7 @@ class HasManyAssociationsTest < Test::Unit::TestCase
     force_signal37_to_load_all_clients_of_firm
     @signals37.clients_of_firm.create("name" => "Another Client")
     assert_equal 2, @signals37.clients_of_firm.size
+    #@signals37.clients_of_firm.clear
     @signals37.clients_of_firm.delete([@signals37.clients_of_firm[0], @signals37.clients_of_firm[1]])
     assert_equal 0, @signals37.clients_of_firm.size
     assert_equal 0, @signals37.clients_of_firm(true).size
@@ -243,7 +251,7 @@ class HasManyAssociationsTest < Test::Unit::TestCase
     force_signal37_to_load_all_clients_of_firm
     @signals37.clients_of_firm.create("name" => "Another Client")
     assert_equal 2, @signals37.clients_of_firm.size
-    @signals37.clients_of_firm.delete(@signals37.clients_of_firm)
+    @signals37.clients_of_firm.clear
     assert_equal 0, @signals37.clients_of_firm.size
     assert_equal 0, @signals37.clients_of_firm(true).size
   end
@@ -257,12 +265,24 @@ class HasManyAssociationsTest < Test::Unit::TestCase
     assert_equal 2, summit.client_of
   end
 
+  def test_deleting_type_mismatch
+    david = Developer.find(1)
+    david.projects.id
+    assert_raises(ActiveRecord::AssociationTypeMismatch) { david.projects.delete(1) }
+  end
+
+  def test_deleting_self_type_mismatch
+    david = Developer.find(1)
+    david.projects.id
+    assert_raises(ActiveRecord::AssociationTypeMismatch) { david.projects.delete(Project.find(1).developers) }
+  end
+
   def test_destroy_all
     force_signal37_to_load_all_clients_of_firm
-    assert !@signals37.clients_of_firm.empty?
+    assert !@signals37.clients_of_firm.empty?, "37signals has clients after load"
     @signals37.clients_of_firm.destroy_all
-    assert @signals37.clients_of_firm.empty?
-    assert @signals37.clients_of_firm(true).empty?
+    assert @signals37.clients_of_firm.empty?, "37signals has no clients after destroy all"
+    assert @signals37.clients_of_firm(true).empty?, "37signals has no clients after destroy all and refresh"
   end
 
   def test_dependence
@@ -291,6 +311,10 @@ class HasManyAssociationsTest < Test::Unit::TestCase
   def test_included_in_collection
     assert @signals37.clients.include?(Client.find(2))
   end
+
+  def test_adding_array_and_collection
+    assert_nothing_raised { Firm.find_first.clients + Firm.find_all.last.clients }
+  end
 end
 
 class BelongsToAssociationsTest < Test::Unit::TestCase
@@ -306,8 +330,8 @@ class BelongsToAssociationsTest < Test::Unit::TestCase
   end
 
   def test_type_mismatch
-    assert_raises(ActiveRecord::AssociationTypeMismatch) { Account.find(1).firm = 1 }
-    assert_raises(ActiveRecord::AssociationTypeMismatch) { Account.find(1).firm = Project.find(1) }
+    assert_raise(ActiveRecord::AssociationTypeMismatch) { Account.find(1).firm = 1 }
+    assert_raise(ActiveRecord::AssociationTypeMismatch) { Account.find(1).firm = Project.find(1) }
   end
 
   def test_natural_assignment
@@ -327,12 +351,12 @@ class BelongsToAssociationsTest < Test::Unit::TestCase
   
   def test_with_different_class_name
     assert_equal Company.find(1).name, Company.find(3).firm_with_other_name.name
-    assert !Company.find(3).firm_with_other_name.empty?, "Microsoft should have a firm"
+    assert_not_nil Company.find(3).firm_with_other_name, "Microsoft should have a firm"
   end
 
   def test_with_condition
     assert_equal Company.find(1).name, Company.find(3).firm_with_condition.name
-    assert !Company.find(3).firm_with_condition.empty?, "Microsoft should have a firm"
+    assert_not_nil Company.find(3).firm_with_condition, "Microsoft should have a firm"
   end
   
   def test_belongs_to_counter
@@ -367,12 +391,9 @@ end
 
 class HasAndBelongsToManyAssociationsTest < Test::Unit::TestCase
   def setup
-    create_fixtures "accounts"
-    create_fixtures "companies"
-    create_fixtures "accounts"
-    create_fixtures "developers"
-    create_fixtures "projects"
-    create_fixtures "developers_projects"  
+    @accounts, @companies, @developers, @projects, @developers_projects = 
+      create_fixtures "accounts", "companies", "developers", "projects", "developers_projects"
+
     @signals37 = Firm.find(1)
   end
   
@@ -388,7 +409,7 @@ class HasAndBelongsToManyAssociationsTest < Test::Unit::TestCase
     assert_equal david.name, active_record.developers.first.name
   end
   
-  def test_addings
+  def test_adding_single
     jamis = Developer.find(2)
     jamis.projects.id # causing the collection to load 
     action_controller = Project.find(2)
@@ -404,8 +425,8 @@ class HasAndBelongsToManyAssociationsTest < Test::Unit::TestCase
 
   def test_adding_type_mismatch
     jamis = Developer.find(2)
-    assert_raises(ActiveRecord::AssociationTypeMismatch) { jamis.projects << nil }
-    assert_raises(ActiveRecord::AssociationTypeMismatch) { jamis.projects << 1 }
+    assert_raise(ActiveRecord::AssociationTypeMismatch) { jamis.projects << nil }
+    assert_raise(ActiveRecord::AssociationTypeMismatch) { jamis.projects << 1 }
   end
 
   def test_adding_from_the_project
@@ -422,15 +443,37 @@ class HasAndBelongsToManyAssociationsTest < Test::Unit::TestCase
     assert_equal 2, action_controller.developers(true).size
   end
 
+  def test_adding_multiple
+    aridridel = Developer.new("name" => "Aridridel")
+    aridridel.save
+    aridridel.projects.id
+    aridridel.projects.push(Project.find(1), Project.find(2))
+    assert_equal 2, aridridel.projects.size
+    assert_equal 2, aridridel.projects(true).size
+  end
+
   def test_adding_a_collection
     aridridel = Developer.new("name" => "Aridridel")
     aridridel.save
     aridridel.projects.id
-    aridridel.projects.concat([ Project.find(1), Project.find(2) ])
+    aridridel.projects.concat([Project.find(1), Project.find(2)])
     assert_equal 2, aridridel.projects.size
     assert_equal 2, aridridel.projects(true).size
   end
   
+  def test_uniq_after_the_fact
+    @developers["jamis"].find.projects << @projects["active_record"].find
+    @developers["jamis"].find.projects << @projects["active_record"].find
+    assert_equal 3, @developers["jamis"].find.projects.size
+    assert_equal 1, @developers["jamis"].find.projects.uniq.size
+  end
+
+  def test_uniq_before_the_fact
+    @projects["active_record"].find.developers << @developers["jamis"].find
+    @projects["active_record"].find.developers << @developers["david"].find
+    assert_equal 2, @projects["active_record"].find.developers.size
+  end
+  
   def test_deleting
     david = Developer.find(1)
     active_record = Project.find(1)
@@ -445,18 +488,18 @@ class HasAndBelongsToManyAssociationsTest < Test::Unit::TestCase
     assert_equal 1, active_record.developers(true).size
   end
 
-  def test_deleting_a_collection
+  def test_deleting_array
     david = Developer.find(1)
     david.projects.id
     david.projects.delete(Project.find_all)
     assert_equal 0, david.projects.size
     assert_equal 0, david.projects(true).size
   end
-  
-  def test_deleting_a_association_collection
+
+  def test_deleting_all
     david = Developer.find(1)
     david.projects.id
-    david.projects.delete(david.projects)
+    david.projects.clear
     assert_equal 0, david.projects.size
     assert_equal 0, david.projects(true).size
   end
@@ -466,6 +509,10 @@ class HasAndBelongsToManyAssociationsTest < Test::Unit::TestCase
     assert Developer.connection.select_all("SELECT * FROM developers_projects WHERE developer_id = '1'").empty?
   end
   
+  def test_additional_columns_from_join_table
+    assert_equal Date.new(2004, 10, 10).to_s, Developer.find(1).projects.first.joined_on.to_s
+  end
+  
   def test_destroy_all
     david = Developer.find(1)
     david.projects.id
@@ -474,4 +521,29 @@ class HasAndBelongsToManyAssociationsTest < Test::Unit::TestCase
     assert david.projects.empty?
     assert david.projects(true).empty?
   end
-end
+
+  def test_rich_association
+    @jamis = @developers["jamis"].find
+    @jamis.projects.push_with_attributes(@projects["action_controller"].find, :joined_on => Date.today)
+    assert_equal Date.today.to_s, @jamis.projects.select { |p| p.name == @projects["action_controller"]["name"] }.first.joined_on.to_s
+    assert_equal Date.today.to_s, @developers["jamis"].find.projects.select { |p| p.name == @projects["action_controller"]["name"] }.first.joined_on.to_s
+  end
+
+  def test_associations_with_conditions
+    assert_equal 2, @projects["active_record"].find.developers.size
+    assert_equal 1, @projects["active_record"].find.developers_named_david.size
+    
+    @projects["active_record"].find.developers_named_david.clear
+    assert_equal 1, @projects["active_record"].find.developers.size
+  end
+  
+  def test_find_in_association
+    # Using sql
+    assert_equal @developers["david"].find, @projects["active_record"].find.developers.find(@developers["david"]["id"]), "SQL find"
+    
+    # Using ruby
+    @active_record = @projects["active_record"].find
+    @active_record.developers.reload
+    assert_equal @developers["david"].find, @active_record.developers.find(@developers["david"]["id"]), "Ruby find"
+  end
+end

data/test/base_test.rb

@@ -59,9 +59,13 @@ class BasicsTest < Test::Unit::TestCase
     assert topic.respond_to?("title")
     assert topic.respond_to?("title?")
     assert topic.respond_to?("title=")
+    assert topic.respond_to?(:title)
+    assert topic.respond_to?(:title?)
+    assert topic.respond_to?(:title=)
     assert topic.respond_to?("author_name")
     assert topic.respond_to?("attribute_names")
     assert !topic.respond_to?("nothingness")
+    assert !topic.respond_to?(:nothingness)
   end
   
   def test_array_content
@@ -325,6 +329,10 @@ class BasicsTest < Test::Unit::TestCase
     assert_equal Topic.find(1), Topic.find(2).parent
   end
   
+  def test_hashing
+    assert_equal [ Topic.find(1) ], [ Topic.find(2).parent ] & [ Topic.find(1) ]
+  end
+  
   def test_destroy_new_record
     client = Client.new
     client.destroy
@@ -510,4 +518,10 @@ class BasicsTest < Test::Unit::TestCase
     assert_equal(settings, Topic.find(topic.id).content)
     Topic.serialize(:content)
   end
-end
+
+  def test_quote
+    content = "\\ \001 ' \n \\n \""
+    topic = Topic.create('content' => content)
+    assert_equal content, Topic.find(topic.id).content
+  end
+end

data/test/connections/native_sqlite/connection.rb

@@ -3,22 +3,32 @@ require 'fixtures/course'
 require 'logger'
 ActiveRecord::Base.logger = Logger.new("debug.log")
 
-base = "#{File.dirname(__FILE__)}/../../fixtures"
-sqlite_test_db  = "#{base}/fixture_database.sqlite"
-sqlite_test_db2 = "#{base}/fixture_database_2.sqlite"
+BASE_DIR = File.expand_path(File.dirname(__FILE__) + '/../../fixtures')
+sqlite_test_db  = "#{BASE_DIR}/fixture_database.sqlite"
+sqlite_test_db2 = "#{BASE_DIR}/fixture_database_2.sqlite"
 
-[sqlite_test_db, sqlite_test_db2].each do |db|
-  unless File.exist?(db) and File.size(db) > 0
-    puts "*** You must create the SQLite test database in: #{db} ***"
-    exit!
+def make_connection(clazz, db_file, db_definitions_file)
+  unless File.exist?(db_file)
+    puts "SQLite database not found at #{db_file}. Rebuilding it."
+    sqlite_command = "sqlite #{db_file} 'create table a (a integer); drop table a;'"
+    puts "Executing '#{sqlite_command}'"
+    `#{sqlite_command}`
+    clazz.establish_connection(
+        :adapter => "sqlite",
+        :dbfile  => db_file)
+    script = File.read("#{BASE_DIR}/db_definitions/#{db_definitions_file}")
+    # SQLite-Ruby has problems with semi-colon separated commands, so split and execute one at a time
+    script.split(';').each do
+      |command|
+      clazz.connection.execute(command) unless command.strip.empty?
+    end
   else
-    puts "OK: #{db}"
+    clazz.establish_connection(
+        :adapter => "sqlite",
+        :dbfile  => db_file)
   end
 end
 
-ActiveRecord::Base.establish_connection(
-  :adapter => "sqlite",
-  :dbfile  => sqlite_test_db)
-Course.establish_connection(
-  :adapter => "sqlite",
-  :dbfile  => sqlite_test_db2)
+make_connection(ActiveRecord::Base, sqlite_test_db, 'sqlite.sql')
+make_connection(Course, sqlite_test_db2, 'sqlite2.sql')
+

data/test/deprecated_associations_test.rb

@@ -99,13 +99,11 @@ class DeprecatedAssociationsTest < Test::Unit::TestCase
   def test_belongs_to_with_different_class_name
     assert_equal Company.find(1).name, Company.find(3).firm_with_other_name.name
     assert Company.find(3).has_firm_with_other_name?, "Microsoft should have a firm"
-    assert !Company.find(1).has_firm_with_other_name?, "37signals shouldn't have a firm"
   end
 
   def test_belongs_to_with_condition
     assert_equal Company.find(1).name, Company.find(3).firm_with_condition.name
     assert Company.find(3).has_firm_with_condition?, "Microsoft should have a firm"
-    assert !Company.find(1).has_firm_with_condition?, "37signals shouldn't have a firm"
   end
 
   
@@ -314,16 +312,17 @@ class DeprecatedAssociationsTest < Test::Unit::TestCase
 
   def test_storing_in_pstore
     require "pstore"
+    require "tmpdir"
     apple = Firm.create("name" => "Apple")
     natural = Client.new("name" => "Natural Company")
     apple.clients << natural
 
-    db = PStore.new("/tmp/ar-pstore-association-test")
+    db = PStore.new(File.join(Dir.tmpdir, "ar-pstore-association-test"))
     db.transaction do
       db["apple"] = apple
     end
 
-    db = PStore.new("/tmp/ar-pstore-association-test")
+    db = PStore.new(File.join(Dir.tmpdir, "ar-pstore-association-test"))
     db.transaction do
       assert_equal "Natural Company", db["apple"].clients.first.name
     end

data/test/deprecated_associations_test.rb.orig

@@ -0,0 +1,334 @@
+require 'abstract_unit'
+require 'fixtures/developer'
+require 'fixtures/project'
+require 'fixtures/company'
+require 'fixtures/topic'
+# require File.dirname(__FILE__) + '/../dev-utils/eval_debugger'
+require 'fixtures/reply'
+
+# Can't declare new classes in test case methods, so tests before that
+bad_collection_keys = false
+begin
+  class Car < ActiveRecord::Base; has_many :wheels, :name => "wheels"; end
+rescue ActiveRecord::ActiveRecordError
+  bad_collection_keys = true
+end
+raise "ActiveRecord should have barked on bad collection keys" unless bad_collection_keys
+
+
+class DeprecatedAssociationsTest < Test::Unit::TestCase
+  def setup
+    create_fixtures "accounts", "companies", "accounts", "developers", "projects", "developers_projects", "topics"
+    @signals37 = Firm.find(1)
+  end
+
+  def test_has_many_find
+    assert_equal 2, Firm.find_first.clients.length
+  end
+  
+  def test_has_many_orders
+    assert_equal "Summit", Firm.find_first.clients.first.name
+  end
+
+  def test_has_many_class_name
+    assert_equal "Microsoft", Firm.find_first.clients_sorted_desc.first.name
+  end
+
+  def test_has_many_foreign_key
+    assert_equal "Microsoft", Firm.find_first.clients_of_firm.first.name
+  end
+  
+  def test_has_many_conditions
+    assert_equal "Microsoft", Firm.find_first.clients_like_ms.first.name
+  end
+
+  def test_has_many_sql
+    firm = Firm.find_first
+    assert_equal "Microsoft", firm.clients_using_sql.first.name
+    assert_equal 1, firm.clients_using_sql_count
+    assert_equal 1, Firm.find_first.clients_using_sql_count
+  end
+  
+  def test_has_many_queries
+    assert Firm.find_first.has_clients?
+    firm = Firm.find_first
+    assert_equal 2, firm.clients_count # tests using class count
+    firm.clients
+    assert firm.has_clients?
+    assert_equal 2, firm.clients_count # tests using collection length
+  end
+
+  def test_has_many_dependence
+    assert_equal 2, Client.find_all.length
+    Firm.find_first.destroy
+    assert_equal 0, Client.find_all.length
+  end
+
+  def test_has_many_dependence_with_transaction_support_on_failure
+    assert_equal 2, Client.find_all.length
+
+    firm = Firm.find_first
+    clients = firm.clients
+    clients.last.instance_eval { def before_destroy() raise "Trigger rollback" end }
+
+    firm.destroy rescue "do nothing"
+
+    assert_equal 2, Client.find_all.length
+  end
+  
+  def test_has_one_dependence
+    firm = Firm.find(1)
+    assert firm.has_account?
+    firm.destroy
+    assert_equal 1, Account.find_all.length
+  end
+
+  def test_has_one_dependence_with_missing_association
+    Account.destroy_all
+    firm = Firm.find(1)
+    assert !firm.has_account?
+    firm.destroy
+  end
+
+  def test_belongs_to
+    assert_equal @signals37.name, Client.find(3).firm.name
+    assert Client.find(3).has_firm?, "Microsoft should have a firm"
+    # assert !Company.find(1).has_firm?, "37signals shouldn't have a firm"
+  end
+  
+  def test_belongs_to_with_different_class_name
+    assert_equal Company.find(1).name, Company.find(3).firm_with_other_name.name
+    assert Company.find(3).has_firm_with_other_name?, "Microsoft should have a firm"
+  end
+
+  def test_belongs_to_with_condition
+    assert_equal Company.find(1).name, Company.find(3).firm_with_condition.name
+    assert Company.find(3).has_firm_with_condition?, "Microsoft should have a firm"
+  end
+
+  
+  def test_belongs_to_equality
+    assert Company.find(3).firm?(Company.find(1)), "Microsoft should have 37signals as firm"
+    assert_raises(RuntimeError) { !Company.find(3).firm?(Company.find(3)) } # "Summit shouldn't have itself as firm"
+  end
+  
+  def test_has_one
+    assert @signals37.account?(Account.find(1))
+    assert_equal Account.find(1).credit_limit, @signals37.account.credit_limit
+    assert @signals37.has_account?, "37signals should have an account"
+    assert Account.find(1).firm?(@signals37), "37signals account should be able to backtrack"
+    assert Account.find(1).has_firm?, "37signals account should be able to backtrack"
+
+    assert !Account.find(2).has_firm?, "Unknown isn't linked"
+    assert !Account.find(2).firm?(@signals37), "Unknown isn't linked"
+  end
+
+  def test_has_many_dependence_on_account
+    assert_equal 2, Account.find_all.length
+    @signals37.destroy
+    assert_equal 1, Account.find_all.length
+  end
+  
+  def test_find_in
+    assert_equal Client.find(2).name, @signals37.find_in_clients(2).name
+    assert_raises(ActiveRecord::RecordNotFound) { @signals37.find_in_clients(6) }
+  end
+  
+  def test_force_reload
+    firm = Firm.new
+    firm.save
+    firm.clients.each {|c|} # forcing to load all clients
+    assert firm.clients.empty?, "New firm shouldn't have client objects"
+    assert !firm.has_clients?, "New firm shouldn't have clients"
+    assert_equal 0, firm.clients_count, "New firm should have 0 clients"
+    
+    client = Client.new("firm_id" => firm.id)
+    client.save
+
+    assert firm.clients.empty?, "New firm should have cached no client objects"
+    assert !firm.has_clients?, "New firm should have cached a no-clients response"
+    assert_equal 0, firm.clients_count, "New firm should have cached 0 clients count"
+
+    assert !firm.clients(true).empty?, "New firm should have reloaded client objects"
+    assert firm.has_clients?(true), "New firm should have reloaded with a have-clients response"
+    assert_equal 1, firm.clients_count(true), "New firm should have reloaded clients count"
+  end
+    
+  def test_included_in_collection
+    assert @signals37.clients.include?(Client.find(2))
+  end
+
+  def test_build_to_collection
+    assert_equal 1, @signals37.clients_of_firm_count
+    new_client = @signals37.build_to_clients_of_firm("name" => "Another Client")
+    assert_equal "Another Client", new_client.name
+    assert new_client.save
+
+    assert new_client.firm?(@signals37)
+    assert_equal 2, @signals37.clients_of_firm_count(true)
+  end
+  
+  def test_create_in_collection
+    assert_equal @signals37.create_in_clients_of_firm("name" => "Another Client"), @signals37.clients_of_firm(true).last
+  end
+  
+  def test_succesful_build_association
+    firm = Firm.new("name" => "GlobalMegaCorp")
+    firm.save
+    
+    account = firm.build_account("credit_limit" => 1000)
+    assert account.save
+    assert_equal account, firm.account
+  end
+  
+  def test_failing_build_association
+    firm = Firm.new("name" => "GlobalMegaCorp")
+    firm.save
+    
+    account = firm.build_account
+    assert !account.save
+    assert_equal "can't be empty", account.errors.on("credit_limit")
+  end
+  
+  def test_create_association
+    firm = Firm.new("name" => "GlobalMegaCorp")
+    firm.save
+    assert_equal firm.create_account("credit_limit" => 1000), firm.account
+  end
+  
+  def test_has_and_belongs_to_many
+    david = Developer.find(1)
+    assert david.has_projects?
+    assert_equal 2, david.projects_count
+
+    active_record = Project.find(1)
+    assert active_record.has_developers?
+    assert_equal 2, active_record.developers_count
+    assert_equal david.name, active_record.developers.first.name
+  end
+
+  def test_has_and_belongs_to_many_removing
+    david = Developer.find(1)
+    active_record = Project.find(1)
+
+    david.remove_projects(active_record)
+    
+    assert_equal 1, david.projects_count
+    assert_equal 1, active_record.developers_count    
+  end
+
+  def test_has_and_belongs_to_many_zero
+    david = Developer.find(1)
+    david.remove_projects(Project.find_all)
+    
+    assert_equal 0, david.projects_count
+    assert !david.has_projects?
+  end
+
+  def test_has_and_belongs_to_many_adding
+    jamis = Developer.find(2)
+    action_controller = Project.find(2)
+
+    jamis.add_projects(action_controller)
+    
+    assert_equal 2, jamis.projects_count
+    assert_equal 2, action_controller.developers_count    
+  end
+
+  def test_has_and_belongs_to_many_adding_from_the_project
+    jamis = Developer.find(2)
+    action_controller = Project.find(2)
+
+    action_controller.add_developers(jamis)
+    
+    assert_equal 2, jamis.projects_count
+    assert_equal 2, action_controller.developers_count
+  end
+  
+  def test_has_and_belongs_to_many_adding_a_collection
+    aridridel = Developer.new("name" => "Aridridel")
+    aridridel.save
+    
+    aridridel.add_projects([ Project.find(1), Project.find(2) ])
+    assert_equal 2, aridridel.projects_count
+  end
+  
+  def test_belongs_to_counter
+    topic = Topic.create("title" => "Apple", "content" => "hello world")
+    assert_equal 0, topic.send(:read_attribute, "replies_count"), "No replies yet"
+
+    reply = topic.create_in_replies("title" => "I'm saying no!", "content" => "over here")
+    assert_equal 1, Topic.find(topic.id).send(:read_attribute, "replies_count"), "First reply created"
+
+    reply.destroy
+    assert_equal 0, Topic.find(topic.id).send(:read_attribute, "replies_count"), "First reply deleted"
+  end
+  
+  def test_natural_assignment_of_has_one
+    apple = Firm.create("name" => "Apple")
+    citibank = Account.create("credit_limit" => 10)
+    apple.account = citibank
+    assert_equal apple.id, citibank.firm_id
+  end
+  
+  def test_natural_assignment_of_belongs_to
+    apple = Firm.create("name" => "Apple")
+    citibank = Account.create("credit_limit" => 10)
+    citibank.firm = apple
+    assert_equal apple.id, citibank.firm_id
+  end
+
+  def test_natural_assignment_of_has_many
+    apple = Firm.create("name" => "Apple")
+    natural = Client.new("name" => "Natural Company")
+    apple.clients << natural
+    assert_equal apple.id, natural.firm_id
+    assert_equal Client.find(natural.id), Firm.find(apple.id).clients.find { |c| c.id == natural.id }
+    apple.clients.delete natural
+    assert_nil Firm.find(apple.id).clients.find { |c| c.id == natural.id }
+  end
+
+   
+  def test_natural_adding_of_has_and_belongs_to_many
+    rails = Project.create("name" => "Rails")
+    ap = Project.create("name" => "Action Pack")
+    john = Developer.create("name" => "John")
+    mike = Developer.create("name" => "Mike")
+ 		rails.developers << john
+ 		rails.developers << mike
+ 		
+    assert_equal Developer.find(john.id), Project.find(rails.id).developers.find { |d| d.id == john.id }
+    assert_equal Developer.find(mike.id), Project.find(rails.id).developers.find { |d| d.id == mike.id }
+    assert_equal Project.find(rails.id), Developer.find(mike.id).projects.find { |p| p.id == rails.id }
+    assert_equal Project.find(rails.id), Developer.find(john.id).projects.find { |p| p.id == rails.id }
+    ap.developers << john
+    assert_equal Developer.find(john.id), Project.find(ap.id).developers.find { |d| d.id == john.id }
+    assert_equal Project.find(ap.id), Developer.find(john.id).projects.find { |p| p.id == ap.id }
+    
+    ap.developers.delete john
+    assert_nil Project.find(ap.id).developers.find { |d| d.id == john.id }
+		assert_nil Developer.find(john.id).projects.find { |p| p.id == ap.id }
+  end
+
+  def test_storing_in_pstore
+    require "pstore"
+    apple = Firm.create("name" => "Apple")
+    natural = Client.new("name" => "Natural Company")
+    apple.clients << natural
+
+    db = PStore.new("/tmp/ar-pstore-association-test")
+    db.transaction do
+      db["apple"] = apple
+    end
+
+    db = PStore.new("/tmp/ar-pstore-association-test")
+    db.transaction do
+      assert_equal "Natural Company", db["apple"].clients.first.name
+    end
+  end
+
+  def test_has_many_find_all
+    assert_equal 2, Firm.find_first.find_all_in_clients("type = 'Client'").length
+    assert_equal 1, Firm.find_first.find_all_in_clients("name = 'Summit'").length
+  end
+end