adva_cms 0.0.1

data/test/unit/models/counter_test.rb

@@ -0,0 +1,43 @@
+require File.expand_path(File.dirname(__FILE__) + '/../../test_helper')
+
+class PageCounterTest < ActiveSupport::TestCase
+  def setup
+    super
+    @page = Page.find_by_permalink('a-page')
+  end
+
+  test "has_one comments_counter" do
+    @page.should have_one(:comments_counter)
+  end
+
+  test "responds to :comments_count" do
+    @page.should respond_to(:comments_count)
+  end
+
+  test "after create it has a counter initialized and saved" do
+    @page.comments_counter.should_not be_nil
+  end
+
+  test "#comments_count is a shortcut to #comments_counter.count" do
+    @page.comments_counter.count = 5
+    @page.comments_count.should == 5
+  end
+
+  test "increments the counter when a comment has been created" do
+    assert_difference('@page.comments_counter(true).count') do
+      create_comment!
+    end
+  end
+
+  test "decrements the counter when a comment has been destroyed" do
+    @comment = create_comment!
+    assert_difference('@page.comments_counter(true).count', -1) do
+      @comment.section.comments_counter.reload # hmmmm ...
+      @comment.destroy
+    end
+  end
+
+  def create_comment!
+    @page.comments.create!(:section => @page, :body => 'body', :author => User.first, :commentable => Article.first)
+  end
+end

data/test/unit/models/event_test.rb

@@ -0,0 +1,41 @@
+require File.expand_path(File.dirname(__FILE__) + '/../../test_helper')
+
+class FooObserver; def handle_foo!(event) nil; end; end
+class BarObserver; def handle_event!(event) nil; end; end
+
+class EventTest < ActiveSupport::TestCase
+  def setup
+    super
+    @old_observers = Event.observers.clone
+    Event.observers.clear
+    Event.observers << @foo_observer = FooObserver.new
+    Event.observers << @bar_observer = BarObserver.new
+    @event = Event.new(:foo, nil, nil)
+    stub(Event).new(:foo, :object, :source, {}).returns(@event)
+  end
+
+  def teardown
+    super
+    Event.observers = @old_observers
+  end
+
+  test '#add_observer takes observers' do
+    lambda { Event.observers << mock('observer') }.should_not raise_error
+  end
+
+  test "#trigger instantiates a new Event" do
+    mock(Event).new(:foo, :object, :source, {}).returns(@event)
+    Event.trigger(:foo, :object, :source)
+  end
+
+  test "#trigger calls the handle_[event_type]! callback on each observer that implements it" do
+    mock(@foo_observer).handle_foo!(@event)
+    Event.trigger(:foo, :object, :source)
+  end
+
+  test "#trigger calls the handle_event! callback on each observer that implements but does not implement handle_[event_type]!" do
+    mock(@bar_observer).handle_event!(@event)
+    Event.trigger(:foo, :object, :source)
+  end
+end
+

data/test/unit/models/nested_categories_test.rb

@@ -0,0 +1,34 @@
+require File.expand_path(File.dirname(__FILE__) + '/../../test_helper')
+
+class NestedCategoriesTest < ActiveSupport::TestCase
+  def setup
+    super
+    @page = Page.first
+    @category = Category.create!(:title => 'fi', :section => @page)
+    @child_category = Category.create!(:title => 'joensuu', :section => @page)
+    @child_category.move_to_child_of(@category)
+
+    @article_1 = @page.articles.build(:title => 'finland', :body => 'polar bears & penguins', :author => User.first).save!
+    @article_2 = @page.articles.build(:title => 'joensuu', :body => 'north karelian capital', :author => User.first).save!
+    @article_1 = Article.find_by_title('finland')
+    @article_2 = Article.find_by_title('joensuu')
+
+    @article_1.categories << @category
+    @article_2.categories << @child_category
+  end
+
+  test 'all_contents returns a scope of all the contents of category and its descendants' do
+    assert_equal [@article_1, @article_2], @category.all_contents
+    assert_equal [@article_2], @child_category.all_contents
+  end
+
+  test 'all_contents returns categories of a certain section only' do
+    # There is a 'a category' named category for a blog, a page and for a wiki,
+    # we do not want it to return wiki or blog category contents
+    category = Category.find_by_title('a category')
+    category.all_contents.each do |content|
+      content.should be_an(Article)
+      content.section.should be_a(Page)
+    end
+  end
+end

data/test/unit/models/page_test.rb

@@ -0,0 +1,63 @@
+require File.expand_path(File.dirname(__FILE__) + '/../../test_helper')
+
+class PageTest < ActiveSupport::TestCase
+  def setup
+    super
+    @site = Site.first
+    @page = Page.find_by_permalink('a-page')
+  end
+
+  test "Page.content_type returns 'Article'" do
+    Page.content_type.should == 'Article'
+  end
+
+  test "a page has a single_article_mode option that returns true by default" do
+    Page.new.should respond_to(:single_article_mode)
+    Page.new.should be_in_single_article_mode
+  end
+
+  # articles association
+
+  test "articles#primary returns the topmost published article" do
+    @page.articles.primary.should == Article.find_by_permalink('a-page-article')
+  end
+
+  # PUBLIC INSTANCE METHODS
+  test "#published?, published_at and published_at= are delegated to article (single article mode)" do
+    parent_section = Page.new(:site => @site, :single_article_mode => false)
+    parent_section.save(false)
+    page = Page.new(:site => @site)
+    page.save(false)
+    page.move_to_child_of(parent_section)
+    article = page.articles.build(:published_at => nil)
+
+    article.should_not be_published
+    page.should_not be_published
+    page.published_at.should be_nil
+
+    article.published_at = Time.local(2009, 5, 19, 12, 0, 0)
+    article.should be_published
+    page.should be_published
+    page.published_at.should == Time.local(2009, 5, 19, 12, 0, 0)
+
+    page.published_at = Time.local(2009, 5, 19, 14, 0, 0)
+    article.published_at.should == Time.local(2009, 5, 19, 14, 0, 0)
+
+    page.published_at = nil
+    page.should_not be_published
+    article.should_not be_published
+  end
+
+  test "#published? is false if any ancestor section is not published (single article mode)" do
+    parent_section = Page.new(:site => @site, :published_at => nil)
+    parent_section.save(false)
+    # TODO: nested set bug?
+    # section = Page.new(:site => @site, :parent => parent_section, :published_at => 2.days.ago, :single_article_mode => false)
+    page = Page.new(:site => @site)
+    page.save(false)
+    page.move_to_child_of(parent_section)
+    article = page.articles.build(:published_at => 2.days.ago)
+
+    page.published?(true).should be_false
+  end
+end

data/test/unit/models/section_test.rb

@@ -0,0 +1,315 @@
+require File.expand_path(File.dirname(__FILE__) + '/../../test_helper')
+
+class SectionTest < ActiveSupport::TestCase
+  def setup
+    super
+    @site = Site.first
+    @section = @site.sections.first
+    @new_section = Section.new(:site => @site, :title => 'a test section', :parent_id => @section.id)
+    @unpublished_section = Section.find_by_title('an unpublished section')
+  end
+
+  test "acts as a role context for the moderator role" do
+    Section.should act_as_role_context(:roles => :moderator)
+  end
+
+  test "serializes its actual permissions" do
+    Section.serialized_attributes.keys.should include('permissions')
+  end
+
+  test "has an option :contents_per_page" do
+    lambda{ @section.contents_per_page }.should_not raise_error
+  end
+
+  test "serialize the option :contents_per_page to the database" do
+    @section.instance_variable_set(:@options, nil)
+    @section.save; @section.reload
+    @section.contents_per_page.should == Section.option_definitions[:contents_per_page][:default]
+
+    @section.contents_per_page = 20
+    @section.save; @section.reload
+    @section.contents_per_page.should == 20
+  end
+
+  test "has a permalink generated from the title" do
+    Category.should have_permalink(:title)
+
+    @section.title = 'new section title'
+    @section.permalink = nil
+    @section.send(:ensure_unique_url)
+    @section.permalink.should == 'new-section-title'
+  end
+
+  test "acts as a nested set" do
+    Section.should act_as_nested_set
+  end
+
+  test "has many comments" do
+    Section.should have_many_comments
+  end
+
+  test "instantiates with single table inheritance" do
+    Section.should instantiate_with_sti
+  end
+
+  test "has a comments counter" do
+    Section.should have_counter(:comments)
+  end
+
+  test "belongs to a site" do
+    @section.should belong_to(:site)
+  end
+
+  test "has many articles" do
+    @section.should have_many(:articles)
+  end
+
+  test "has many categories" do
+    @section.should have_many(:categories)
+  end
+
+  # categories association
+
+  test "categories#roots returns all categories that do not have a parent category" do
+    mock(@section.categories).find(:all, hash_including(:conditions => { :parent_id => nil }))
+    @section.categories.roots
+  end
+
+  # callbacks
+
+  test "sets the comment age before validation" do
+    Section.before_validation.should include(:set_comment_age)
+  end
+
+  test "updates the path before save" do
+    Section.before_save.should include(:update_path)
+  end
+
+  # validations
+
+  # FIXME ... seems to break with install_controller#index
+  # test "validates the presence of a site" do
+  #  @section.should validate_presence_of(:site)
+  # end
+
+  test "validates the presence of a title" do
+    @section.should validate_presence_of(:title)
+  end
+
+  test "validates the uniqueness of the permalink per site" do
+    @section.should validate_uniqueness_of(:permalink, :scope => :site_id)
+  end
+
+  # CLASS METHODS
+
+  test "Section.types returns a collection of registered Section types" do
+    Section.types.should include('Page')
+  end
+
+  test "Section.register_type adds a Section type to the type collection" do
+    Section.register_type('Galerie')
+    Section.types.should include('Galerie')
+  end
+
+  test "Section.register_type should not shift 'Page' from the top position" do
+    Section.register_type('123-foo-bar')
+    Section.types.first.should == 'Page'
+  end
+
+  # PUBLIC INSTANCE METHODS
+
+  test "#type returns 'Page' for a Page" do
+    s = Page.create!(:title => 'title', :site => @site)
+    s.type.should == 'Page'
+  end
+
+  test "#owner returns the site" do
+    @section.owner.should == @site
+  end
+
+  test "#tag_counts returns the tag_counts for this site's content's tags" do
+    mock(Content).tag_counts(:conditions => "section_id = #{@section.id}")
+    @section.tag_counts
+  end
+
+  # FIXME
+  # test "#render_options should be specified but looks pretty uncomprehensible right now"
+
+  test "#root_section? returns true if this section is the site's root section" do
+    @site.sections.root.should be_root_section
+    Section.new(:site => @site).should_not be_root_section
+  end
+
+  test "#accept_comments? is true when comments are not 'not-allowed' (-1) (see comment_expiration_options)" do
+    @section.comment_age = 0
+    @section.should accept_comments
+  end
+
+  test "#accept_comments? is false when comments are 'not-allowed' (-1) (see comment_expiration_options)" do
+    @section.comment_age = -1
+    @section.should_not accept_comments
+  end
+
+  test "#state returns :pending if section isn't published" do
+    page = Page.new(:site => @site, :single_article_mode => false)
+    page.save(false)
+    page.update_attribute(:published_at, nil)
+    
+    page.move_to_child_of(@section)
+
+    page.state.should == :pending
+
+    page.published_at = 2.days.from_now
+    page.state.should == :pending
+  end
+
+  test "#state returns :published if section is published" do
+    page = Page.new(:site => @site, :single_article_mode => false)
+    page.save(false)
+    page.move_to_child_of(@section)
+
+    page.published_at = 2.days.ago
+    page.state.should == :published
+  end
+
+  test "#published? is always true for root section" do
+    @section.published_at = nil
+    @section.should be_published
+  end
+
+  test "#published? is true when published_at is set to a date in the past" do
+    page = Page.new(:site => @site, :single_article_mode => false)
+    page.save(false)
+    page.move_to_child_of(@section)
+
+    page.published_at = 2.days.ago
+    page.should be_published
+  end
+
+  test "#published? is false when published_at is not set or set to a date in the future" do
+    page = Page.new(:site => @site, :single_article_mode => false)
+    page.save(false)
+    page.move_to_child_of(@section)
+
+    page.published_at = nil
+    page.should_not be_published
+
+    page.published_at = 2.days.from_now
+    page.should_not be_published
+  end
+
+  # TODO - check if necessary - could (or should) be implemented on controller level
+  test "#published? is true if all ancestors are published too" do
+    # TODO: nested set bug?
+    # section = Page.new(:site => @site, :parent => parent_section, :published_at => 2.days.ago, :single_article_mode => false)
+    section = Page.new(:title => 'test section', :site => @site, :published_at => 2.days.ago, :single_article_mode => false)
+    section.save(false)
+    section.move_to_child_of(@section)
+    
+    section.published?(true).should be_true
+  end
+
+  test "#published? is false if any ancestor is not published" do
+    # TODO: nested set bug?
+    # section = Page.new(:site => @site, :parent => parent_section, :published_at => 2.days.ago, :single_article_mode => false)
+    section = Page.new(:site => @site, :published_at => 2.days.ago, :single_article_mode => false)
+    section.save(false)
+    section.move_to_child_of(@unpublished_section)
+
+    section.published?(true).should be_false
+  end
+
+  test "#published= sets published_at to current time if set to 1 and published_at is blank" do
+    stub(Time).now { Time.local(2009, 5, 20, 12, 0, 0) }
+    section = Page.new(:single_article_mode => false)
+    section.published_at = nil
+
+    section.published = '1'
+    section.published_at.should == Time.local(2009, 5, 20, 12, 0, 0)
+  end
+
+  test "#published= sets published_at to nil if set to 0" do
+    section = Page.new(:single_article_mode => false)
+    section.published_at = 2.days.ago
+
+    section.published = '0'
+    section.published_at.should be_nil
+  end
+
+  # PROTECTED INSTANCE METHODS
+
+  test "#set_comment_age sets the comment_age to -1 if it's not already set" do
+    @section.comment_age = nil
+    @section.send(:set_comment_age)
+    @section.comment_age.should_not be_nil
+  end
+
+  test "#set_comment_age does not change an already set comment_age" do
+    @section.comment_age = 99
+    @section.send(:set_comment_age)
+    @section.comment_age.should == 99
+  end
+
+  test "#update_path rebuilds the section's path when the permalink has changed" do
+    # grrr ... can't stub dynamic methods with RR
+    # stub(@section).permalink_changed?.returns(true)
+    stub(@section).attribute_changed?('permalink').returns(true)
+    mock(@section).build_path.returns('the-new-path')
+    @section.send(:update_path)
+    @section.path.should == 'the-new-path'
+  end
+
+  test "#build_path builds a path by joining self and anchestor permalinks with '/'" do
+    section = bunch_of_nested_sections!
+    section.send(:build_path).should == "home/about/location"
+  end
+
+  test "#update_paths moves a new section to a child of its parent and updates the section paths" do
+    @new_section.save
+    assert_equal @section, @new_section.parent
+  end
+  
+  test "publish sections by default" do
+    @new_section.save
+    assert_equal true, @new_section.published
+  end
+  
+  test "publish sections by default, but respect user set published_at time" do
+    time = Time.local(2009, 5, 20, 12, 0, 0)
+    @new_section.published_at = time
+    @new_section.save
+    assert_equal time, @new_section.published_at
+  end
+
+  test "#update_paths should not lose the title of the section while moving the section - a bug fix" do
+    unnested_section = Section.new(:site => @site, :title => 'unnested section')
+    assert_equal 'unnested section', unnested_section.title
+    assert unnested_section.save
+    assert_equal 'unnested section', unnested_section.title
+    assert_equal 'a test section', @new_section.title
+    assert @new_section.save
+    assert_equal 'a test section', @new_section.title
+  end
+
+  # NESTED SET
+
+  test "initializes the lft and rgt attributes" do
+    home, about, location = *bunch_of_sections!
+    expected = [about.lft - 2, about.rgt - 2, location.lft - 2, location.rgt - 2]
+    [home.lft, home.rgt, about.lft, about.rgt].should == expected
+  end
+
+  def bunch_of_sections!
+    home     = @site.sections.create!(:title => 'homepage', :permalink => 'home')
+    about    = @site.sections.create!(:title => 'about us', :permalink => 'about')
+    location = @site.sections.create!(:title => 'how to find us', :permalink => 'location')
+    [home, about, location]
+  end
+
+  def bunch_of_nested_sections!
+    home, about, location = *bunch_of_sections!
+    about.move_to_child_of(home)
+    location.move_to_child_of(about)
+    location
+  end
+end