radiant-rc 0.9.0

data/spec/models/radiant/config_spec.rb

@@ -0,0 +1,114 @@
+require File.dirname(__FILE__) + "/../../spec_helper"
+
+describe Radiant::Config do
+  before :each do
+    Radiant::Config.initialize_cache
+    @config = Radiant::Config
+    set('test', 'cool')
+    set('foo', 'bar')
+  end
+  after :each do 
+    Radiant::Cache.clear
+  end
+
+  describe "before the table exists, as in case of before bootstrap" do
+    before :each do
+      @config.stub!(:table_exists?).and_return(false)
+      @config.should_not_receive(:find_by_key)
+      @config.should_not_receive(:find_or_initialize_by_key)
+    end
+
+    it "should ignore the bracket accessor and return nil" do
+      @config['test'].should be_nil
+    end
+
+    it "should ignore the bracket assignment" do
+      @config['test'] = 'cool'
+    end
+  end
+  
+  it "should create a cache of all records in a hash with Radiant::Config.initialize_cache" do
+    Rails.cache.read('Radiant::Config').should == Radiant::Config.to_hash
+  end
+  
+  it "should recreate the cache after a record is saved" do
+    Radiant::Config.create!(:key => 'cache', :value => 'true')
+    Rails.cache.read('Radiant::Config').should == Radiant::Config.to_hash
+  end
+  
+  it "should update the mtime on the cache file after a record is saved" do
+    FileUtils.should_receive(:mkpath).with("#{Rails.root}/tmp").at_least(:once)
+    FileUtils.should_receive(:touch).with(Rails.cache.read('Radiant.cache_file'))
+    Radiant::Config['mtime'] = 'now'
+  end
+  
+  it "should record the cache file mtime when the cache is initialized" do
+    Radiant::Config.initialize_cache
+    Rails.cache.read('Radiant.cache_mtime').should == File.mtime(Rails.cache.fetch('Radiant.cache_file'))
+  end
+  
+  it "should create a cache file when initializing the cache" do
+    Radiant::Cache.clear
+    cache_file = File.join(Rails.root,'tmp','radiant_config_cache.txt')
+    FileUtils.rm_rf(cache_file) if File.exist?(cache_file)
+    Radiant::Config.initialize_cache
+    File.file?(cache_file).should be_true
+  end
+  
+  it "should find the value in the cache with []" do
+    Radiant::Config['test'].should === Rails.cache.read('Radiant::Config')['test']
+  end
+  
+  it "should set the value in the database with []=" do
+    Radiant::Config['new-db-key'] = 'db-value'
+    Radiant::Config.find_by_key('new-db-key').value.should == 'db-value'
+  end
+
+  it "should return the value of a key with the bracket accessor" do
+    @config['test'].should == 'cool'
+  end
+
+  it "should return nil for keys that don't exist" do
+    @config['non-existent-key'].should be_nil
+  end
+
+  it "should create a new key-value pair with the bracket accessor" do
+    @config['new-key'] = "new-value"
+    @config['new-key'].should == "new-value"
+  end
+
+  it "should set an existing key with the bracket accessor" do
+    @config['foo'].should == 'bar'
+    @config['foo'] = 'replaced'
+    @config['foo'].should == 'replaced'
+  end
+
+  it "should convert to a hash" do
+    @config.to_hash['test'].should == "cool"
+    @config.to_hash['foo'].should == "bar"
+    @config.to_hash.size.should >= 2
+  end
+
+  describe "keys ending in '?'" do
+    before :each do
+      set('false?', false)
+      set('true?', true)
+      set('junk?', "some junk")
+    end
+
+    it "should return true or false" do
+      @config['false?'].should be_false
+      @config['true?'].should be_true
+    end
+
+    it "should return false for values that are not 'true'" do
+      @config['junk?'].should be_false
+    end
+  end
+
+  def set(key, value)
+    setting = Radiant::Config.find_by_key(key)
+    setting.destroy if setting
+    Radiant::Config.create!(:key => key, :value => value)
+  end
+end

data/spec/models/radiant/exporter_spec.rb

@@ -0,0 +1,25 @@
+require File.dirname(__FILE__) + "/../../spec_helper"
+
+describe Radiant::Exporter do
+  dataset :pages_with_layouts, :users_and_pages, :snippets
+
+  before :each do
+    @exporter = Radiant::Exporter
+    @output = @exporter.export
+    @hash = YAML::load(@output)
+    @classes  = ['Radiant::Configs', 'Users', 'Pages', 'PageParts', 'Snippets', 'Layouts']
+  end
+  
+  it "should output a string" do
+    @output.should be_kind_of(String)
+  end
+  
+  it "should output all Radiant models" do
+    @classes.all? { |c| @hash.has_key?(c) }.should be_true
+  end
+  
+  it "should output the models by id as hashes" do
+    @hash['Pages'][page_id(:home)]['title'].should == pages(:home).title
+    @hash['Users'][user_id(:admin)]['name'].should == users(:admin).name
+  end
+end

data/spec/models/snippet_spec.rb

@@ -0,0 +1,41 @@
+require File.dirname(__FILE__) + '/../spec_helper'
+
+describe Snippet do
+  dataset :snippets
+  test_helper :validations
+  
+  before :each do
+    @snippet = @model = Snippet.new(snippet_params)
+  end
+  
+  it 'should validate length of' do
+    {
+      :name => 100,
+      :filter_id => 25
+    }.each do |field, max|
+      assert_invalid field, ('%d-character limit' % max), 'x' * (max + 1)
+      assert_valid field, 'x' * max
+    end
+  end
+  
+  it 'should validate presence of' do
+    [:name].each do |field|
+      assert_invalid field, 'required', '', ' ', nil
+    end
+  end
+  
+  it 'should validate uniqueness of' do
+    assert_invalid :name, 'name already in use', 'first', 'another', 'markdown'
+    assert_valid :name, 'just-a-test'
+  end
+  
+  it 'should validate format of name' do
+    assert_valid :name, 'abc', 'abcd-efg', 'abcd_efg', 'abc.html', '/', '123'
+    assert_invalid :name, 'cannot contain spaces or tabs'
+  end
+  
+  it 'should allow the filter to be specified' do
+    @snippet = snippets(:markdown)
+    @snippet.filter.should be_kind_of(MarkdownFilter)
+  end
+end

data/spec/models/standard_tags_spec.rb

@@ -0,0 +1,1027 @@
+require File.dirname(__FILE__) + '/../spec_helper'
+
+describe "Standard Tags" do
+  dataset :users_and_pages, :file_not_found, :snippets
+
+  it '<r:page> should allow access to the current page' do
+    page(:home)
+    page.should render('<r:page:title />').as('Home')
+    page.should render(%{<r:find url="/radius"><r:title /> | <r:page:title /></r:find>}).as('Radius | Home')
+  end
+
+  [:breadcrumb, :slug, :title, :url].each do |attr|
+    it "<r:#{attr}> should render the '#{attr}' attribute" do
+      value = page.send(attr)
+      page.should render("<r:#{attr} />").as(value.to_s)
+    end
+  end
+
+  it "<r:url> with a nil relative URL root should scope to the relative root of /" do
+    ActionController::Base.relative_url_root = nil
+    page(:home).should render("<r:url />").as("/")
+  end
+
+  it '<r:url> with a relative URL root should scope to the relative root' do
+    page(:home).should render("<r:url />").with_relative_root("/foo").as("/foo/")
+  end
+
+  it '<r:parent> should change the local context to the parent page' do
+    page(:parent)
+    page.should render('<r:parent><r:title /></r:parent>').as(pages(:home).title)
+    page.should render('<r:parent><r:children:each by="title"><r:title /></r:children:each></r:parent>').as(page_eachable_children(pages(:home)).collect(&:title).join(""))
+    page.should render('<r:children:each><r:parent:title /></r:children:each>').as(@page.title * page.children.count)
+  end
+
+  it '<r:if_parent> should render the contained block if the current page has a parent page' do
+    page.should render('<r:if_parent>true</r:if_parent>').as('true')
+    page(:home).should render('<r:if_parent>true</r:if_parent>').as('')
+  end
+
+  it '<r:unless_parent> should render the contained block unless the current page has a parent page' do
+    page.should render('<r:unless_parent>true</r:unless_parent>').as('')
+    page(:home).should render('<r:unless_parent>true</r:unless_parent>').as('true')
+  end
+
+  it '<r:if_children> should render the contained block if the current page has child pages' do
+    page(:home).should render('<r:if_children>true</r:if_children>').as('true')
+    page(:childless).should render('<r:if_children>true</r:if_children>').as('')
+  end
+
+  it '<r:unless_children> should render the contained block if the current page has no child pages' do
+    page(:home).should render('<r:unless_children>true</r:unless_children>').as('')
+    page(:childless).should render('<r:unless_children>true</r:unless_children>').as('true')
+  end
+
+  describe "<r:children:each>" do
+    it "should iterate through the children of the current page" do
+      page(:parent)
+      page.should render('<r:children:each><r:title /> </r:children:each>').as('Child Child 2 Child 3 ')
+      page.should render('<r:children:each><r:page><r:slug />/<r:child:slug /> </r:page></r:children:each>').as('parent/child parent/child-2 parent/child-3 ')
+      page(:assorted).should render(page_children_each_tags).as('a b c d e f g h i j ')
+    end
+
+    it 'should not list draft pages' do
+      page.should render('<r:children:each by="title"><r:slug /> </r:children:each>').as('a b c d e f g h i j ')
+    end
+    
+    it 'should include draft pages with status="all"' do
+      page.should render('<r:children:each status="all" by="slug"><r:slug /> </r:children:each>').as('a b c d draft e f g h i j ')
+    end
+
+    it "should include draft pages by default on the dev host" do
+      page.should render('<r:children:each by="slug"><r:slug /> </r:children:each>').as('a b c d draft e f g h i j ').on('dev.site.com')
+    end
+    
+    it 'should not list draft pages on dev.site.com when Radiant::Config["dev.host"] is set to something else' do
+      Radiant::Config['dev.host'] = 'preview.site.com'
+      page.should render('<r:children:each by="title"><r:slug /> </r:children:each>').as('a b c d e f g h i j ').on('dev.site.com')
+    end
+    
+    it 'should error with invalid "limit" attribute' do
+      message = "`limit' attribute of `each' tag must be a positive number between 1 and 4 digits"
+      page.should render(page_children_each_tags(%{limit="a"})).with_error(message)
+      page.should render(page_children_each_tags(%{limit="-10"})).with_error(message)
+      page.should render(page_children_each_tags(%{limit="50000"})).with_error(message)
+    end
+
+    it 'should error with invalid "offset" attribute' do
+      message = "`offset' attribute of `each' tag must be a positive number between 1 and 4 digits"
+      page.should render(page_children_each_tags(%{offset="a"})).with_error(message)
+      page.should render(page_children_each_tags(%{offset="-10"})).with_error(message)
+      page.should render(page_children_each_tags(%{offset="50000"})).with_error(message)
+    end
+
+    it 'should error with invalid "by" attribute' do
+      message = "`by' attribute of `each' tag must be set to a valid field name"
+      page.should render(page_children_each_tags(%{by="non-existant-field"})).with_error(message)
+    end
+
+    it 'should error with invalid "order" attribute' do
+      message = %{`order' attribute of `each' tag must be set to either "asc" or "desc"}
+      page.should render(page_children_each_tags(%{order="asdf"})).with_error(message)
+    end
+
+    it "should limit the number of children when given a 'limit' attribute" do
+      page.should render(page_children_each_tags(%{limit="5"})).as('a b c d e ')
+    end
+
+    it "should limit and offset the children when given 'limit' and 'offset' attributes" do
+      page.should render(page_children_each_tags(%{offset="3" limit="5"})).as('d e f g h ')
+    end
+
+    it "should change the sort order when given an 'order' attribute" do
+      page.should render(page_children_each_tags(%{order="desc"})).as('j i h g f e d c b a ')
+    end
+
+    it "should sort by the 'by' attribute" do
+      page.should render(page_children_each_tags(%{by="breadcrumb"})).as('f e d c b a j i h g ')
+    end
+
+    it "should sort by the 'by' attribute according to the 'order' attribute" do
+      page.should render(page_children_each_tags(%{by="breadcrumb" order="desc"})).as('g h i j a b c d e f ')
+    end
+
+    describe 'with "status" attribute' do
+      it "set to 'all' should list all children" do
+        page.should render(page_children_each_tags(%{status="all"})).as("a b c d e f g h i j draft ")
+      end
+
+      it "set to 'draft' should list only children with 'draft' status" do
+        page.should render(page_children_each_tags(%{status="draft"})).as('draft ')
+      end
+
+      it "set to 'published' should list only children with 'draft' status" do
+        page.should render(page_children_each_tags(%{status="published"})).as('a b c d e f g h i j ')
+      end
+
+      it "set to an invalid status should render an error" do
+        page.should render(page_children_each_tags(%{status="askdf"})).with_error("`status' attribute of `each' tag must be set to a valid status")
+      end
+    end
+  end
+
+  describe "<r:children:each:if_first>" do
+    it "should render for the first child" do
+      tags = '<r:children:each><r:if_first>FIRST:</r:if_first><r:slug /> </r:children:each>'
+      expected = "FIRST:article article-2 article-3 article-4 "
+      page(:news).should render(tags).as(expected)
+    end
+  end
+
+  describe "<r:children:each:unless_first>" do
+    it "should render for all but the first child" do
+      tags = '<r:children:each><r:unless_first>NOT-FIRST:</r:unless_first><r:slug /> </r:children:each>'
+      expected = "article NOT-FIRST:article-2 NOT-FIRST:article-3 NOT-FIRST:article-4 "
+      page(:news).should render(tags).as(expected)
+    end
+  end
+
+  describe "<r:children:each:if_last>" do
+    it "should render for the last child" do
+      tags = '<r:children:each><r:if_last>LAST:</r:if_last><r:slug /> </r:children:each>'
+      expected = "article article-2 article-3 LAST:article-4 "
+      page(:news).should render(tags).as(expected)
+    end
+  end
+
+  describe "<r:children:each:unless_last>" do
+    it "should render for all but the last child" do
+      tags = '<r:children:each><r:unless_last>NOT-LAST:</r:unless_last><r:slug /> </r:children:each>'
+      expected = "NOT-LAST:article NOT-LAST:article-2 NOT-LAST:article-3 article-4 "
+      page(:news).should render(tags).as(expected)
+    end
+  end
+
+  describe "<r:children:each:header>" do
+    it "should render the header when it changes" do
+      tags = '<r:children:each><r:header>[<r:date format="%b/%y" />] </r:header><r:slug /> </r:children:each>'
+      expected = "[Dec/00] article [Feb/01] article-2 article-3 [Mar/01] article-4 "
+      page(:news).should render(tags).as(expected)
+    end
+
+    it 'with "name" attribute should maintain a separate header' do
+      tags = %{<r:children:each><r:header name="year">[<r:date format='%Y' />] </r:header><r:header name="month">(<r:date format="%b" />) </r:header><r:slug /> </r:children:each>}
+      expected = "[2000] (Dec) article [2001] (Feb) article-2 article-3 (Mar) article-4 "
+      page(:news).should render(tags).as(expected)
+    end
+
+    it 'with "restart" attribute set to one name should restart that header' do
+      tags = %{<r:children:each><r:header name="year" restart="month">[<r:date format='%Y' />] </r:header><r:header name="month">(<r:date format="%b" />) </r:header><r:slug /> </r:children:each>}
+      expected = "[2000] (Dec) article [2001] (Feb) article-2 article-3 (Mar) article-4 "
+      page(:news).should render(tags).as(expected)
+    end
+
+    it 'with "restart" attribute set to two names should restart both headers' do
+      tags = %{<r:children:each><r:header name="year" restart="month;day">[<r:date format='%Y' />] </r:header><r:header name="month" restart="day">(<r:date format="%b" />) </r:header><r:header name="day"><<r:date format='%d' />> </r:header><r:slug /> </r:children:each>}
+      expected = "[2000] (Dec) <01> article [2001] (Feb) <09> article-2 <24> article-3 (Mar) <06> article-4 "
+      page(:news).should render(tags).as(expected)
+    end
+  end
+
+  describe "<r:children:count>" do
+    it 'should render the number of children of the current page' do
+      page(:parent).should render('<r:children:count />').as('3')
+    end
+    
+    it "should accept the same scoping conditions as <r:children:each>" do
+      page.should render('<r:children:count />').as('10')
+      page.should render('<r:children:count status="all" />').as('11')
+      page.should render('<r:children:count status="draft" />').as('1')
+      page.should render('<r:children:count status="hidden" />').as('0')
+    end
+  end
+
+  describe "<r:children:first>" do
+    it 'should render its contents in the context of the first child page' do
+      page(:parent).should render('<r:children:first:title />').as('Child')
+    end
+
+    it 'should accept the same scoping attributes as <r:children:each>' do
+      page.should render(page_children_first_tags).as('a')
+      page.should render(page_children_first_tags(%{limit="5"})).as('a')
+      page.should render(page_children_first_tags(%{offset="3" limit="5"})).as('d')
+      page.should render(page_children_first_tags(%{order="desc"})).as('j')
+      page.should render(page_children_first_tags(%{by="breadcrumb"})).as('f')
+      page.should render(page_children_first_tags(%{by="breadcrumb" order="desc"})).as('g')
+    end
+
+    it "should render nothing when no children exist" do
+      page(:first).should render('<r:children:first:title />').as('')
+    end
+  end
+
+  describe "<r:children:last>" do
+    it 'should render its contents in the context of the last child page' do
+      page(:parent).should render('<r:children:last:title />').as('Child 3')
+    end
+
+    it 'should accept the same scoping attributes as <r:children:each>' do
+      page.should render(page_children_last_tags).as('j')
+      page.should render(page_children_last_tags(%{limit="5"})).as('e')
+      page.should render(page_children_last_tags(%{offset="3" limit="5"})).as('h')
+      page.should render(page_children_last_tags(%{order="desc"})).as('a')
+      page.should render(page_children_last_tags(%{by="breadcrumb"})).as('g')
+      page.should render(page_children_last_tags(%{by="breadcrumb" order="desc"})).as('f')
+    end
+
+    it "should render nothing when no children exist" do
+      page(:first).should render('<r:children:last:title />').as('')
+    end
+  end
+
+  describe "<r:content>" do
+    it "should render the 'body' part by default" do
+      page.should render('<r:content />').as('Assorted body.')
+    end
+
+    it "with 'part' attribute should render the specified part" do
+      page(:home).should render('<r:content part="extended" />').as("Just a test.")
+    end
+
+    it "should prevent simple recursion" do
+      page(:recursive_parts).should render('<r:content />').with_error("Recursion error: already rendering the `body' part.")
+    end
+
+    it "should prevent deep recursion" do
+      page(:recursive_parts).should render('<r:content part="one"/>').with_error("Recursion error: already rendering the `one' part.")
+      page(:recursive_parts).should render('<r:content part="two"/>').with_error("Recursion error: already rendering the `two' part.")
+    end
+
+    describe "with inherit attribute" do
+      it "missing or set to 'false' should render the current page's part" do
+        page.should render('<r:content part="sidebar" />').as('')
+        page.should render('<r:content part="sidebar" inherit="false" />').as('')
+      end
+
+      describe "set to 'true'" do
+        it "should render an ancestor's part" do
+          page.should render('<r:content part="sidebar" inherit="true" />').as('Assorted sidebar.')
+        end
+        it "should render nothing when no ancestor has the part" do
+          page.should render('<r:content part="part_that_doesnt_exist" inherit="true" />').as('')
+        end
+
+        describe "and contextual attribute" do
+          it "set to 'true' should render the part in the context of the current page" do
+            page(:parent).should render('<r:content part="sidebar" inherit="true" contextual="true" />').as('Parent sidebar.')
+            page(:child).should render('<r:content part="sidebar" inherit="true" contextual="true" />').as('Child sidebar.')
+            page(:grandchild).should render('<r:content part="sidebar" inherit="true" contextual="true" />').as('Grandchild sidebar.')
+          end
+
+          it "set to 'false' should render the part in the context of its containing page" do
+            page(:parent).should render('<r:content part="sidebar" inherit="true" contextual="false" />').as('Home sidebar.')
+          end
+
+          it "should maintain the global page" do
+            page(:first)
+            page.should render('<r:content part="titles" inherit="true" contextual="true"/>').as('First First')
+            page.should render('<r:content part="titles" inherit="true" contextual="false"/>').as('Home First')
+          end
+        end
+      end
+
+      it "set to an erroneous value should render an error" do
+        page.should render('<r:content part="sidebar" inherit="weird value" />').with_error(%{`inherit' attribute of `content' tag must be set to either "true" or "false"})
+      end
+
+      it "should render parts with respect to the current contextual page" do
+        expected = "Child body. Child 2 body. Child 3 body. "
+        page(:parent).should render('<r:children:each><r:content /> </r:children:each>').as(expected)
+      end
+    end
+  end
+
+  describe "<r:if_content>" do
+ 
+    it "without 'part' attribute should render the contained block if the 'body' part exists" do
+      page.should render('<r:if_content>true</r:if_content>').as('true')
+    end
+
+    it "should render the contained block if the specified part exists" do
+      page.should render('<r:if_content part="body">true</r:if_content>').as('true')
+    end
+
+    it "should not render the contained block if the specified part does not exist" do
+      page.should render('<r:if_content part="asdf">true</r:if_content>').as('')
+    end
+
+    describe "with more than one part given (separated by comma)" do
+      
+      it "should render the contained block only if all specified parts exist" do
+        page(:home).should render('<r:if_content part="body, extended">true</r:if_content>').as('true')
+      end
+    
+      it "should not render the contained block if at least one of the specified parts does not exist" do
+        page(:home).should render('<r:if_content part="body, madeup">true</r:if_content>').as('')
+      end
+      
+      describe "with inherit attribute set to 'true'" do
+        it 'should render the contained block if the current or ancestor pages have the specified parts' do
+          page(:guests).should render('<r:if_content part="favors, extended" inherit="true">true</r:if_content>').as('true')
+        end
+      
+        it 'should not render the contained block if the current or ancestor pages do not have all of the specified parts' do
+          page(:guests).should render('<r:if_content part="favors, madeup" inherit="true">true</r:if_content>').as('')
+        end
+      end
+      describe "with inherit attribute set to 'false'" do
+        it 'should render the contained block if the current page has the specified parts' do
+          page(:guests).should render('<r:if_content part="favors, games" inherit="false">true</r:if_content>').as('')
+        end
+      
+        it 'should not render the contained block if the current or ancestor pages do not have all of the specified parts' do
+          page(:guests).should render('<r:if_content part="favors, madeup" inherit="false">true</r:if_content>').as('')
+        end
+      end
+      describe "with the 'find' attribute set to 'any'" do
+        it "should render the contained block if any of the specified parts exist" do
+          page.should render('<r:if_content part="body, asdf" find="any">true</r:if_content>').as('true')
+        end
+      end
+      describe "with the 'find' attribute set to 'all'" do
+        it "should render the contained block if all of the specified parts exist" do
+          page(:home).should render('<r:if_content part="body, sidebar" find="all">true</r:if_content>').as('true')
+        end
+        
+        it "should not render the contained block if all of the specified parts do not exist" do
+          page.should render('<r:if_content part="asdf, madeup" find="all">true</r:if_content>').as('')
+        end
+      end
+    end
+  end
+
+  describe "<r:unless_content>" do
+    describe "with inherit attribute set to 'true'" do
+      it 'should not render the contained block if the current or ancestor pages have the specified parts' do
+        page(:guests).should render('<r:unless_content part="favors, extended" inherit="true">true</r:unless_content>').as('')
+      end
+      
+      it 'should render the contained block if the current or ancestor pages do not have the specified parts' do
+        page(:guests).should render('<r:unless_content part="madeup, imaginary" inherit="true">true</r:unless_content>').as('true')
+      end
+
+      it "should not render the contained block if the specified part does not exist but does exist on an ancestor" do
+        page.should render('<r:unless_content part="sidebar" inherit="true">false</r:unless_content>').as('')
+      end
+    end
+    
+    it "without 'part' attribute should not render the contained block if the 'body' part exists" do
+      page.should render('<r:unless_content>false</r:unless_content>').as('')
+    end
+
+    it "should not render the contained block if the specified part exists" do
+      page.should render('<r:unless_content part="body">false</r:unless_content>').as('')
+    end
+
+    it "should render the contained block if the specified part does not exist" do
+      page.should render('<r:unless_content part="asdf">false</r:unless_content>').as('false')
+    end
+
+    it "should render the contained block if the specified part does not exist but does exist on an ancestor" do
+      page.should render('<r:unless_content part="sidebar">false</r:unless_content>').as('false')
+    end
+    
+    describe "with more than one part given (separated by comma)" do
+    
+      it "should not render the contained block if all of the specified parts exist" do
+        page(:home).should render('<r:unless_content part="body, extended">true</r:unless_content>').as('')
+      end
+    
+      it "should render the contained block if at least one of the specified parts exists" do
+        page(:home).should render('<r:unless_content part="body, madeup">true</r:unless_content>').as('true')
+      end
+      
+      describe "with the 'inherit' attribute set to 'true'" do
+        it "should render the contained block if the current or ancestor pages have none of the specified parts" do
+          page.should render('<r:unless_content part="imaginary, madeup" inherit="true">true</r:unless_content>').as('true')
+        end
+        
+        it "should not render the contained block if all of the specified parts are present on the current or ancestor pages" do
+          page(:party).should render('<r:unless_content part="favors, extended" inherit="true">true</r:unless_content>').as('')
+        end
+      end
+      
+      describe "with the 'find' attribute set to 'all'" do
+        it "should not render the contained block if all of the specified parts exist" do
+          page(:home).should render('<r:unless_content part="body, sidebar" find="all">true</r:unless_content>').as('')
+        end
+
+        it "should render the contained block unless all of the specified parts exist" do
+          page.should render('<r:unless_content part="body, madeup" find="all">true</r:unless_content>').as('true')
+        end
+      end
+      
+      describe "with the 'find' attribute set to 'any'" do
+        it "should not render the contained block if any of the specified parts exist" do
+          page.should render('<r:unless_content part="body, madeup" find="any">true</r:unless_content>').as('')
+        end
+      end
+    end
+  end
+
+  describe "<r:author>" do
+    it "should render the author of the current page" do
+      page.should render('<r:author />').as('Admin')
+    end
+
+    it "should render nothing when the page has no author" do
+      page(:no_user).should render('<r:author />').as('')
+    end
+  end
+
+  describe "<r:date>" do
+    before :each do
+      page(:dated)
+    end
+
+    it "should render the published date of the page" do
+      page.should render('<r:date />').as('Wednesday, January 11, 2006')
+    end
+
+    it "should format the published date according to the 'format' attribute" do
+      page.should render('<r:date format="%d %b %Y" />').as('11 Jan 2006')
+    end
+
+    describe "with 'for' attribute" do
+      it "set to 'now' should render the current date" do
+        page.should render('<r:date for="now" />').as(Time.now.strftime("%A, %B %d, %Y"))
+      end
+
+      it "set to 'created_at' should render the creation date" do
+        page.should render('<r:date for="created_at" />').as('Tuesday, January 10, 2006')
+      end
+
+      it "set to 'updated_at' should render the update date" do
+        page.should render('<r:date for="updated_at" />').as('Thursday, January 12, 2006')
+      end
+
+      it "set to 'published_at' should render the publish date" do
+        page.should render('<r:date for="published_at" />').as('Wednesday, January 11, 2006')
+      end
+
+      it "set to an invalid attribute should render an error" do
+        page.should render('<r:date for="blah" />').with_error("Invalid value for 'for' attribute.")
+      end
+    end
+
+    it "should use the currently set timezone" do
+      Time.zone = "Tokyo"
+      format = "%H:%m"
+      expected = page.published_at.in_time_zone(ActiveSupport::TimeZone['Tokyo']).strftime(format)
+      page.should render(%Q(<r:date format="#{format}" />) ).as(expected)
+    end
+  end
+
+  describe "<r:link>" do
+    it "should render a link to the current page" do
+      page.should render('<r:link />').as('<a href="/assorted/">Assorted</a>')
+    end
+
+    it "should render its contents as the text of the link" do
+      page.should render('<r:link>Test</r:link>').as('<a href="/assorted/">Test</a>')
+    end
+
+    it "should pass HTML attributes to the <a> tag" do
+      expected = '<a href="/assorted/" class="test" id="assorted">Assorted</a>'
+      page.should render('<r:link class="test" id="assorted" />').as(expected)
+    end
+
+    it "should add the anchor attribute to the link as a URL anchor" do
+      page.should render('<r:link anchor="test">Test</r:link>').as('<a href="/assorted/#test">Test</a>')
+    end
+
+    it "should render a link for the current contextual page" do
+      expected = %{<a href="/parent/child/">Child</a> <a href="/parent/child-2/">Child 2</a> <a href="/parent/child-3/">Child 3</a> }
+      page(:parent).should render('<r:children:each><r:link /> </r:children:each>' ).as(expected)
+    end
+
+    it "should scope the link within the relative URL root" do
+      page(:assorted).should render('<r:link />').with_relative_root('/foo').as('<a href="/foo/assorted/">Assorted</a>')
+    end
+  end
+
+  describe "<r:snippet>" do
+    it "should render the contents of the specified snippet" do
+      page.should render('<r:snippet name="first" />').as('test')
+    end
+
+    it "should render an error when the snippet does not exist" do
+      page.should render('<r:snippet name="non-existant" />').with_error('snippet not found')
+    end
+
+    it "should render an error when not given a 'name' attribute" do
+      page.should render('<r:snippet />').with_error("`snippet' tag must contain `name' attribute")
+    end
+
+    it "should filter the snippet with its assigned filter" do
+      page.should render('<r:page><r:snippet name="markdown" /></r:page>').matching(%r{<p><strong>markdown</strong></p>})
+    end
+
+    it "should maintain the global page inside the snippet" do
+      page(:parent).should render('<r:snippet name="global_page_cascade" />').as("#{@page.title} " * @page.children.count)
+    end
+
+    it "should maintain the global page when the snippet renders recursively" do
+      page(:child).should render('<r:snippet name="recursive" />').as("Great GrandchildGrandchildChild")
+    end
+
+    it "should render the specified snippet when called as an empty double-tag" do
+      page.should render('<r:snippet name="first"></r:snippet>').as('test')
+    end
+
+    it "should capture contents of a double tag, substituting for <r:yield/> in snippet" do
+      page.should render('<r:snippet name="yielding">inner</r:snippet>').
+        as('Before...inner...and after')
+    end
+    
+    it "should do nothing with contents of double tag when snippet doesn't yield" do
+      page.should render('<r:snippet name="first">content disappears!</r:snippet>').
+        as('test')
+    end
+
+    it "should render nested yielding snippets" do
+      page.should render('<r:snippet name="div_wrap"><r:snippet name="yielding">Hello, World!</r:snippet></r:snippet>').
+      as('<div>Before...Hello, World!...and after</div>')
+    end
+    
+    it "should render double-tag snippets called from within a snippet" do
+      page.should render('<r:snippet name="nested_yields">the content</r:snippet>').
+        as('<snippet name="div_wrap">above the content below</snippet>')
+    end
+    
+    it "should render contents each time yield is called" do
+      page.should render('<r:snippet name="yielding_often">French</r:snippet>').
+        as('French is Frencher than French')
+    end
+  end
+
+  it "should do nothing when called from page body" do
+    page.should render('<r:yield/>').as("")
+  end
+
+  it '<r:random> should render a randomly selected contained <r:option>' do
+    page.should render("<r:random> <r:option>1</r:option> <r:option>2</r:option> <r:option>3</r:option> </r:random>").matching(/^(1|2|3)$/)
+  end
+  
+  it '<r:random> should render a randomly selected, dynamically set <r:option>' do
+    page(:parent).should render("<r:random:children:each:option:title />").matching(/^(Child|Child\ 2|Child\ 3)$/)
+  end
+
+  it '<r:comment> should render nothing it contains' do
+    page.should render('just a <r:comment>small </r:comment>test').as('just a test')
+  end
+
+  describe "<r:navigation>" do
+    it "should render the nested <r:normal> tag by default" do
+      tags = %{<r:navigation urls="Home: / | Assorted: /assorted/ | Parent: /parent/">
+                 <r:normal><r:title /></r:normal>
+               </r:navigation>}
+      expected = %{Home Assorted Parent}
+      page.should render(tags).as(expected)
+    end
+
+    it "should render the nested <r:selected> tag for URLs that match the current page" do
+      tags = %{<r:navigation urls="Home: / | Assorted: /assorted/ | Parent: /parent/ | Radius: /radius/">
+                 <r:normal><r:title /></r:normal>
+                 <r:selected><strong><r:title/></strong></r:selected>
+               </r:navigation>}
+      expected = %{<strong>Home</strong> Assorted <strong>Parent</strong> Radius}
+      page(:parent).should render(tags).as(expected)
+    end
+
+    it "should render the nested <r:here> tag for URLs that exactly match the current page" do
+      tags = %{<r:navigation urls="Home: Boy: / | Assorted: /assorted/ | Parent: /parent/">
+                 <r:normal><a href="<r:url />"><r:title /></a></r:normal>
+                 <r:here><strong><r:title /></strong></r:here>
+                 <r:selected><strong><a href="<r:url />"><r:title /></a></strong></r:selected>
+                 <r:between> | </r:between>
+               </r:navigation>}
+      expected = %{<strong><a href="/">Home: Boy</a></strong> | <strong>Assorted</strong> | <a href="/parent/">Parent</a>}
+      page.should render(tags).as(expected)
+    end
+
+    it "should render the nested <r:between> tag between each link" do
+      tags = %{<r:navigation urls="Home: / | Assorted: /assorted/ | Parent: /parent/">
+                 <r:normal><r:title /></r:normal>
+                 <r:between> :: </r:between>
+               </r:navigation>}
+      expected = %{Home :: Assorted :: Parent}
+      page.should render(tags).as(expected)
+    end
+
+    it 'without urls should render nothing' do
+      page.should render(%{<r:navigation><r:normal /></r:navigation>}).as('')
+    end
+
+    it 'without a nested <r:normal> tag should render an error' do
+      page.should render(%{<r:navigation urls="something:here"></r:navigation>}).with_error( "`navigation' tag must include a `normal' tag")
+    end
+
+    it 'with urls without trailing slashes should match corresponding pages' do
+      tags = %{<r:navigation urls="Home: / | Assorted: /assorted | Parent: /parent | Radius: /radius">
+                 <r:normal><r:title /></r:normal>
+                 <r:here><strong><r:title /></strong></r:here>
+               </r:navigation>}
+      expected = %{Home <strong>Assorted</strong> Parent Radius}
+      page.should render(tags).as(expected)
+    end
+
+    it 'should prune empty blocks' do
+      tags = %{<r:navigation urls="Home: Boy: / | Archives: /archive/ | Radius: /radius/ | Docs: /documentation/">
+                 <r:normal><a href="<r:url />"><r:title /></a></r:normal>
+                 <r:here></r:here>
+                 <r:selected><strong><a href="<r:url />"><r:title /></a></strong></r:selected>
+                 <r:between> | </r:between>
+               </r:navigation>}
+      expected = %{<strong><a href="/">Home: Boy</a></strong> | <a href="/archive/">Archives</a> | <a href="/documentation/">Docs</a>}
+      page(:radius).should render(tags).as(expected)
+    end
+
+    it 'should render text under <r:if_first> and <r:if_last> only on the first and last item, respectively' do
+      tags = %{<r:navigation urls="Home: / | Assorted: /assorted | Parent: /parent | Radius: /radius">
+                 <r:normal><r:if_first>(</r:if_first><a href="<r:url />"><r:title /></a><r:if_last>)</r:if_last></r:normal>
+                 <r:here><r:if_first>(</r:if_first><r:title /><r:if_last>)</r:if_last></r:here>
+                 <r:selected><r:if_first>(</r:if_first><strong><a href="<r:url />"><r:title /></a></strong><r:if_last>)</r:if_last></r:selected>
+               </r:navigation>}
+      expected = %{(<strong><a href=\"/\">Home</a></strong> <a href=\"/assorted\">Assorted</a> <a href=\"/parent\">Parent</a> Radius)}
+      page(:radius).should render(tags).as(expected)
+    end
+
+    it 'should render text under <r:unless_first> on every item but the first' do
+      tags = %{<r:navigation urls="Home: / | Assorted: /assorted | Parent: /parent | Radius: /radius">
+                 <r:normal><r:unless_first>&gt; </r:unless_first><a href="<r:url />"><r:title /></a></r:normal>
+                 <r:here><r:unless_first>&gt; </r:unless_first><r:title /></r:here>
+                 <r:selected><r:unless_first>&gt; </r:unless_first><strong><a href="<r:url />"><r:title /></a></strong></r:selected>
+               </r:navigation>}
+      expected = %{<strong><a href=\"/\">Home</a></strong> &gt; <a href=\"/assorted\">Assorted</a> &gt; <a href=\"/parent\">Parent</a> &gt; Radius}
+      page(:radius).should render(tags).as(expected)
+    end
+
+    it 'should render text under <r:unless_last> on every item but the last' do
+      tags = %{<r:navigation urls="Home: / | Assorted: /assorted | Parent: /parent | Radius: /radius">
+                 <r:normal><a href="<r:url />"><r:title /></a><r:unless_last> &gt;</r:unless_last></r:normal>
+                 <r:here><r:title /><r:unless_last> &gt;</r:unless_last></r:here>
+                 <r:selected><strong><a href="<r:url />"><r:title /></a></strong><r:unless_last> &gt;</r:unless_last></r:selected>
+               </r:navigation>}
+      expected = %{<strong><a href=\"/\">Home</a></strong> &gt; <a href=\"/assorted\">Assorted</a> &gt; <a href=\"/parent\">Parent</a> &gt; Radius}
+      page(:radius).should render(tags).as(expected)
+    end
+  end
+
+  describe "<r:find>" do
+    it "should change the local page to the page specified in the 'url' attribute" do
+      page.should render(%{<r:find url="/parent/child/"><r:title /></r:find>}).as('Child')
+    end
+
+    it "should render an error without the 'url' attribute" do
+      page.should render(%{<r:find />}).with_error("`find' tag must contain `url' attribute")
+    end
+
+    it "should render nothing when the 'url' attribute does not point to a page" do
+      page.should render(%{<r:find url="/asdfsdf/"><r:title /></r:find>}).as('')
+    end
+
+    it "should render nothing when the 'url' attribute does not point to a page and a custom 404 page exists" do
+      page.should render(%{<r:find url="/gallery/asdfsdf/"><r:title /></r:find>}).as('')
+    end
+
+    it "should scope contained tags to the found page" do
+      page.should render(%{<r:find url="/parent/"><r:children:each><r:slug /> </r:children:each></r:find>}).as('child child-2 child-3 ')
+    end
+
+    it "should accept a path relative to the current page" do
+      page(:great_grandchild).should render(%{<r:find url="../../../child-2"><r:title/></r:find>}).as("Child 2")
+    end
+  end
+
+  it '<r:escape_html> should escape HTML-related characters into entities' do
+    page.should render('<r:escape_html><strong>a bold move</strong></r:escape_html>').as('&lt;strong&gt;a bold move&lt;/strong&gt;')
+  end
+
+  it '<r:rfc1123_date> should render an RFC1123-compatible date' do
+    page(:dated).should render('<r:rfc1123_date />').as('Wed, 11 Jan 2006 00:00:00 GMT')
+  end
+
+  describe "<r:breadcrumbs>" do
+    it "should render a series of breadcrumb links separated by &gt;" do
+      expected = %{<a href="/">Home</a> &gt; <a href="/parent/">Parent</a> &gt; <a href="/parent/child/">Child</a> &gt; <a href="/parent/child/grandchild/">Grandchild</a> &gt; Great Grandchild}
+      page(:great_grandchild).should render('<r:breadcrumbs />').as(expected)
+    end
+
+    it "with a 'separator' attribute should use the separator instead of &gt;" do
+      expected = %{<a href="/">Home</a> :: Parent}
+      page(:parent).should render('<r:breadcrumbs separator=" :: " />').as(expected)
+    end
+
+    it "with a 'nolinks' attribute set to 'true' should not render links" do
+      expected = %{Home &gt; Parent}
+      page(:parent).should render('<r:breadcrumbs nolinks="true" />').as(expected)
+    end
+
+    it "with a relative URL root should scope links to the relative root" do
+      expected = '<a href="/foo/">Home</a> &gt; Assorted'
+      page(:assorted).should render('<r:breadcrumbs />').with_relative_root('/foo').as(expected)
+    end
+  end
+
+  describe "<r:if_url>" do
+    describe "with 'matches' attribute" do
+      it "should render the contained block if the page URL matches" do
+        page.should render('<r:if_url matches="a.sorted/$">true</r:if_url>').as('true')
+      end
+
+      it "should not render the contained block if the page URL does not match" do
+        page.should render('<r:if_url matches="fancypants">true</r:if_url>').as('')
+      end
+
+      it "set to a malformatted regexp should render an error" do
+        page.should render('<r:if_url matches="as(sorted/$">true</r:if_url>').with_error("Malformed regular expression in `matches' argument of `if_url' tag: unmatched (: /as(sorted\\/$/")
+      end
+
+      it "without 'ignore_case' attribute should ignore case by default" do
+        page.should render('<r:if_url matches="asSorted/$">true</r:if_url>').as('true')
+      end
+
+      describe "with 'ignore_case' attribute" do
+        it "set to 'true' should use a case-insensitive match" do
+          page.should render('<r:if_url matches="asSorted/$" ignore_case="true">true</r:if_url>').as('true')
+        end
+
+        it "set to 'false' should use a case-sensitive match" do
+          page.should render('<r:if_url matches="asSorted/$" ignore_case="false">true</r:if_url>').as('')
+        end
+      end
+    end
+
+    it "with no attributes should render an error" do
+      page.should render('<r:if_url>test</r:if_url>').with_error("`if_url' tag must contain a `matches' attribute.")
+    end
+  end
+
+  describe "<r:unless_url>" do
+    describe "with 'matches' attribute" do
+      it "should not render the contained block if the page URL matches" do
+        page.should render('<r:unless_url matches="a.sorted/$">true</r:unless_url>').as('')
+      end
+
+      it "should render the contained block if the page URL does not match" do
+        page.should render('<r:unless_url matches="fancypants">true</r:unless_url>').as('true')
+      end
+
+      it "set to a malformatted regexp should render an error" do
+        page.should render('<r:unless_url matches="as(sorted/$">true</r:unless_url>').with_error("Malformed regular expression in `matches' argument of `unless_url' tag: unmatched (: /as(sorted\\/$/")
+      end
+
+      it "without 'ignore_case' attribute should ignore case by default" do
+        page.should render('<r:unless_url matches="asSorted/$">true</r:unless_url>').as('')
+      end
+
+      describe "with 'ignore_case' attribute" do
+        it "set to 'true' should use a case-insensitive match" do
+          page.should render('<r:unless_url matches="asSorted/$">true</r:unless_url>').as('')
+        end
+
+        it "set to 'false' should use a case-sensitive match" do
+          page.should render('<r:unless_url matches="asSorted/$" ignore_case="false">true</r:unless_url>').as('true')
+        end
+      end
+    end
+
+    it "with no attributes should render an error" do
+      page.should render('<r:unless_url>test</r:unless_url>').with_error("`unless_url' tag must contain a `matches' attribute.")
+    end
+  end
+
+  describe "<r:cycle>" do
+    it "should render passed values in succession" do
+      page.should render('<r:cycle values="first, second" /> <r:cycle values="first, second" />').as('first second')
+    end
+
+    it "should return to the beginning of the cycle when reaching the end" do
+      page.should render('<r:cycle values="first, second" /> <r:cycle values="first, second" /> <r:cycle values="first, second" />').as('first second first')
+    end
+
+    it "should use a default cycle name of 'cycle'" do
+      page.should render('<r:cycle values="first, second" /> <r:cycle values="first, second" name="cycle" />').as('first second')
+    end
+
+    it "should maintain separate cycle counters" do
+      page.should render('<r:cycle values="first, second" /> <r:cycle values="one, two" name="numbers" /> <r:cycle values="first, second" /> <r:cycle values="one, two" name="numbers" />').as('first one second two')
+    end
+
+    it "should reset the counter" do
+      page.should render('<r:cycle values="first, second" /> <r:cycle values="first, second" reset="true"/>').as('first first')
+    end
+
+    it "should require the values attribute" do
+      page.should render('<r:cycle />').with_error("`cycle' tag must contain a `values' attribute.")
+    end
+  end
+
+  describe "<r:if_dev>" do
+    it "should render the contained block when on the dev site" do
+      page.should render('-<r:if_dev>dev</r:if_dev>-').as('-dev-').on('dev.site.com')
+    end
+
+    it "should not render the contained block when not on the dev site" do
+      page.should render('-<r:if_dev>dev</r:if_dev>-').as('--')
+    end
+
+    describe "on an included page" do
+      it "should render the contained block when on the dev site" do
+        page.should render('-<r:find url="/devtags/"><r:content part="if_dev" /></r:find>-').as('-dev-').on('dev.site.com')
+      end
+
+      it "should not render the contained block when not on the dev site" do
+        page.should render('-<r:find url="/devtags/"><r:content part="if_dev" /></r:find>-').as('--')
+      end
+    end
+  end
+
+  describe "<r:unless_dev>" do
+    it "should not render the contained block when not on the dev site" do
+      page.should render('-<r:unless_dev>not dev</r:unless_dev>-').as('--').on('dev.site.com')
+    end
+
+    it "should render the contained block when not on the dev site" do
+      page.should render('-<r:unless_dev>not dev</r:unless_dev>-').as('-not dev-')
+    end
+
+    describe "on an included page" do
+      it "should not render the contained block when not on the dev site" do
+        page.should render('-<r:find url="/devtags/"><r:content part="unless_dev" /></r:find>-').as('--').on('dev.site.com')
+      end
+
+      it "should render the contained block when not on the dev site" do
+        page.should render('-<r:find url="/devtags/"><r:content part="unless_dev" /></r:find>-').as('-not dev-')
+      end
+    end
+  end
+
+  describe "<r:status>" do
+    it "should render the status of the current page" do
+      status_tag = "<r:status/>"
+      page(:a).should render(status_tag).as("Published")
+      page(:hidden).should render(status_tag).as("Hidden")
+      page(:draft).should render(status_tag).as("Draft")
+    end
+
+    describe "with the downcase attribute set to 'true'" do
+      it "should render the lowercased status of the current page" do
+        status_tag_lc = "<r:status downcase='true'/>"
+        page(:a).should render(status_tag_lc).as("published")
+        page(:hidden).should render(status_tag_lc).as("hidden")
+        page(:draft).should render(status_tag_lc).as("draft")
+      end
+    end
+  end
+
+  describe "<r:if_ancestor_or_self>" do
+    it "should render the tag's content when the current page is an ancestor of tag.locals.page" do
+      page(:radius).should render(%{<r:find url="/"><r:if_ancestor_or_self>true</r:if_ancestor_or_self></r:find>}).as('true')
+    end
+
+    it "should not render the tag's content when current page is not an ancestor of tag.locals.page" do
+      page(:parent).should render(%{<r:find url="/radius"><r:if_ancestor_or_self>true</r:if_ancestor_or_self></r:find>}).as('')
+    end
+  end
+  
+  describe "<r:unless_ancestor_or_self>" do
+    it "should render the tag's content when the current page is not an ancestor of tag.locals.page" do
+      page(:parent).should render(%{<r:find url="/radius"><r:unless_ancestor_or_self>true</r:unless_ancestor_or_self></r:find>}).as('true')
+    end
+
+    it "should not render the tag's content when current page is an ancestor of tag.locals.page" do
+      page(:radius).should render(%{<r:find url="/"><r:unless_ancestor_or_self>true</r:unless_ancestor_or_self></r:find>}).as('')
+    end
+  end
+
+  describe "<r:if_self>" do
+    it "should render the tag's content when the current page is the same as the local contextual page" do
+      page(:home).should render(%{<r:find url="/"><r:if_self>true</r:if_self></r:find>}).as('true')
+    end
+
+    it "should not render the tag's content when the current page is not the same as the local contextual page" do
+      page(:radius).should render(%{<r:find url="/"><r:if_self>true</r:if_self></r:find>}).as('')
+    end
+  end
+  
+  describe "<r:unless_self>" do
+    it "should render the tag's content when the current page is not the same as the local contextual page" do
+      page(:radius).should render(%{<r:find url="/"><r:unless_self>true</r:unless_self></r:find>}).as('true')
+    end
+
+    it "should not render the tag's content when the current page is the same as the local contextual page" do
+      page(:home).should render(%{<r:find url="/"><r:unless_self>true</r:unless_self></r:find>}).as('')
+    end
+  end
+
+  describe "<r:meta>" do
+    it "should render <meta> tags for the description and keywords" do
+      page(:home).should render('<r:meta/>').as(%{<meta name="description" content="The homepage" /><meta name="keywords" content="Home, Page" />})
+    end
+
+    it "should render <meta> tags with escaped values for the description and keywords" do
+      page.should render('<r:meta/>').as(%{<meta name="description" content="sweet &amp; harmonious biscuits" /><meta name="keywords" content="sweet &amp; harmonious biscuits" />})
+    end
+
+    describe "with 'tag' attribute set to 'false'" do
+      it "should render the contents of the description and keywords" do
+        page(:home).should render('<r:meta tag="false" />').as(%{The homepageHome, Page})
+      end
+
+      it "should escape the contents of the description and keywords" do
+        page.should render('<r:meta tag="false" />').as("sweet &amp; harmonious biscuitssweet &amp; harmonious biscuits")
+      end
+    end
+  end
+
+  describe "<r:meta:description>" do
+    it "should render a <meta> tag for the description" do
+      page(:home).should render('<r:meta:description/>').as(%{<meta name="description" content="The homepage" />})
+    end
+
+    it "should render a <meta> tag with escaped value for the description" do
+      page.should render('<r:meta:description />').as(%{<meta name="description" content="sweet &amp; harmonious biscuits" />})
+    end
+
+    describe "with 'tag' attribute set to 'false'" do
+      it "should render the contents of the description" do
+        page(:home).should render('<r:meta:description tag="false" />').as(%{The homepage})
+      end
+
+      it "should escape the contents of the description" do
+        page.should render('<r:meta:description tag="false" />').as("sweet &amp; harmonious biscuits")
+      end
+    end
+  end
+
+  describe "<r:meta:keywords>" do
+    it "should render a <meta> tag for the keywords" do
+      page(:home).should render('<r:meta:keywords/>').as(%{<meta name="keywords" content="Home, Page" />})
+    end
+
+    it "should render a <meta> tag with escaped value for the keywords" do
+      page.should render('<r:meta:keywords />').as(%{<meta name="keywords" content="sweet &amp; harmonious biscuits" />})
+    end
+
+    describe "with 'tag' attribute set to 'false'" do
+      it "should render the contents of the keywords" do
+        page(:home).should render('<r:meta:keywords tag="false" />').as(%{Home, Page})
+      end
+
+      it "should escape the contents of the keywords" do
+        page.should render('<r:meta:keywords tag="false" />').as("sweet &amp; harmonious biscuits")
+      end
+    end
+  end
+
+  private
+
+    def page(symbol = nil)
+      if symbol.nil?
+        @page ||= pages(:assorted)
+      else
+        @page = pages(symbol)
+      end
+    end
+    
+    def page_children_each_tags(attr = nil)
+      attr = ' ' + attr unless attr.nil?
+      "<r:children:each#{attr}><r:slug /> </r:children:each>"
+    end
+
+    def page_children_first_tags(attr = nil)
+      attr = ' ' + attr unless attr.nil?
+      "<r:children:first#{attr}><r:slug /></r:children:first>"
+    end
+
+    def page_children_last_tags(attr = nil)
+      attr = ' ' + attr unless attr.nil?
+      "<r:children:last#{attr}><r:slug /></r:children:last>"
+    end
+
+    def page_eachable_children(page)
+      page.children.select(&:published?).reject(&:virtual)
+    end
+end