tenacity 0.1.0

data/tenacity.gemspec

@@ -0,0 +1,34 @@
+# -*- encoding: utf-8 -*-
+require File.expand_path("../lib/tenacity/version", __FILE__)
+
+Gem::Specification.new do |s|
+  s.name        = "tenacity"
+  s.license     = "MIT"
+  s.version     = Tenacity::VERSION
+  s.platform    = Gem::Platform::RUBY
+  s.authors     = ["John Wood"]
+  s.email       = ["john@johnpwood.net"]
+  s.homepage    = "http://github.com/jwood/tenacity"
+  s.summary     = %Q{A ORM independent way of specifying simple relationships between models backed by different databases.}
+  s.description = %Q{Tenacity provides an ORM independent way of specifying simple relationships between models backed by different databases.}
+
+  s.required_rubygems_version = ">= 1.3.6"
+
+  s.add_runtime_dependency "activesupport", ">= 2.3"
+
+  s.add_development_dependency "bundler", "~> 1.0.0"
+  s.add_development_dependency "rake", "~> 0.8.7"
+  s.add_development_dependency "rcov", "~> 0.9.9"
+  s.add_development_dependency "shoulda", "~> 2.11.3"
+  s.add_development_dependency "mongo_mapper", "~> 0.8.6"
+  s.add_development_dependency "bson_ext", "~> 1.1.3"
+  s.add_development_dependency "activerecord", "~> 3.0.0"
+  s.add_development_dependency "mysql", "~> 2.8.1"
+  s.add_development_dependency "couchrest", "~> 1.0.0"
+  s.add_development_dependency "couchrest_model"
+
+  s.files        = `git ls-files`.split("\n")
+  s.executables  = `git ls-files`.split("\n").map{|f| f =~ /^bin\/(.*)/ ? $1 : nil}.compact
+  s.require_path = 'lib'
+end
+

data/test/associations/belongs_to_test.rb

@@ -0,0 +1,119 @@
+require 'test_helper'
+
+class BelongsToTest < Test::Unit::TestCase
+
+  context "A class with a belongs_to association to another class" do
+    setup do
+      setup_fixtures
+      @car = ActiveRecordCar.create
+      @wheel = MongoMapperWheel.create(:active_record_car => @car)
+    end
+
+    should "memoize the association" do
+      assert_equal @car, @wheel.active_record_car
+
+      other_car = ActiveRecordCar.create
+      assert_equal @car, MongoMapperWheel.find(@wheel.id).active_record_car
+      MongoMapperWheel.update(@wheel.id, :active_record_car => other_car)
+      assert_equal other_car, MongoMapperWheel.find(@wheel.id).active_record_car
+
+      assert_equal @car, @wheel.active_record_car
+      assert_equal other_car, @wheel.active_record_car(true)
+    end
+  end
+
+  context "A MongoMapper class with belongs_to association to an ActiveRecord class" do
+    setup do
+      setup_fixtures
+      @car = ActiveRecordCar.create
+      @wheel = MongoMapperWheel.create
+    end
+
+    should "be able to fetch the id of the associated object" do
+      @wheel.active_record_car_id = @car.id
+      @wheel.save
+      assert_equal @car.id, MongoMapperWheel.find(@wheel.id).active_record_car_id.to_i
+    end
+
+    should "be able to load the associated object" do
+      @wheel.active_record_car = @car
+      @wheel.save
+      assert_equal @car.id, MongoMapperWheel.find(@wheel.id).active_record_car_id.to_i
+      assert_equal @car, MongoMapperWheel.find(@wheel.id).active_record_car
+    end
+
+    should "be able to load the associated object if all we have is the id" do
+      @wheel.active_record_car_id = @car.id
+      @wheel.save
+      assert_equal @car, MongoMapperWheel.find(@wheel.id).active_record_car
+    end
+
+    should "return nil if no association is set" do
+      assert_nil MongoMapperWheel.find(@wheel.id).active_record_car
+    end
+  end
+
+  context "An ActiveRecord class with belongs_to association to a MongoMapper class" do
+    setup do
+      setup_fixtures
+      @wheel = MongoMapperWheel.create
+      @nut = ActiveRecordNut.create
+    end
+
+    should "be able to fetch the id of the associated object" do
+      @nut.mongo_mapper_wheel_id = @wheel.id
+      @nut.save
+      assert_equal @wheel.id.to_s, ActiveRecordNut.find(@nut.id).mongo_mapper_wheel_id
+    end
+
+    should "be able to load the associated object" do
+      @nut.mongo_mapper_wheel = @wheel
+      @nut.save
+      assert_equal @wheel.id.to_s, ActiveRecordNut.find(@nut.id).mongo_mapper_wheel_id
+      assert_equal @wheel, ActiveRecordNut.find(@nut.id).mongo_mapper_wheel
+    end
+
+    should "be be able to load the associated object if all we have is the id" do
+      @nut.mongo_mapper_wheel_id = @wheel.id
+      @nut.save
+      assert_equal @wheel, ActiveRecordNut.find(@nut.id).mongo_mapper_wheel
+    end
+
+    should "return nil if no association is set" do
+      assert_nil ActiveRecordNut.find(@nut.id).mongo_mapper_wheel
+    end
+  end
+
+  context "A CouchRest class with belongs_to association to a MongoMapper class" do
+    setup do
+      setup_all_fixtures
+      @dashboard = MongoMapperDashboard.create
+      @radio = CouchRestRadio.create({})
+    end
+
+    should "be able to fetch the id of the associated object" do
+      @radio.mongo_mapper_dashboard_id = @dashboard.id
+      @radio.save
+      assert_equal @dashboard.id.to_s, CouchRestRadio.find(@radio.id).mongo_mapper_dashboard_id
+    end
+
+    should "be able to load the associated object" do
+      @radio.mongo_mapper_dashboard = @dashboard
+      @radio.save
+      assert_equal @dashboard.id.to_s, CouchRestRadio.find(@radio.id).mongo_mapper_dashboard_id
+      assert_equal @dashboard, CouchRestRadio.find(@radio.id).mongo_mapper_dashboard
+    end
+
+    should "be be able to load the associated object if all we have is the id" do
+      @radio.mongo_mapper_dashboard_id = @dashboard.id
+      @radio.save
+      assert_equal @dashboard, CouchRestRadio.find(@radio.id).mongo_mapper_dashboard
+    end
+
+    should "return nil if no association is set" do
+      assert_nil CouchRestRadio.find(@radio.id).mongo_mapper_dashboard
+    end
+
+  end
+
+end

data/test/associations/has_many_test.rb

@@ -0,0 +1,184 @@
+require 'test_helper'
+
+class HasManyTest < Test::Unit::TestCase
+
+  context "A class with a belongs_to association to another class" do
+    setup do
+      setup_fixtures
+      @car = ActiveRecordCar.create
+      @wheels = [MongoMapperWheel.create, MongoMapperWheel.create, MongoMapperWheel.create]
+
+      @car.mongo_mapper_wheels = @wheels
+      @car.save
+    end
+
+    should "memoize the association" do
+      assert_equal @wheels, @car.mongo_mapper_wheels
+
+      other_wheels = [MongoMapperWheel.create, MongoMapperWheel.create, MongoMapperWheel.create]
+      assert_equal @wheels, ActiveRecordCar.find(@car.id).mongo_mapper_wheels
+      ActiveRecordCar.find(@car.id).update_attribute(:mongo_mapper_wheels, other_wheels)
+      assert_equal other_wheels, ActiveRecordCar.find(@car.id).mongo_mapper_wheels
+
+      assert_equal @wheels, @car.mongo_mapper_wheels
+      assert_equal other_wheels, @car.mongo_mapper_wheels(true)
+    end
+  end
+
+  context "An ActiveRecord class with a has_many association to a MongoMapper class" do
+    setup do
+      setup_fixtures
+      @car = ActiveRecordCar.create
+      @wheel_1 = MongoMapperWheel.create
+      @wheel_2 = MongoMapperWheel.create
+      @wheel_3 = MongoMapperWheel.create
+    end
+
+    should "be able to set the associated objects by their ids" do
+      @car.mongo_mapper_wheel_ids = [@wheel_1.id, @wheel_2.id, @wheel_3.id]
+      @car.save
+      assert_set_equal [@wheel_1, @wheel_2, @wheel_3], ActiveRecordCar.find(@car.id).mongo_mapper_wheels
+      assert_set_equal [@wheel_1.id.to_s, @wheel_2.id.to_s, @wheel_3.id.to_s], ActiveRecordCar.find(@car.id).mongo_mapper_wheel_ids
+    end
+
+    context "that works with associated objects" do
+      setup do
+        @car.mongo_mapper_wheels = [@wheel_1, @wheel_2, @wheel_3]
+        @car.save
+      end
+
+      should "be able to set the associated objects" do
+        assert_set_equal [@wheel_1, @wheel_2, @wheel_3], ActiveRecordCar.find(@car.id).mongo_mapper_wheels
+      end
+
+      should "be able to add an associated object using the << operator" do
+        wheel_4 = MongoMapperWheel.create
+        @car.mongo_mapper_wheels << wheel_4
+        @car.save
+        assert_set_equal [@wheel_1, @wheel_2, @wheel_3, wheel_4], ActiveRecordCar.find(@car.id).mongo_mapper_wheels
+      end
+
+      should "be able to remove an associated object using the delete method" do
+        @car.mongo_mapper_wheels.delete(@wheel_3)
+        @car.save
+        assert_set_equal [@wheel_1, @wheel_2], ActiveRecordCar.find(@car.id).mongo_mapper_wheels
+      end
+
+      should "be able to clear all associated objects using the clear method" do
+        @car.mongo_mapper_wheels.clear
+        @car.save
+        assert_equal [], ActiveRecordCar.find(@car.id).mongo_mapper_wheels
+      end
+
+      should "return an empty array if the association is not set" do
+        car = ActiveRecordCar.create
+        assert_set_equal [], ActiveRecordCar.find(car.id).mongo_mapper_wheels
+      end
+    end
+  end
+
+  context "A MongoMapper class with a has_many association to an ActiveRecord class" do
+    setup do
+      setup_fixtures
+      @wheel = MongoMapperWheel.create
+      @nut_1 = ActiveRecordNut.create
+      @nut_2 = ActiveRecordNut.create
+      @nut_3 = ActiveRecordNut.create
+    end
+
+    should "be able to set the associated objects by their ids" do
+      @wheel.active_record_nut_ids = [@nut_1.id, @nut_2.id, @nut_3.id]
+      @wheel.save
+      assert_set_equal [@nut_1, @nut_2, @nut_3], MongoMapperWheel.find(@wheel.id).active_record_nuts
+      assert_set_equal [@nut_1.id.to_s, @nut_2.id.to_s, @nut_3.id.to_s], MongoMapperWheel.find(@wheel.id).active_record_nut_ids
+    end
+
+    context "that works with associated objects" do
+      setup do
+        @wheel.active_record_nuts = [@nut_1, @nut_2, @nut_3]
+        @wheel.save
+      end
+
+      should "be able to set the associated objects" do
+        assert_set_equal [@nut_1, @nut_2, @nut_3], MongoMapperWheel.find(@wheel.id).active_record_nuts
+      end
+
+      should "be able to add an associated object using the << operator" do
+        nut_4 = ActiveRecordNut.create
+        @wheel.active_record_nuts << nut_4
+        @wheel.save
+        assert_set_equal [@nut_1, @nut_2, @nut_3, nut_4], MongoMapperWheel.find(@wheel.id).active_record_nuts
+      end
+
+      should "be able to remove an associated object using the delete method" do
+        @wheel.active_record_nuts.delete(@nut_3)
+        @wheel.save
+        assert_set_equal [@nut_1, @nut_2], MongoMapperWheel.find(@wheel.id).active_record_nuts
+      end
+
+      should "be able to clear all associated objects using the clear method" do
+        @wheel.active_record_nuts.clear
+        @wheel.save
+        assert_set_equal [], MongoMapperWheel.find(@wheel.id).active_record_nuts
+      end
+
+      should "return an empty array if the association is not set" do
+        wheel = MongoMapperWheel.create
+        assert_set_equal [], MongoMapperWheel.find(wheel.id).active_record_nuts
+      end
+    end
+  end
+
+  context "A CouchRest class with a has_many association to a MongoMapper class" do
+    setup do
+      setup_all_fixtures
+      @radio = CouchRestRadio.create({})
+      @button_1 = MongoMapperButton.create
+      @button_2 = MongoMapperButton.create
+      @button_3 = MongoMapperButton.create
+    end
+
+    should "be able to set the associated objects by their ids" do
+      @radio.mongo_mapper_button_ids = [@button_1.id, @button_2.id, @button_3.id]
+      @radio.save
+      assert_set_equal [@button_1, @button_2, @button_3], CouchRestRadio.get(@radio.id).mongo_mapper_buttons
+      assert_set_equal [@button_1.id.to_s, @button_2.id.to_s, @button_3.id.to_s], CouchRestRadio.get(@radio.id).mongo_mapper_button_ids
+    end
+
+    context "that works with associated objects" do
+      setup do
+        @radio.mongo_mapper_buttons = [@button_1, @button_2, @button_3]
+        @radio.save
+      end
+
+      should "be able to set the associated objects" do
+        assert_set_equal [@button_1, @button_2, @button_3], CouchRestRadio.get(@radio.id).mongo_mapper_buttons
+      end
+
+      should "be able to add an associated object using the << operator" do
+        button_4 = MongoMapperButton.create
+        @radio.mongo_mapper_buttons << button_4
+        @radio.save
+        assert_set_equal [@button_1, @button_2, @button_3, button_4], CouchRestRadio.get(@radio.id).mongo_mapper_buttons
+      end
+
+      should "be able to remove an associated object using the delete method" do
+        @radio.mongo_mapper_buttons.delete(@button_3)
+        @radio.save
+        assert_set_equal [@button_1, @button_2], CouchRestRadio.get(@radio.id).mongo_mapper_buttons
+      end
+
+      should "be able to clear all associated objects using the clear method" do
+        @radio.mongo_mapper_buttons.clear
+        @radio.save
+        assert_equal [], CouchRestRadio.get(@radio.id).mongo_mapper_buttons
+      end
+
+      should "return an empty array if the association is not set" do
+        radio = CouchRestRadio.create({})
+        assert_set_equal [], CouchRestRadio.get(radio.id).mongo_mapper_buttons
+      end
+    end
+  end
+
+end

data/test/associations/has_one_test.rb

@@ -0,0 +1,77 @@
+require 'test_helper'
+
+class HasOneTest < Test::Unit::TestCase
+
+  context "A class with a has_one association to another class" do
+    setup do
+      setup_fixtures
+      @climate_control_unit = ActiveRecordClimateControlUnit.create
+      @dashboard = MongoMapperDashboard.create(:active_record_climate_control_unit => @climate_control_unit)
+    end
+
+    should "memoize the association" do
+      assert_equal @climate_control_unit, @dashboard.active_record_climate_control_unit
+
+      other_climate_control_unit = ActiveRecordClimateControlUnit.create
+      assert_equal @climate_control_unit, MongoMapperDashboard.find(@dashboard.id).active_record_climate_control_unit
+      ActiveRecordClimateControlUnit.update(@climate_control_unit.id, :mongo_mapper_dashboard_id => nil)
+      ActiveRecordClimateControlUnit.update(other_climate_control_unit.id, :mongo_mapper_dashboard_id => @dashboard.id)
+      assert_equal other_climate_control_unit, MongoMapperDashboard.find(@dashboard.id).active_record_climate_control_unit
+
+      assert_equal @climate_control_unit, @dashboard.active_record_climate_control_unit
+      assert_equal other_climate_control_unit, @dashboard.active_record_climate_control_unit(true)
+    end
+  end
+
+  context "A MongoMapper class with a has_one association to an ActiveRecord class" do
+    setup do
+      setup_fixtures
+      @climate_control_unit = ActiveRecordClimateControlUnit.create
+      @dashboard = MongoMapperDashboard.create
+    end
+
+    should "be able to set and get the associated object" do
+      @dashboard.active_record_climate_control_unit = @climate_control_unit
+      assert_equal @climate_control_unit, MongoMapperDashboard.find(@dashboard.id).active_record_climate_control_unit
+    end
+
+    should "return nil if no association is set" do
+      assert_nil MongoMapperDashboard.find(@dashboard.id).active_record_climate_control_unit
+    end
+  end
+
+  context "An ActiveRecord class with a has_one association to a MongoMapper class" do
+    setup do
+      setup_fixtures
+      @dashboard = MongoMapperDashboard.create
+      @car = ActiveRecordCar.create
+    end
+
+    should "be able to set and get the associated object" do
+      @car.mongo_mapper_dashboard = @dashboard
+      assert_equal @dashboard, ActiveRecordCar.find(@car.id).mongo_mapper_dashboard
+    end
+
+    should "return nil if no association is set" do
+      assert_nil ActiveRecordCar.find(@car.id).mongo_mapper_dashboard
+    end
+  end
+
+  context "A CouchRest class with a has_one association to a MongoMapper class" do
+    setup do
+      setup_all_fixtures
+      @dashboard = MongoMapperDashboard.create
+      @radio = CouchRestRadio.create({})
+    end
+
+    should "be able to set and get the associated object" do
+      @dashboard.couch_rest_radio = @radio
+      assert_equal @radio, MongoMapperDashboard.find(@dashboard.id).couch_rest_radio
+    end
+
+    should "return nil if no association is set" do
+      assert_nil MongoMapperDashboard.find(@dashboard.id).couch_rest_radio
+    end
+  end
+
+end

data/test/core/classmethods_test.rb

@@ -0,0 +1,53 @@
+require 'test_helper'
+
+class ClassmethodsTest < Test::Unit::TestCase
+
+  context "A class with a belongs_to :active_record_car association" do
+    setup do
+      setup_fixtures
+      @wheel = MongoMapperWheel.new
+    end
+
+    should("respond to active_record_car") { assert @wheel.respond_to?(:active_record_car) }
+    should("respond to active_record_car=") { assert @wheel.respond_to?(:active_record_car=) }
+    should("respond to active_record_car_id") { assert @wheel.respond_to?(:active_record_car_id) }
+  end
+
+  context "A class with a has_one :active_record_climate_control_unit association" do
+    setup do
+      setup_fixtures
+      @dashboard = MongoMapperDashboard.new
+    end
+
+    should("respond to active_record_climate_control_unit") { assert @dashboard.respond_to?(:active_record_climate_control_unit) }
+    should("respond to active_record_climate_control_unit=") { assert @dashboard.respond_to?(:active_record_climate_control_unit=) }
+  end
+
+  context "A class with a has_many :active_record_nuts association" do
+    setup do
+      setup_fixtures
+      @wheel = MongoMapperWheel.new
+    end
+
+    should("respond to active_record_nuts") { assert @wheel.respond_to?(:active_record_nuts) }
+    should("respond to active_record_nuts=") { assert @wheel.respond_to?(:active_record_nuts=) }
+    should("respond to active_record_nut_ids") { assert @wheel.respond_to?(:active_record_nut_ids) }
+    should("respond to active_record_nut_ids=") { assert @wheel.respond_to?(:active_record_nut_ids=) }
+  end
+
+  context "The object returned by a has_many association" do
+    setup do
+      setup_fixtures
+      @wheel = MongoMapperWheel.new
+      @nuts = @wheel.active_record_nuts
+    end
+
+    should("respond to <<") { assert @nuts.respond_to?(:<<) }
+    should("respond to delete") { assert @nuts.respond_to?(:delete) }
+    should("respond to clear") { assert @nuts.respond_to?(:clear) }
+    should("respond to empty?") { assert @nuts.respond_to?(:empty?) }
+    should("respond to size") { assert @nuts.respond_to?(:size) }
+  end
+
+end
+

data/test/fixtures/active_record_car.rb

@@ -0,0 +1,6 @@
+class ActiveRecordCar < ActiveRecord::Base
+  include Tenacity
+
+  t_has_many :mongo_mapper_wheels
+  t_has_one :mongo_mapper_dashboard
+end

data/test/fixtures/active_record_climate_control_unit.rb

@@ -0,0 +1,5 @@
+class ActiveRecordClimateControlUnit < ActiveRecord::Base
+  include Tenacity
+
+  t_belongs_to :mongo_mapper_dashboard
+end

data/test/fixtures/active_record_nuts.rb

@@ -0,0 +1,5 @@
+class ActiveRecordNut < ActiveRecord::Base
+  include Tenacity
+
+  t_belongs_to :mongo_mapper_wheel
+end

data/test/fixtures/couch_rest_radio.rb

@@ -0,0 +1,10 @@
+require 'couchrest_model'
+
+class CouchRestRadio < CouchRest::Model::Base
+  include Tenacity
+  use_database COUCH_DB
+
+  t_belongs_to :mongo_mapper_dashboard
+  t_has_many :mongo_mapper_buttons
+end
+

data/test/fixtures/mongo_mapper_button.rb

@@ -0,0 +1,6 @@
+class MongoMapperButton
+  include MongoMapper::Document
+  include Tenacity
+
+  t_belongs_to :couch_rest_radio
+end

data/test/fixtures/mongo_mapper_dashboard.rb

@@ -0,0 +1,10 @@
+require 'mongo_mapper'
+
+class MongoMapperDashboard
+  include MongoMapper::Document
+  include Tenacity
+
+  t_belongs_to :active_record_car
+  t_has_one :active_record_climate_control_unit
+  t_has_one :couch_rest_radio
+end

data/test/fixtures/mongo_mapper_wheel.rb

@@ -0,0 +1,9 @@
+require 'mongo_mapper'
+
+class MongoMapperWheel
+  include MongoMapper::Document
+  include Tenacity
+
+  t_belongs_to :active_record_car
+  t_has_many :active_record_nuts
+end

data/test/helpers/active_record_test_helper.rb

@@ -0,0 +1,7 @@
+require 'active_record'
+
+ActiveRecord::Base.establish_connection(
+  :adapter => "mysql",
+  :host => "localhost",
+  :username => "root",
+  :database => "tenacity_test")

data/test/helpers/couch_rest_test_helper.rb

@@ -0,0 +1,8 @@
+require 'couchrest_model'
+
+COUCHHOST   = "http://127.0.0.1:5984"
+TESTDB      = 'tenacity-test'
+TEST_SERVER = CouchRest.new
+TEST_SERVER.default_database = TESTDB
+COUCH_DB = TEST_SERVER.database(TESTDB)
+

data/test/helpers/mongo_mapper_test_helper.rb

@@ -0,0 +1,3 @@
+require 'mongo_mapper'
+
+MongoMapper.database = 'tenacity_test'

data/test/orm_ext/activerecord_test.rb

@@ -0,0 +1,85 @@
+require 'test_helper'
+
+class ActiveRecordTest < Test::Unit::TestCase
+
+  context "The ActiveRecord extension" do
+    setup do
+      setup_fixtures
+    end
+
+    should "be able to find the object in the database" do
+      car = ActiveRecordCar.create
+      assert_equal car, ActiveRecordCar._t_find(car.id)
+    end
+
+    should "return nil if the specified object cannot be found in the database" do
+      assert_nil ActiveRecordCar._t_find(989782)
+    end
+
+    should "be able to find multiple objects in the database" do
+      car = ActiveRecordCar.create
+      car_2 = ActiveRecordCar.create
+      assert_set_equal [car, car_2], ActiveRecordCar._t_find_bulk([car.id, car_2.id, 989823])
+    end
+
+    should "return an empty array if none of the specified ids could be found in the database" do
+      assert_set_equal [], ActiveRecordNut._t_find_bulk([989823, 992111, 989771])
+    end
+
+    should "be able to find the first associate of an object" do
+      mongo_mapper_dashboard = MongoMapperDashboard.create
+      climate_control_unit = ActiveRecordClimateControlUnit.create(:mongo_mapper_dashboard_id => mongo_mapper_dashboard.id)
+      assert_equal climate_control_unit, ActiveRecordClimateControlUnit._t_find_first_by_associate(:mongo_mapper_dashboard_id, mongo_mapper_dashboard.id)
+    end
+
+    should "return nil if unable to find the first associate of an object" do
+      assert_nil ActiveRecordClimateControlUnit._t_find_first_by_associate(:mongo_mapper_dashboard_id, 'abc123')
+    end
+
+    should "be able to find all associates of an object" do
+      nut_1 = ActiveRecordNut.create(:mongo_mapper_wheel_id => 'abc123')
+      nut_2 = ActiveRecordNut.create(:mongo_mapper_wheel_id => 'abc123')
+      nut_3 = ActiveRecordNut.create(:mongo_mapper_wheel_id => 'xyz456')
+      assert_set_equal [nut_1, nut_2], ActiveRecordNut._t_find_all_by_associate(:mongo_mapper_wheel_id, 'abc123')
+    end
+
+    should "return an empty array able to find the associates of an object" do
+      assert_set_equal [], ActiveRecordNut._t_find_all_by_associate(:mongo_mapper_wheel_id, 'abc123')
+    end
+
+    should "be able to reload an object from the database" do
+      nut = ActiveRecordNut.create
+      nut.mongo_mapper_wheel_id = 'abc123'
+      nut.reload
+      assert_equal '', nut.mongo_mapper_wheel_id
+    end
+
+    should "be able to clear the associates of a given object" do
+      nut = ActiveRecordNut.create
+      nut._t_associate_many(:mongo_mapper_wheels, ['abc123', 'def456', 'ghi789'])
+      nut.save
+      nut._t_clear_associates(:mongo_mapper_wheels)
+      assert_set_equal [], nut._t_get_associate_ids(:mongo_mapper_wheels)
+    end
+
+    should "be able to associate many objects with the given object" do
+      nut = ActiveRecordNut.create
+      nut._t_associate_many(:mongo_mapper_wheels, ['abc123', 'def456', 'ghi789'])
+      rows = ActiveRecordNut.connection.execute("select mongo_mapper_wheel_id from active_record_nuts_mongo_mapper_wheels where active_record_nut_id = #{nut.id}")
+      ids = []; rows.each { |r| ids << r[0] }; ids
+      assert_set_equal ['abc123', 'def456', 'ghi789'], ids
+    end
+
+    should "be able to get the ids of the objects associated with the given object" do
+      nut = ActiveRecordNut.create
+      nut._t_associate_many(:mongo_mapper_wheels, ['abc123', 'def456', 'ghi789'])
+      assert_set_equal ['abc123', 'def456', 'ghi789'], nut._t_get_associate_ids(:mongo_mapper_wheels)
+    end
+
+    should "return an empty array if there are no objects associated with the given object ids" do
+      nut = ActiveRecordNut.create
+      assert_set_equal [], nut._t_get_associate_ids(:mongo_mapper_wheels)
+    end
+  end
+
+end