adva_cms 0.0.1

data/test/unit/lib/menu_test.rb

@@ -0,0 +1,119 @@
+# # require File.expand_path(File.dirname(__FILE__) + '/../../test_helper')
+#
+# require 'rubygems'
+# require 'action_controller'
+# require 'action_view'
+# require 'active_support'
+# require 'action_view/test_case'
+#
+# $:.unshift File.expand_path(File.dirname(__FILE__) + '/../../../lib')
+# require 'menu'
+#
+# class MenuTest < ActionView::TestCase
+#   def setup
+#     super
+#     @old_instances = Menu.instances
+#     Menu.instances.clear
+#     @view = ActionView::Base.new(File.expand_path(File.dirname(__FILE__) + '/../../fixtures/templates/menu'))
+#     @view.request = ActionController::TestRequest.new
+#
+#     @menu = Menu.instance('foo')
+#     @item = Menu::Item.new(:foo)
+#     @collection = [Menu::Item.new(:bar), Menu::Item.new(:baz)]
+#   end
+#
+#   def teardown
+#     super
+#     Menu.instances = @old_instances
+#   end
+#
+#   test "Menu.instance creates a new instance and adds the given definition block" do
+#     Menu.instance('foo') { }
+#     assert_equal 1, Menu.instances.size
+#     assert_equal 1, Menu.instances['foo'].definitions.size
+#   end
+#
+#   test "apply_definitions evaluates registered definition blocks" do
+#     menu = Menu.instance('foo') do
+#       item 'bar', :foo => :bar
+#       menu 'baz'
+#     end
+#
+#     menu.send :apply_definitions, @view
+#     assert menu.items.first.is_a?(Menu::Item)
+#     assert menu.items.second.is_a?(Menu::Base)
+#   end
+#
+#   test "definition blocks can call methods on the passed view" do
+#     menu = Menu.instance('foo') do
+#       item 'bar', :url => url_for('that urly')
+#     end
+#     menu.send :apply_definitions, @view
+#
+#     assert_equal 'that urly', menu.items.first.options[:url]
+#   end
+#
+#   test "renders expected results" do
+#     menu = Menu.instance('foo') do
+#       item 'bar', :url => '#'
+#       baz = menu 'baz', :caption => 'baz'
+#       baz.item 'buz', :url => '#'
+#     end
+#     expected = '<ul class="menu">' +
+#                '<li><a href="#">bar</a></li>' +
+#                %(<li>\n\t\t\tbaz\n\t\t\t<ul class="menu"><li><a href="#">buz</a></li></ul></li>) +
+#                '</ul>'
+#     assert_equal expected, menu.render(@view).gsub(/>\s+</, '><')
+#   end
+#
+#   # insert_at_position
+#
+#   test "insert_at_position with :before => :first prepends the object to the array" do
+#     @menu.send(:insert_at_position, @item, @collection, :_first, nil)
+#     assert_equal [:foo, :bar, :baz], @collection.map(&:id)
+#   end
+#
+#   test "insert_at_position with :after => :last appends the object to the array" do
+#     @menu.send(:insert_at_position, @item, @collection, nil, :_last)
+#     assert_equal [:bar, :baz, :foo], @collection.map(&:id)
+#   end
+#
+#   test "insert_at_position with :before => :baz inserts the object before the item :baz (if found)" do
+#     @menu.send(:insert_at_position, @item, @collection, :baz, nil)
+#     assert_equal [:bar, :foo, :baz], @collection.map(&:id)
+#   end
+#
+#   test "insert_at_position with :after => :bar inserts the object after the item :bar (if found)" do
+#     @menu.send(:insert_at_position, @item, @collection, nil, :bar)
+#     assert_equal [:bar, :foo, :baz], @collection.map(&:id)
+#   end
+#
+#   test "insert_at_position with :before => :buh appends the object if :buh can not be found" do
+#     @menu.send(:insert_at_position, @item, @collection, :buh, nil)
+#     assert_equal [:bar, :baz, :foo], @collection.map(&:id)
+#   end
+#
+#   # populate
+#
+#   test "populates menu from given populator" do
+#     menu = Menu.instance('foo') do
+#       menu 'bar', :populate => lambda { [item(:baz), item(:buz)] }
+#     end
+#     menu.send :apply_definitions, @view
+#     assert menu.items.first.is_a?(Menu::Base)
+#     assert_equal [Menu::Item], menu.items.first.items.map { |item| item.class }.uniq
+#   end
+#
+#   # highlight
+#
+#   test "highlights something" do
+#     menu = Menu.instance('foo') do
+#       baz = menu 'bar', :url => '/bar'
+#       baz.item 'baz', :url => '/a/bar/baz'
+#     end
+#     @view.request.path = '/a/bar/baz'
+#     assert_match %r(<li class="active"><a href="/a/bar/baz">baz</a>), menu.render(@view).gsub(/[\t\n]+/, '')
+#   end
+#
+#
+# end

data/test/unit/lib/rails_ext/content_for_assignments_test.rb

@@ -0,0 +1,75 @@
+require File.expand_path(File.dirname(__FILE__) + '/../../../test_helper')
+
+class ContentForTestController < ActionController::Base
+  content_for(:sidebar, :foo, :except => { :action => :show }) { 'foo' }
+
+  def index
+    render :inline => "<%= yield :sidebar %>"
+  end
+end
+
+ActionController::Routing::Routes.draw do |map|
+  map.connect 'content_for_test/:action/:id', :controller => 'content_for_test'
+end
+
+# class ContentForAssignmentsTest < ActionController::TestCase
+#   tests ContentForTestController
+# 
+#   test "it renders to content_for symbol" do
+#     @controller.process(@request, @response)
+#     @response.body.should == 'foo'
+#   end
+# end
+
+class ContentForAssignmentsConditionsTest < ActionController::TestCase
+  tests ContentForTestController
+
+  def setup
+    super
+    @controller.action_name = 'index'
+    @view = Object.new
+    stub(@view).controller.returns(@controller)
+    stub(@view).template_format.returns(:html)
+  end
+
+  # test "registers content_for options" do
+  #   content = @controller.registered_contents[:foo]
+  #   content.options[:except][:action].should == :show
+  #   content.content.should be_kind_of(Proc)
+  # end
+
+  # test "applies when no options were given" do
+  #   content = RegisteredContent.new :foo, :bar
+  #   content.applies?(@view).should be_true
+  # end
+
+  test "applies when controller was included and no action excluded" do
+    content = RegisteredContent.new :foo, :bar, :only => { :controller => 'content_for_test' }
+    content.applies?(@view).should be_true
+  end
+  
+  # test "applies when action was included and no controller excluded" do
+  #   content = RegisteredContent.new :foo, :bar, :only => { :action => 'index' }
+  #   content.applies?(@view).should be_true
+  # end
+  # 
+  # test "does not apply when a different controller was included" do
+  #   content = RegisteredContent.new :foo, :bar, :only => { :controller => 'something_else' }
+  #   content.applies?(@view).should be_false
+  # end
+  # 
+  # test "does not apply when a different action was included" do
+  #   content = RegisteredContent.new :foo, :bar, :only => { :action => 'something_else' }
+  #   content.applies?(@view).should be_false
+  # end
+  # 
+  # test "does not apply when controller was excluded" do
+  #   content = RegisteredContent.new :foo, :bar, :except => { :controller => 'content_for_test' }
+  #   content.applies?(@view).should be_false
+  # end
+  # 
+  # test "does not apply when action was excluded" do
+  #   content = RegisteredContent.new :foo, :bar, :except => { :action => 'index' }
+  #   content.applies?(@view).should be_false
+  # end
+end

data/test/unit/lib/rails_ext/plugin_configuration_test.rb

@@ -0,0 +1,40 @@
+require File.expand_path(File.dirname(__FILE__) + '/../../../test_helper')
+
+class PluginConfigurationTest < ActiveSupport::TestCase
+  def setup
+    super
+    @site = Site.first or flunk('could not find Site')
+    @plugin = Rails.plugins[:test_plugin].clone
+    @plugin.owner = @site
+
+    Rails::Plugin::Config.delete_all
+  end
+
+  test 'registers the test_plugin' do
+    @plugin.should be_instance_of(Rails::Plugin)
+  end
+
+  test 'can not access config when owner has not been set' do
+    @plugin.owner = nil
+    lambda { @plugin.config }.should raise_error
+  end
+
+  test 'instantiates a new configuration when first accessed' do
+    config = @plugin.send(:config)
+    config.should be_instance_of(Rails::Plugin::Config)
+    config.new_record?.should be_true
+  end
+
+  test 'looks up existing configuration from the database' do
+    @plugin.save!
+    @plugin.instance_variable_set(:@config, nil)
+    config = @plugin.send(:config)
+    config.should be_instance_of(Rails::Plugin::Config)
+    config.new_record?.should be_false
+  end
+
+  test 'returns default option values by default' do
+    @plugin.string.should == 'default string'
+    @plugin.text.should == 'default text'
+  end
+end

data/test/unit/lib/rails_ext/sticky_changes_test.rb

@@ -0,0 +1,33 @@
+require File.expand_path(File.dirname(__FILE__) + '/../../../test_helper')
+
+class ActiveRecordStickyChangesTest < ActiveSupport::TestCase
+  def setup
+    super
+    @site = Site.first
+  end
+
+  test "does not break dirty tracking" do
+    original_title = @site.title
+    @site.title = 'changed title'
+    @site.title_was.should == original_title
+  end
+
+  test "#state_changes returns [:created] when original state was new record" do
+    @site = Site.create! :host => '2.example.com', :title => 'title', :name => 'name'
+    @site.state_changes.should == [:created]
+  end
+
+  test "#state_changes returns [:updated] when original state was changed" do
+    @site.update_attributes! :title => 'updated title'
+    @site.state_changes.should == [:updated]
+  end
+
+  test "#state_changes returns [:deleted] when original state was frozen" do
+    @site.destroy
+    @site.state_changes.should == [:deleted]
+  end
+
+  test "#state_changes returns an empty array if no state changes are detected" do
+    @site.state_changes.should == []
+  end
+end

data/test/unit/lib/registry_test.rb

@@ -0,0 +1,91 @@
+require File.expand_path(File.dirname(__FILE__) + '/../../test_helper')
+
+$:.unshift File.expand_path(File.dirname(__FILE__) + '/../../../lib')
+require 'registry'
+
+class Registry
+  @@old_instance = nil
+    
+  class << self
+    def backup!
+      @@old_instance = defined?(@@instance) ? @@instance.dup : Registry.new
+    end
+
+    def restore!
+      @@instance = @@old_instance
+    end
+  end
+end
+
+class RegistryTest < ActiveSupport::TestCase
+  def setup
+    super
+    Registry.backup!
+    @registry = Registry.instance
+  end
+
+  def teardown
+    super
+    Registry.restore!
+  end
+  
+  # set
+
+  test "#set sets stuff" do
+    @registry.clear
+    @registry.set :foo, :bar
+    @registry.should == {:foo => :bar}
+  end
+
+  test "#set sets stuff to nested keys" do
+    @registry.clear
+    @registry.set :foo, :bar, :baz, :buz
+    @registry.should == {:foo => {:bar => {:baz => :buz}}}
+  end
+
+  test "#set recursively turns passed hashes into registries" do
+    @registry.clear
+    @registry.set :foo, {:bar => {:baz => :buz}}
+    @registry.get(:foo).get(:bar).should be_instance_of(Registry)
+  end
+  
+  # get
+
+  test "#get gets stuff from nested keys" do
+    @registry.set :foo, :bar, :baz, :buz
+    @registry.get(:foo, :bar).should == {:baz => :buz}
+  end
+
+  test "#get returns nil if an intermediary key is missing" do
+    @registry.set :foo, :bar, :baz, :buz
+    @registry.get(:foo, :missing).should be_nil
+  end
+  
+  # alias
+  
+  test "#[] and #[]= should work" do
+    @registry[:test] = "test-alias"
+    @registry[:test].should == "test-alias"
+  end
+  
+  test "#[]= should supports nested keys" do
+    @registry[:test1][:test2] = "key"
+    @registry[:test1].should == {:test2 => "key"}
+    @registry[:test1][:test2].should == "key"
+  end
+  
+  # clear
+
+  test "#clear clears registry" do
+    @registry.set :foo, :bar, :baz, :buz
+    @registry.get(:foo, :bar).should == {:baz => :buz}
+    Registry.clear
+    @registry.get(:foo, :bar).should be_nil
+    @registry.should be_empty
+  end
+
+  test "#clear returns nil if an intermediary key is missing" do
+    @registry.set :foo, :bar, :baz, :buz
+    @registry.get(:foo, :missing).should be_nil
+  end
+end

data/test/unit/lib/routing_filter/routing_filter_categories_spec.rb

@@ -0,0 +1,63 @@
+# require File.dirname(__FILE__) + '/../spec_helper'
+# 
+# describe "Routing Filter::Categories" do
+#   include SpecRoutingHelper
+#   #include SpecMocks
+# 
+#   describe "#before_recognize_path" do
+#     before :each do
+#       @category = mock_category
+#       @categories_proxy = mock 'categories_proxy', :find_by_path => @category
+#       @section = mock_section(:types => ['Page'], :categories => @categories_proxy)
+#       Section.stub!(:find).and_return @section
+#       Site.stub!(:find_by_host).and_return mock('site', :sections => mock('sections_proxy', :root => @section))
+# 
+#     end
+# 
+#     ['', '/de'].each do |locale|
+#       describe "given an incoming section and category path with#{locale.blank? ? 'out' : ''} a locale (like #{locale}/sections/:section_id/categories/:category_path)" do
+#         controller_name 'base'
+# 
+#         it "should replace the :category_path with the :category_id" do
+#           before_recognize_path(:categories, "#{locale}/sections/1/categories/category").should == "#{locale}/sections/1/categories/1"
+#         end
+# 
+#         it "should replace the :category_path with the :category_id when the path is terminated by a slash" do
+#           before_recognize_path(:categories, "#{locale}/sections/1/categories/category/").should == "#{locale}/sections/1/categories/1/"
+#         end
+# 
+#         it "should replace the :category_path with the :category_id when the path has trailing stuff" do
+#           before_recognize_path(:categories, "#{locale}/sections/1/categories/category/whatever").should == "#{locale}/sections/1/categories/1/whatever"
+#         end
+#       end
+# 
+#       describe "given an incoming category path without a section segment and with#{locale.blank? ? "out" : ""} a locale (like #{locale}/categories/:category_path)" do
+#         controller_name "base"
+# 
+#         it "should replace the :category_path with the :category_id and prepend the section segments" do
+#           before_recognize_path(:categories, "#{locale}/categories/category").should == "#{locale}/sections/1/categories/1"
+#         end
+# 
+#         it "should replace the :category_path with the :category_id and prepend the section segments when the path is terminated by a slash" do
+#           before_recognize_path(:categories, "#{locale}/categories/category/").should == "#{locale}/sections/1/categories/1/"
+#         end
+# 
+#         it "should replace the :category_path with the :category_id and prepend the section segments when the path has trailing stuff" do
+#           before_recognize_path(:categories, "#{locale}/categories/category/whatever").should == "#{locale}/sections/1/categories/1/whatever"
+#         end
+#       end
+#     end
+#   end
+# 
+#   describe "#after_url_helper" do
+#     controller_name 'base'
+# 
+#     before :each do
+#       Category.stub!(:find).and_return mock_category
+#     end
+# 
+#     it "should replace a categories/:category_id segment with categories/:category_path" do
+#       after_url_helper(:categories, nil, '/categories/1').should == '/categories/category'
+#     end
+#   end
+# end

data/test/unit/lib/routing_filter/routing_filter_categories_test.rb

@@ -0,0 +1,159 @@
+require File.expand_path(File.dirname(__FILE__) + '/../../../test_helper')
+$:.unshift File.expand_path(File.dirname(__FILE__) + '/../../../lib')
+require 'routing_filter/categories'
+
+module RoutingFilterTests
+  class CategoriesAdminTest < ActiveSupport::TestCase
+    def setup
+      super
+      @filter = RoutingFilter::Sets.new({})
+      blog     = Blog.first
+      site     = blog.site
+      category = blog.categories.first
+      @types           = Section.types.map{|type| type.downcase.pluralize }.join('|')
+      @category_path        = "/admin/sites/#{site.id}/sections/#{blog.id}/categories/#{category.id}/edit"
+      @category_locale_path = "/de/admin/sites/#{site.id}/sections/#{blog.id}/categories/#{category.id}/edit"
+    end
+    
+    # around_recognize
+    
+    test "#around_recognize does not do any filtering if url starts with /admin" do
+      mock(@filter).match_path(@category_path, @types).times(0)
+      
+      @filter.around_recognize(@category_path, 'test') { }
+    end
+    
+    test "#around_recognize does not do any filtering if url starts with, for example - /de/admin" do
+      mock(@filter).match_path(@category_locale_path, @types).times(0)
+      
+      @filter.around_recognize(@category_locale_path, 'test') { }
+    end
+    
+    # around_generate
+    
+    test "#around_generate does not do any filtering if url starts with /admin" do
+      assert_equal @filter.around_generate { @category_path.dup }, @category_path
+    end
+    
+    test "#around_generate does not do any filtering if url starts with, for example - /de/admin" do
+      assert_equal @filter.around_generate { @category_locale_path.dup }, @category_locale_path
+    end
+  end
+
+  class CategoriesTest < ActiveSupport::TestCase
+    def setup
+      super
+      @filter = RoutingFilter::Categories.new({})
+      @base_route = "/blogs/1/categories/"
+    end
+  
+    test "filter is a categories routing filter" do
+      assert @filter.is_a?(RoutingFilter::Categories)
+    end
+  
+    test "it correctly recognizes the category from url - standard category" do
+      standard_category.each do |route|
+        has_match_with_route(route)
+        assert_equal 'a-category', @filter.match_path(@base_route + route, ['blogs'])[2]
+      end
+    end
+  
+    test "it correctly recognizes the category from url - child category" do
+      child_category.each do |route|
+        has_match_with_route(route)
+        assert_equal 'a-category/child', @filter.match_path(@base_route + route, ['blogs'])[2]
+      end
+    end
+  
+    test "it correctly recognizes the category from url - category with digit" do
+      category_with_digit.each do |route|
+        has_match_with_route(route)
+        assert_equal 'category-666', @filter.match_path(@base_route + route, ['blogs'])[2]
+      end
+    end
+  
+    test "it correctly recognizes the category from url - child category with digit" do
+      child_category_with_digit.each do |route|
+        has_match_with_route(route)
+        assert_equal 'category-666/kid69', @filter.match_path(@base_route + route, ['blogs'])[2]
+      end
+    end
+  
+    test "it correctly recognizes the category from url - category with digits only" do
+      digit_category.each do |route|
+        has_match_with_route(route)
+        assert_equal '1234', @filter.match_path(@base_route + route, ['blogs'])[2]
+      end
+    end
+  
+    test "it correctly recognizes the category from url - child category with digits only" do
+      digit_child_category.each do |route|
+        has_match_with_route(route)
+        assert_equal '1234/567', @filter.match_path(@base_route + route, ['blogs'])[2]
+      end
+    end
+  
+    # test "it correctly recognizes the category from url - category with special characters" do
+    #   special_character_category.each do |route|
+    #     has_match_with_route(route)
+    #     assert_equal '$%&', @filter.match_path(@base_route + route, ['blogs'])[2]
+    #   end
+    # end
+    #   
+    # test "it correctly recognizes the category from url - child category with special characters" do
+    #   special_character_category.each do |route|
+    #     has_match_with_route(route)
+    #     assert_equal '$%&/§"!', @filter.match_path(@base_route + route, ['blogs'])[2]
+    #   end
+    # end
+    
+    test "it fails to recognize four digit child categories" do
+      assert_equal '1234', @filter.match_path(@base_route + "1234/5678", ['blogs'])[2]
+    end
+    
+    test "it fails to recognize four and two digit parent child combinations under the root category level" do
+      assert_equal '1234/56', @filter.match_path(@base_route + "1234/56", ['blogs'])[2]
+      assert_equal '1234', @filter.match_path(@base_route + "1234/4567/89", ['blogs'])[2]
+    end
+    
+    def has_match_with_route(route)
+      assert @filter.match_path(@base_route + route, ['blogs']),
+             "#{@base_route + route} does not match with categories routing filter"
+    end
+  
+    def standard_category
+      %w( a-category a-category/2009 a-category/2009/1 a-category/2009/12 a-category.atom a-category.html a-category.pdf )
+    end
+  
+    def child_category
+      %w( a-category/child a-category/child/2009 a-category/child/2009/1 a-category/child/2009/12 a-category/child.atom 
+          a-category/child.html a-category/child.pdf )
+    end
+  
+    def category_with_digit
+      %w( category-666 category-666/2009 category-666/2009/1 category-666/2009/12 category-666.atom 
+          category-666.html category-666.pdf )
+    end
+  
+    def child_category_with_digit
+      %w( category-666/kid69 category-666/kid69/2009 category-666/kid69/2009/1 category-666/kid69/2009/12 
+          category-666/kid69.atom category-666/kid69.html category-666/kid69.pdf )
+    end
+  
+    def digit_category
+      %w( 1234 1234/2009 1234/2009/1 1234/2009/12 1234.atom 1234.html 1234.pdf )
+    end
+  
+    def digit_child_category
+      %w( 1234/567 1234/567/2009 1234/567/2009/1 1234/567/2009/12 1234/567.atom 1234/567.html 1234/567.pdf )
+    end
+    
+    def special_character_category
+      %w( $%& $%&/2009 $%&/2009/1 $%&/2009/12 $%&.atom $%&.html $%&.pdf )
+    end
+    
+    def special_character_children_category
+      %w( $%&/§"!" $%&/§"!/2009 $%&/§"!/2009/1 $%&/§"!/2009/12 $%&/§"!.atom $%&/§"!.html $%&/§"!.pdf )
+    end
+  end
+end