spontaneous 0.1.0.alpha1

data/test/unit/test_page.rb

@@ -0,0 +1,244 @@
+# encoding: UTF-8
+
+require 'test_helper'
+
+
+class PageTest < MiniTest::Spec
+  include Spontaneous
+
+  context "All pages" do
+    # should "have a pre-defined 'title' field" do
+    #   p = Page.new
+    #   p.field?(:title).should be_true
+    #   p.title.value.should == "New Page"
+    # end
+  end
+  context "Pages:" do
+    setup do
+      Content.delete
+      S::Schema.reset!
+      class Page < Spot::Page
+        field :title, :string
+      end
+    end
+    teardown do
+      PageTest.send(:remove_const, :Page)
+    end
+    context "Root page" do
+      setup do
+      end
+      should "be created by first page insert" do
+        p = Page.create
+        p.root?.should be_true
+        p.path.should == "/"
+        p.slug.should == ""
+        p.parent.should be_nil
+      end
+
+      should "be a singleton" do
+        p = Page.create
+        p.root?.should be_true
+        q = Page.create
+        q.root?.should be_false
+      end
+    end
+
+    context "Slugs" do
+      setup do
+      end
+
+      should "be generated if missing" do
+        o = Page.create
+        p = Page.create
+        p.slug.should_not == ""
+        p.save
+        p.reload.slug.should_not == ""
+      end
+
+      should "be made URL safe" do
+        o = Page.create
+        p = Page.create
+        p.slug = " something's illegal and ugly!!"
+        p.slug.should == "somethings-illegal-and-ugly"
+        p.save
+        p.reload.slug.should == "somethings-illegal-and-ugly"
+      end
+
+      should "be set from title if using generated slug" do
+        r = Page.create
+        slug = Page.generate_default_slug
+        Page.stubs(:generate_default_slug).returns(slug)
+        o = Page.create(:title => "New Page")
+        p = Page.create(:title => "New Page")
+        o.slug.should == slug
+        r << o
+        o.save
+        o = Page[o.id]
+        o.slug.should == slug
+        o << p
+        o.save
+        o = Page[o.id]
+        o.slug.should == slug
+        o.title = "New Title"
+        o.save
+        o.reload
+        o.slug.should == "new-title"
+        o.title = "Another Title"
+        o.save
+        o.reload
+        o.slug.should == "new-title"
+      end
+    end
+
+    context "Pages in tree" do
+      setup do
+        Content.delete
+        @p = Page.create
+        @p.root?.should be_true
+        @q = Page.new
+        @r = Page.new
+        @s = Page.new
+        @t = Page.new
+        @p << @q
+        @q << @r
+        @q << @s
+        @s << @t
+        @p.save
+        @q.save
+        @r.save
+        @s.save
+        @t.save
+        # doing this means that the == tests work below
+        @p = Page[@p.id]
+        @q = Page[@q.id]
+        @r = Page[@r.id]
+        @s = Page[@s.id]
+        @t = Page[@t.id]
+      end
+
+      should "have the right entry classes" do
+        @p.pieces.first.proxy_class.should == Spontaneous::PagePiece
+        @q.pieces.first.proxy_class.should == Spontaneous::PagePiece
+        @s.pieces.first.proxy_class.should == Spontaneous::PagePiece
+      end
+
+      should "have a reference to their parent" do
+        @p.parent.should be_nil
+        @q.parent.should === @p
+        @r.parent.should === @q
+        @s.parent.should === @q
+        @t.parent.should === @s
+      end
+
+
+      should "have a list of their children" do
+        @p.children.should == [@q]
+        @q.children.should == [@r, @s]
+        @r.children.should == []
+        @s.children.should == [@t]
+        @t.children.should == []
+      end
+
+      should "have a reference to themselves as page" do
+        @p.page.should == @p
+        @q.page.should == @q
+        @r.page.should == @r
+        @s.page.should == @s
+        @t.page.should == @t
+      end
+      should "keep track of their depth" do
+        @p.depth.should == 0
+        @q.depth.should == 1
+        @r.depth.should == 2
+        @s.depth.should == 2
+        @t.depth.should == 3
+      end
+
+      should "have correct paths" do
+        @p.path.should == "/"
+        @q.path.should == "/#{@q.slug}"
+        @r.path.should == "/#{@q.slug}/#{@r.slug}"
+        @s.path.should == "/#{@q.slug}/#{@s.slug}"
+        @t.path.should == "/#{@q.slug}/#{@s.slug}/#{@t.slug}"
+      end
+
+      should "all have a reference to the root node" do
+        # @p.root?.should be_true
+        @p.root.should === @p
+        @q.root.should === @p
+        @r.root.should === @p
+        @s.root.should === @p
+        @t.root.should === @p
+      end
+
+      should "have correct ancestor paths" do
+        @p.ancestor_path.should == []
+        @q.ancestor_path.should == [@p.id]
+        @r.ancestor_path.should == [@p.id, @q.id]
+        @s.ancestor_path.should == [@p.id, @q.id]
+        @t.ancestor_path.should == [@p.id, @q.id, @s.id]
+      end
+      should "know their ancestors" do
+        # must be a better way to test these arrays
+        @p.ancestors.should === []
+        @q.ancestors.should === [@p]
+        @r.ancestors.should == [@p, @q]
+        @s.ancestors.should == [@p, @q]
+        @t.ancestors.should === [@p, @q, @s]
+      end
+
+      should "know their generation" do
+        @r.generation.should == [@r, @s]
+        @s.generation.should == [@r, @s]
+      end
+
+      should "know their siblings" do
+        @r.siblings.should == [@s]
+        @s.siblings.should == [@r]
+      end
+
+      should "always have the right path" do
+        @q.slug = "changed"
+        @q.save
+        @p.reload.path.should == "/"
+        @q.reload.path.should == "/changed"
+        @r.reload.path.should == "/changed/#{@r.slug}"
+        @s.reload.path.should == "/changed/#{@s.slug}"
+        @t.reload.path.should == "/changed/#{@s.slug}/#{@t.slug}"
+      end
+
+      should "have direct access to ancestors at any depth" do
+        @q.ancestor(0).should == @p
+        @r.ancestor(0).should == @p
+        @r.ancestor(1).should == @q
+        @s.ancestor(1).should == @q
+        @t.ancestor(1).should == @q
+        @t.ancestor(2).should == @s
+        @t.ancestor(-1).should == @s
+        @t.ancestor(-2).should == @q
+      end
+    end
+
+    context "page pieces" do
+      setup do
+        @parent = Page.create
+        @piece = Piece.new
+        @child = Page.new
+        @parent << @piece
+        @piece << @child
+        @parent.save
+        @piece.save
+        @child.save
+      end
+
+      should "report their depth according to their position in the piece tree" do
+        @parent.depth.should == 0
+        @parent.pieces.first.depth.should == 1
+        @parent.pieces.first.pieces.first.depth.should == 2
+      end
+    end
+  end
+
+
+  # context ""
+end