is_sluggable_test.rb in pseudocephalopod-0.2.0

- old
+ new
@@ -1,89 +1,147 @@
 require 'helper'
 require 'digest/md5'
 
 class IsSluggableTest < Test::Unit::TestCase
-  with_tables :slugs, :users, :unslugged_users do
+  with_tables :slugs, :users do
     
-    should 'correctly sluggify a value' do
-      user = User.create(:name => "Bob")
-      assert_equal "bob", user.to_param
-      assert_equal "bob", user.cached_slug
+    class StringWrapper < String
+      def to_url; "my-demo-slug"; end
     end
     
-    should 'generate a uuid in place of a slug' do
-      user = User.create(:name => '')
-      assert user.cached_slug.present?
+    context 'with the default slug options' do
+      
+      setup { setup_slugs! }
+      
+      should 'correctly sluggify a value' do
+        user = User.create(:name => "Bob")
+        assert_equal "bob", user.to_param
+        assert_equal "bob", user.cached_slug
+      end
+
+      should 'generate a uuid in place of a slug' do
+        user = User.create(:name => '')
+        assert user.cached_slug.present?
+      end
+
+      should 'return need to generate a slug when the cahced slug is blank' do
+        user = User.new(:name => "Ninja Stuff")
+        assert user.cached_slug.blank?
+        assert user.should_generate_slug?
+        user.save
+        assert user.cached_slug.present?
+        assert !user.should_generate_slug?
+        user.name = 'Awesome'
+        assert user.should_generate_slug?
+      end
+      
+      should "let you find a record by it's id as needed" do
+        user = User.create :name => "Bob"
+        assert_equal user, User.find_using_slug(user.id)
+        assert_equal user, User.find_using_slug(user.id.to_i)
+      end
+      
+      should 'return nil for unfound slugs by default' do
+        assert_nil User.find_using_slug("awesome")
+      end
+      
+      should 'let you find slugs and raise an exception' do
+        assert_raises(ActiveRecord::RecordNotFound) do
+          User.find_using_slug!("awesome")
+        end
+      end
+
+      should 'default to generate a uuid' do
+        user = User.create :name => ""
+        assert_match /\A[a-zA-Z0-9]{32}\Z/, user.cached_slug.gsub("-", "")
+        user = User.create
+        assert_match /\A[a-zA-Z0-9]{32}\Z/, user.cached_slug.gsub("-", "")
+      end
+
+      should 'automatically append a sequence to the end of conflicting slugs' do
+        u1 = User.create :name => "ninjas Are awesome"
+        u2 = User.create :name => "Ninjas are awesome"
+        assert_equal "ninjas-are-awesome",    u1.to_slug
+        assert_equal "ninjas-are-awesome--1", u2.to_slug
+      end
+
+      should 'let you find out if there is a better way of finding a slug' do
+        user = User.create :name => "Bob"
+        user.update_attributes! :name => "Ralph"
+        assert !User.find_using_slug("ralph").has_better_slug?
+        assert User.find_using_slug("bob").has_better_slug?
+        assert User.find_using_slug(user.id).has_better_slug?
+      end
+      
     end
     
-    should 'return need to generate a slug when the cahced slug is blank' do
-      user = User.new(:name => "Ninja Stuff")
-      assert user.cached_slug.blank?
-      assert user.should_generate_slug?
-      user.save
-      assert user.cached_slug.present?
-      assert !user.should_generate_slug?
-      user.name = 'Awesome'
-      assert user.should_generate_slug?
+    context 'with slug syncing disabled' do
+      setup { setup_slugs! :sync => false }
+      
+      should 'let you disable syncing a slug' do
+        user = User.create(:name => "Ninja User")
+        assert !user.should_generate_slug?
+        user.name = "Another User Name"
+        assert !user.should_generate_slug?
+      end
+      
+      should 'let you force slug generation' do
+        user = User.create(:name => "Ninja User")
+        assert_equal "ninja-user", user.to_slug
+        user.update_attributes :name => "Test User"
+        assert_equal "ninja-user", user.to_slug
+        user.generate_slug!
+        assert_equal "test-user", user.to_slug
+        user.reload
+        assert_equal "test-user", user.to_slug
+      end
+      
+      should 'let you force the update of all slugs' do
+        user_a = User.create(:name => "User A")
+        user_b = User.create(:name => "User B")
+        user_c = User.create(:name => "User C")
+        user_a.update_attributes :name => "User A-1"
+        user_b.update_attributes :name => "User B-1"
+        user_c.update_attributes :name => "User C-1"
+        assert_equal "user-a", user_a.to_slug
+        assert_equal "user-b", user_b.to_slug
+        assert_equal "user-c", user_c.to_slug
+        User.update_all_slugs!
+        user_a.reload
+        user_b.reload
+        user_c.reload
+        assert_equal "user-a-1", user_a.to_slug
+        assert_equal "user-b-1", user_b.to_slug
+        assert_equal "user-c-1", user_c.to_slug
+      end
+      
     end
     
-    should 'let you disable syncing a slug' do
-      UnsluggedUser.is_sluggable :name, :sync => false
-      user = UnsluggedUser.create(:name => "Ninja User")
-      assert !user.should_generate_slug?
-      user.name = "Another User Name"
-      assert !user.should_generate_slug?
+    context 'setting slug convertors' do
+      
+      should 'let you specify a symbol' do
+        setup_slugs! :convertor => :upcase
+        assert_equal "AWESOME USER", User.create(:name => "Awesome User").to_slug
+      end
+      
+      should 'let you specify a proc' do
+        setup_slugs! :convertor => proc { |r| r.reverse.upcase }
+        assert_equal "RESU EMOSEWA", User.create(:name => "Awesome User").to_slug
+      end
+      
+      should 'call to_url if available by default' do
+        setup_slugs!
+        original_value = StringWrapper.new("Awesome User")
+        assert_equal "my-demo-slug", User.create(:name => original_value).to_slug
+      end
+      
     end
     
-    should 'by default record slug history' do
-      user = User.create :name => "Bob"
-      assert_equal [], user.previous_slugs
-      user.update_attributes! :name => "Sal"
-      user.update_attributes! :name => "Red"
-      user.update_attributes! :name => "Jim"
-      assert_equal ["red", "sal", "bob"], user.previous_slugs
-      assert_equal user, User.find_using_slug("red")
-      assert_equal user, User.find_using_slug("sal")
-      assert_equal user, User.find_using_slug("bob")
-      assert_equal user, User.find_using_slug("jim")
-    end
-    
-    should 'let you disable recording of slug history' do
-      UnsluggedUser.is_sluggable :name, :history => false
-      user = UnsluggedUser.create(:name => "Bob")
-      assert !user.respond_to?(:previous_slugs)
-      user.update_attributes! :name => "Red"
-      assert_equal user,     UnsluggedUser.find_using_slug("red")
-      assert_not_equal user, UnsluggedUser.find_using_slug("bob")
-      assert UnsluggedUser.find_using_slug("bob").blank?
-    end
-    
-    should "let you find a record by it's id as needed" do
-      user = User.create :name => "Bob"
-      assert_equal user, User.find_using_slug(user.id)
-      assert_equal user, User.find_using_slug(user.id.to_i)
-    end
-    
-    should 'default to generate a uuid' do
-      user = User.create :name => ""
-      assert_match /\A[a-zA-Z0-9]{32}\Z/, user.cached_slug.gsub("-", "")
-      user = User.create
-      assert_match /\A[a-zA-Z0-9]{32}\Z/, user.cached_slug.gsub("-", "")
-    end
-    
-    should 'automatically append a sequence to the end of conflicting slugs' do
-      u1 = User.create :name => "ninjas Are awesome"
-      u2 = User.create :name => "Ninjas are awesome"
-      assert_equal "ninjas-are-awesome", u1.to_slug
-      assert_equal "ninjas-are-awesome--1", u2.to_slug
-    end
-    
-    should 'let you find out if there is a better way of finding a slug' do
-      user = User.create :name => "Bob"
-      user.update_attributes! :name => "Ralph"
-      assert !User.find_using_slug("ralph").has_better_slug?
-      assert User.find_using_slug("bob").has_better_slug?
-      assert User.find_using_slug(user.id).has_better_slug?
+    should 'set the cached slug to nil if uuid is nil and the source value is blank' do
+      setup_slugs! :uuid => nil
+      record = User.create(:name => "")
+      assert_nil record.cached_slug
+      assert_equal record.id.to_s, record.to_slug
     end
     
   end
 end
\ No newline at end of file