0
@@ -325,7 +325,33 @@ module ThoughtBot # :nodoc:
0
             assert reflection, "#{klass.name} does not have any relationship to #{association}"
0
             assert_equal :belongs_to, reflection.macro
0
             fk = reflection.options[:foreign_key] || "#{association}_id"
0
-            assert klass.column_names.include?(fk), "#{klass.name} does not have a #{fk} foreign key."
0
+            assert klass.column_names.include?(fk.to_s), "#{klass.name} does not have a #{fk} foreign key."
0
+          end
0
+        end
0
+      end
0
+      
0
+      # Ensure that the given class methods are defined on the model.
0
+      #
0
+      #   should_have_class_methods :find, :destroy
0
+      def should_have_class_methods(*methods)
0
+        get_options!(methods)
0
+        klass = model_class
0
+        methods.each do |method|
0
+          should "respond to class method #{method}" do
0
+            assert_respond_to klass, method, "#{klass.name} does not have class method #{method}"
0
+          end
0
+        end
0
+      end
0
+
0
+      # Ensure that instance methods exist.
0
+      #
0
+      #   should_have_instance_methods :instance_method
0
+      def should_have_instance_methods(*methods)
0
+        get_options!(methods)
0
+        klass = model_class
0
+        methods.each do |method|
0
+          should "respond to instance method #{method}" do
0
+            assert_respond_to klass.new, method, "#{klass.name} does not have instance method #{method}"
0
           end
0
         end
0
       end

0
@@ -1,5 +1,6 @@
0
 class Post < ActiveRecord::Base
0
   belongs_to :user
0
+  belongs_to :owner, :foreign_key => :user_id, :class_name => 'User'
0
   has_many :taggings
0
   has_many :tags, :through => :taggings
0
   

0
@@ -4,6 +4,7 @@ class PostTest < Test::Unit::TestCase
0
   load_all_fixtures
0
 
0
   should_belong_to :user
0
+  should_belong_to :owner
0
   should_have_many :tags, :through => :taggings
0
   
0
   should_require_unique_attributes :title

0
@@ -10,4 +10,6 @@ class UserTest < Test::Unit::TestCase
0
   should_ensure_length_in_range :email, 1..100
0
   should_ensure_value_in_range :age, 1..100
0
   should_protect_attributes :password
0
+  should_have_class_methods :find, :destroy
0
+  should_have_instance_methods :email, :age
0
 end