ratnikov-shoulda 2.0.6.3 → 2.9.0

data/test/matchers/have_index_matcher_test.rb

@@ -0,0 +1,74 @@
+require File.join(File.dirname(__FILE__), '..', 'test_helper')
+
+class HaveIndexMatcherTest < Test::Unit::TestCase # :nodoc:
+  
+  context "have_index" do
+    setup do
+      @matcher = have_index(:age)
+    end
+
+    should "accept an existing index" do
+      db_connection = create_table 'superheros' do |table|
+        table.integer :age
+      end
+      db_connection.add_index :superheros, :age
+      define_model_class 'Superhero'
+      assert_accepts @matcher, Superhero.new
+    end
+    
+    should "reject a nonexistent index" do
+      define_model :superhero
+      assert_rejects @matcher, Superhero.new
+    end
+  end
+  
+  context "have_index with unique option" do
+    setup do
+      @matcher = have_index(:ssn).unique(true)
+    end
+
+    should "accept an index of correct unique" do
+      db_connection = create_table 'superheros' do |table|
+        table.integer :ssn
+      end
+      db_connection.add_index :superheros, :ssn, :unique => true
+      define_model_class 'Superhero'
+      assert_accepts @matcher, Superhero.new
+    end
+    
+    should "reject an index of wrong unique" do
+      db_connection = create_table 'superheros' do |table|
+        table.integer :ssn
+      end
+      db_connection.add_index :superheros, :ssn, :unique => false
+      define_model_class 'Superhero'
+      assert_rejects @matcher, Superhero.new
+    end
+  end
+  
+  context "have_index on multiple columns" do
+    setup do
+      @matcher = have_index([:geocodable_type, :geocodable_id])
+    end
+
+    should "accept an existing index" do
+      db_connection = create_table 'geocodings' do |table|
+        table.integer :geocodable_id
+        table.string  :geocodable_type
+      end
+      db_connection.add_index :geocodings, [:geocodable_type, :geocodable_id]
+      define_model_class 'Geocoding'
+      assert_accepts @matcher, Geocoding.new
+    end
+    
+    should "reject a nonexistant index" do
+      db_connection = create_table 'geocodings' do |table|
+        table.integer :geocodable_id
+        table.string  :geocodable_type
+      end
+      define_model_class 'Geocoding'
+      assert_rejects @matcher, Geocoding.new
+    end
+  end
+  
+end

data/test/matchers/have_named_scope_matcher_test.rb

@@ -0,0 +1,65 @@
+require File.join(File.dirname(__FILE__), '..', 'test_helper')
+
+class HaveNamedScopeMatcherTest < Test::Unit::TestCase # :nodoc:
+
+  context "an attribute with a named scope" do
+    setup do
+      define_model :example, :attr => :string do
+        named_scope :xyz, lambda {|n|
+          { :order => :attr }
+        }
+      end
+      @model = Example.new
+    end
+
+    should "accept having a scope with the correct signature" do
+      assert_accepts have_named_scope("xyz(1)"), @model
+    end
+
+    should "accept having a scope with the correct signature and find options" do
+      assert_accepts have_named_scope("xyz(1)").finding(:order => :attr), @model
+    end
+    
+    should "reject having a scope with incorrect find options" do
+      assert_rejects have_named_scope("xyz(1)").
+                       finding(:order => 'attr DESC'),
+                     @model
+    end
+    
+    should "reject having a scope with another name" do
+      assert_rejects have_named_scope("abc(1)"), @model
+    end
+
+  end
+
+  should "evaluate the scope in the correct context" do
+    define_model :example, :attr => :string do
+      named_scope :xyz, lambda {|n|
+        { :order => n }
+      }
+    end
+    model = Example.new
+    @order = :attr
+    assert_accepts have_named_scope("xyz(@order)").
+                     finding(:order => @order).
+                     in_context(self),
+                   model
+  end
+
+  context "a method that does not return a scope" do
+    setup do
+      klass = Class.new
+      klass.class_eval do
+        def self.xyz
+          'xyz'
+        end
+      end
+      @model = klass.new
+    end
+
+    should "reject having a named scope with that name" do
+      assert_rejects have_named_scope(:xyz), @model
+    end
+  end
+
+end

data/test/matchers/have_readonly_attributes_matcher_test.rb

@@ -0,0 +1,29 @@
+require File.join(File.dirname(__FILE__), '..', 'test_helper')
+
+class HaveReadonlyAttributesMatcherTest < Test::Unit::TestCase # :nodoc:
+
+  context "an attribute that cannot be set after being saved" do
+    setup do
+      define_model :example, :attr => :string do
+        attr_readonly :attr
+      end
+      @model = Example.new
+    end
+
+    should "accept being read-only" do
+      assert_accepts have_readonly_attribute(:attr), @model
+    end
+  end
+
+  context "an attribute that can be set after being saved" do
+    setup do
+      define_model :example, :attr => :string
+      @model = Example.new
+    end
+
+    should "accept being read-only" do
+      assert_rejects have_readonly_attribute(:attr), @model
+    end
+  end
+
+end

data/test/matchers/validate_acceptance_of_matcher_test.rb

@@ -0,0 +1,44 @@
+require File.join(File.dirname(__FILE__), '..', 'test_helper')
+
+class ValidateAcceptanceOfMatcherTest < Test::Unit::TestCase # :nodoc:
+
+  context "an attribute which must be accepted" do
+    setup do
+      @model = define_model(:example) do
+        validates_acceptance_of :attr
+      end.new
+    end
+
+    should "require that attribute to be accepted" do
+      assert_accepts validate_acceptance_of(:attr), @model
+    end
+
+    should "not overwrite the default message with nil" do
+      assert_accepts validate_acceptance_of(:attr).with_message(nil), @model
+    end
+  end
+
+  context "an attribute that does not need to be accepted" do
+    setup do
+      @model = define_model(:example, :attr => :string).new
+    end
+
+    should "not require that attribute to be accepted" do
+      assert_rejects validate_acceptance_of(:attr), @model
+    end
+  end
+
+  context "an attribute which must be accepted with a custom message" do
+    setup do
+      @model = define_model(:example) do
+        validates_acceptance_of :attr, :message => 'custom'
+      end.new
+    end
+
+    should "require that attribute to be accepted with that message" do
+      assert_accepts validate_acceptance_of(:attr).with_message(/custom/),
+                     @model
+    end
+  end
+
+end

data/test/matchers/validate_numericality_of_matcher_test.rb

@@ -0,0 +1,52 @@
+require File.join(File.dirname(__FILE__), '..', 'test_helper')
+
+class ValidateNumericalityOfMatcherTest < Test::Unit::TestCase # :nodoc:
+
+  context "a numeric attribute" do
+    setup do
+      define_model :example, :attr => :string do
+        validates_numericality_of :attr
+      end
+      @model = Example.new
+    end
+
+    should "only allow numeric values for that attribute" do
+      assert_accepts validate_numericality_of(:attr), @model
+    end
+
+    should "not override the default message with a blank" do
+      assert_accepts validate_numericality_of(:attr).with_message(nil),
+                     @model
+    end
+  end
+
+  context "a numeric attribute with a custom validation message" do
+    setup do
+      define_model :example, :attr => :string do
+        validates_numericality_of :attr, :message => 'custom'
+      end
+      @model = Example.new
+    end
+
+    should "only allow numeric values for that attribute with that message" do
+      assert_accepts validate_numericality_of(:attr).
+                       with_message(/custom/),
+                     @model
+    end
+
+    should "not allow numeric values for that attribute with another message" do
+      assert_rejects validate_numericality_of(:attr), @model
+    end
+  end
+
+  context "a non-numeric attribute" do
+    setup do
+      @model = define_model(:example, :attr => :string).new
+    end
+
+    should "not only allow numeric values for that attribute" do
+      assert_rejects validate_numericality_of(:attr), @model
+    end
+  end
+
+end

data/test/matchers/validate_presence_of_matcher_test.rb

@@ -0,0 +1,86 @@
+require File.join(File.dirname(__FILE__), '..', 'test_helper')
+
+class ValidatePresenceOfMatcherTest < Test::Unit::TestCase # :nodoc:
+
+  context "a required attribute" do
+    setup do
+      define_model :example, :attr => :string do
+        validates_presence_of :attr
+      end
+      @model = Example.new
+    end
+
+    should "require a value" do
+      assert_accepts validate_presence_of(:attr), @model
+    end
+
+    should "not override the default message with a blank" do
+      assert_accepts validate_presence_of(:attr).with_message(nil), @model
+    end
+  end
+
+  context "an optional attribute" do
+    setup do
+      @model = define_model(:example, :attr => :string).new
+    end
+
+    should "not require a value" do
+      assert_rejects validate_presence_of(:attr), @model
+    end
+  end
+
+  context "a required has_many association" do
+    setup do
+      define_model :child
+      @model = define_model :parent do
+        has_many :children
+        validates_presence_of :children
+      end.new
+    end
+
+    should "require the attribute to be set" do
+      assert_accepts validate_presence_of(:children), @model
+    end
+  end
+
+  context "an optional has_many association" do
+    setup do
+      define_model :child
+      @model = define_model :parent do
+        has_many :children
+      end.new
+    end
+
+    should "not require the attribute to be set" do
+      assert_rejects validate_presence_of(:children), @model
+    end
+  end
+
+  context "a required has_and_belongs_to_many association" do
+    setup do
+      define_model :child
+      @model = define_model :parent do
+        has_and_belongs_to_many :children
+        validates_presence_of :children
+      end.new
+    end
+
+    should "require the attribute to be set" do
+      assert_accepts validate_presence_of(:children), @model
+    end
+  end
+
+  context "an optional has_and_belongs_to_many association" do
+    setup do
+      define_model :child
+      @model = define_model :parent do
+        has_and_belongs_to_many :children
+      end.new
+    end
+
+    should "not require the attribute to be set" do
+      assert_rejects validate_presence_of(:children), @model
+    end
+  end
+
+end

data/test/matchers/validate_uniqueness_of_matcher_test.rb

@@ -0,0 +1,141 @@
+require File.join(File.dirname(__FILE__), '..', 'test_helper')
+
+class ValidateUniquenessOfMatcherTest < Test::Unit::TestCase # :nodoc:
+
+  context "a unique attribute" do
+    setup do
+      @model = define_model(:example, :attr  => :string,
+                                           :other => :integer) do
+        validates_uniqueness_of :attr
+      end.new
+    end
+
+    context "with an existing value" do
+      setup do
+        @existing = Example.create!(:attr => 'value', :other => 1)
+      end
+
+      should "require a unique value for that attribute" do
+        assert_accepts validate_uniqueness_of(:attr), @model
+      end
+
+      should "pass when the subject is an existing record" do
+        assert_accepts validate_uniqueness_of(:attr), @existing
+      end
+
+      should "fail when a scope is specified" do
+        assert_rejects validate_uniqueness_of(:attr).scoped_to(:other), @model
+      end
+    end
+
+    context "without an existing value" do
+      setup do
+        assert_nil Example.find(:first)
+      end
+
+      should "fail to require a unique value" do
+        assert_rejects validate_uniqueness_of(:attr), @model
+      end
+    end
+  end
+
+  context "a unique attribute with a custom error and an existing value" do
+    setup do
+      @model = define_model(:example, :attr => :string) do
+        validates_uniqueness_of :attr, :message => 'Bad value'
+      end.new
+      Example.create!
+    end
+
+    should "fail when checking the default message" do
+      assert_rejects validate_uniqueness_of(:attr), @model
+    end
+
+    should "fail when checking a message that doesn't match" do
+      assert_rejects validate_uniqueness_of(:attr).with_message(/abc/i), @model
+    end
+
+    should "pass when checking a message that matches" do
+      assert_accepts validate_uniqueness_of(:attr).with_message(/bad/i), @model
+    end
+  end
+
+  context "a scoped unique attribute with an existing value" do
+    setup do
+      @model = define_model(:example, :attr   => :string,
+                                           :scope1 => :integer,
+                                           :scope2 => :integer) do
+        validates_uniqueness_of :attr, :scope => [:scope1, :scope2]
+      end.new
+      @existing = Example.create!(:attr => 'value', :scope1 => 1, :scope2 => 2)
+    end
+
+    should "pass when the correct scope is specified" do
+      assert_accepts validate_uniqueness_of(:attr).scoped_to(:scope1, :scope2),
+        @model
+    end
+
+    should "pass when the subject is an existing record" do
+      assert_accepts validate_uniqueness_of(:attr).scoped_to(:scope1, :scope2),
+        @existing
+    end
+
+    should "fail when a different scope is specified" do
+      assert_rejects validate_uniqueness_of(:attr).scoped_to(:scope1), @model
+    end
+
+    should "fail when no scope is specified" do
+      assert_rejects validate_uniqueness_of(:attr), @model
+    end
+
+    should "fail when a non-existent attribute is specified as a scope" do
+      assert_rejects validate_uniqueness_of(:attr).scoped_to(:fake), @model
+    end
+  end
+
+  context "a non-unique attribute with an existing value" do
+    setup do
+      @model = define_model(:example, :attr => :string).new
+      Example.create!(:attr => 'value')
+    end
+
+    should "not require a unique value for that attribute" do
+      assert_rejects validate_uniqueness_of(:attr), @model
+    end
+  end
+
+  context "a case sensitive unique attribute with an existing value" do
+    setup do
+      @model = define_model(:example, :attr  => :string) do
+        validates_uniqueness_of :attr, :case_sensitive => true
+      end.new
+      Example.create!(:attr => 'value')
+    end
+
+    should "not require a unique, case-insensitive value for that attribute" do
+      assert_rejects validate_uniqueness_of(:attr).case_insensitive, @model
+    end
+
+    should "require a unique, case-sensitive value for that attribute" do
+      assert_accepts validate_uniqueness_of(:attr), @model
+    end
+  end
+
+  context "a case sensitive unique integer attribute with an existing value" do
+    setup do
+      @model = define_model(:example, :attr  => :integer) do
+        validates_uniqueness_of :attr, :case_sensitive => true
+      end.new
+      Example.create!(:attr => 'value')
+    end
+
+    should "require a unique, case-insensitive value for that attribute" do
+      assert_accepts validate_uniqueness_of(:attr).case_insensitive, @model
+    end
+
+    should "require a unique, case-sensitive value for that attribute" do
+      assert_accepts validate_uniqueness_of(:attr), @model
+    end
+  end
+
+end

data/test/model_builder.rb

@@ -0,0 +1,61 @@
+class Test::Unit::TestCase  
+  def create_table(table_name, &block)
+    connection = ActiveRecord::Base.connection
+    
+    begin
+      connection.execute("DROP TABLE IF EXISTS #{table_name}")
+      connection.create_table(table_name, &block)
+      @created_tables ||= []
+      @created_tables << table_name
+      connection
+    rescue Exception => e
+      connection.execute("DROP TABLE IF EXISTS #{table_name}")
+      raise e
+    end
+  end
+
+  def define_model_class(class_name, &block)
+    klass = Class.new(ActiveRecord::Base)
+    Object.const_set(class_name, klass)
+
+    klass.class_eval(&block) if block_given?
+
+    @defined_constants ||= []
+    @defined_constants << class_name
+
+    klass
+  end
+
+  def define_model(name, columns = {}, &block)
+    class_name = name.to_s.pluralize.classify
+    table_name = class_name.tableize
+
+    create_table(table_name) do |table|
+      columns.each do |name, type|
+        table.column name, type
+      end
+    end
+
+    define_model_class(class_name, &block)
+  end
+
+  def teardown_with_models
+    if @defined_constants
+      @defined_constants.each do |class_name| 
+        Object.send(:remove_const, class_name)
+      end
+    end
+
+    if @created_tables
+      @created_tables.each do |table_name|
+        ActiveRecord::Base.
+          connection.
+          execute("DROP TABLE IF EXISTS #{table_name}")
+      end
+    end
+
+    teardown_without_models
+  end
+  alias_method :teardown_without_models, :teardown
+  alias_method :teardown, :teardown_with_models
+end

data/test/other/autoload_macro_test.rb

@@ -0,0 +1,18 @@
+require File.join(File.dirname(__FILE__), '..', 'test_helper')
+
+class AutoloadMacroTest < Test::Unit::TestCase # :nodoc:
+  context "The macro auto-loader" do
+    should "load macros from the plugins" do
+      assert self.class.respond_to?('plugin_macro')
+    end
+
+    should "load macros from the gems" do
+      assert self.class.respond_to?('gem_macro')
+    end
+
+    should "load custom macros from ROOT/test/shoulda_macros" do
+      assert self.class.respond_to?('custom_macro')
+    end
+  end
+end
+

data/test/other/helpers_test.rb

@@ -180,4 +180,62 @@ class HelpersTest < Test::Unit::TestCase # :nodoc:
       end
     end
   end
+
+  context "a matching matcher" do
+    setup do
+      @matcher = stub('matcher', :matches?                 => true,
+                                 :failure_message          => 'bad failure message',
+                                 :negative_failure_message => 'big time failure')
+    end
+
+    should "pass when given to assert_accepts" do
+      assert_accepts @matcher, 'target'
+    end
+
+    context "when given to assert_rejects" do
+      setup do
+        begin
+          assert_rejects @matcher, 'target'
+        rescue Test::Unit::AssertionFailedError => @error
+        end
+      end
+
+      should "fail" do
+        assert_not_nil @error
+      end
+
+      should "use the error message from the matcher" do
+        assert_equal 'big time failure', @error.message
+      end
+    end
+  end
+
+  context "a non-matching matcher" do
+    setup do
+      @matcher = stub('matcher', :matches?                 => false,
+                                 :failure_message          => 'big time failure',
+                                 :negative_failure_message => 'bad failure message')
+    end
+
+    should "pass when given to assert_rejects" do
+      assert_rejects @matcher, 'target'
+    end
+
+    context "when given to assert_accepts" do
+      setup do
+        begin
+          assert_accepts @matcher, 'target'
+        rescue Test::Unit::AssertionFailedError => @error
+        end
+      end
+
+      should "fail" do
+        assert_not_nil @error
+      end
+
+      should "use the error message from the matcher" do
+        assert_equal 'big time failure', @error.message
+      end
+    end
+  end
 end

data/test/rails_root/config/database.yml

@@ -1,4 +1,4 @@
-sqlite3:
+test:
   :adapter: sqlite3
   # :dbfile: db/sqlite3.db
   :dbfile: ":memory:"

data/test/rails_root/test/shoulda_macros/custom_macro.rb

@@ -0,0 +1,6 @@
+module CustomMacro
+  def custom_macro
+  end
+end
+Test::Unit::TestCase.extend(CustomMacro)
+

data/test/rails_root/vendor/gems/gem_with_macro-0.0.1/shoulda_macros/gem_macro.rb

@@ -0,0 +1,6 @@
+module GemMacro
+  def gem_macro
+  end
+end
+Test::Unit::TestCase.extend(GemMacro)
+

data/test/rails_root/vendor/plugins/plugin_with_macro/shoulda_macros/plugin_macro.rb

@@ -0,0 +1,6 @@
+module PluginMacro
+  def plugin_macro
+  end
+end
+Test::Unit::TestCase.extend(PluginMacro)
+

data/test/test_helper.rb

@@ -1,6 +1,7 @@
 require 'fileutils'
+
 # Load the environment
-ENV['RAILS_ENV'] = 'sqlite3'
+ENV['RAILS_ENV'] = 'test'
 
 rails_root = File.dirname(__FILE__) + '/rails_root'
 
@@ -31,3 +32,4 @@ class Test::Unit::TestCase #:nodoc:
 end
 
 require 'test/fail_macros'
+require 'test/model_builder'

data/test/unit/address_test.rb

@@ -4,7 +4,7 @@ class AddressTest < Test::Unit::TestCase
   fixtures :all
 
   should_belong_to :addressable
-  should_require_unique_attributes :title, :scoped_to => [:addressable_id, :addressable_type]
+  should_validate_uniqueness_of :title, :scoped_to => [:addressable_id, :addressable_type]
   should_ensure_length_at_least :zip, 5
   should_only_allow_numeric_values_for :zip
 end