radiant 0.5.2 → 0.6.0

data/test/unit/response_cache_test.rb

@@ -5,15 +5,17 @@ class ResponseCacheTest < Test::Unit::TestCase
     def method_missing(*args); end
   end
   
-  class TestResponse
-    attr_accessor :headers, :body
+  class TestResponse < ActionController::TestResponse
     def initialize(body = '', headers = {})
-      @body, @headers = body, headers
+      self.body = body
+      self.headers = headers
     end
   end
   
   def setup
     @dir = "#{RAILS_ROOT}/test/cache"
+    @old_perform_caching = ResponseCache.defaults[:perform_caching]
+    ResponseCache.defaults[:perform_caching] = true
     @cache = ResponseCache.new(
       :directory => @dir,
       :perform_caching => true
@@ -22,6 +24,7 @@ class ResponseCacheTest < Test::Unit::TestCase
   end
   
   def teardown
+    ResponseCache.defaults[:perform_caching] = @old_preform_caching
     FileUtils.rm_rf @dir if File.exists? @dir
   end
   
@@ -30,7 +33,7 @@ class ResponseCacheTest < Test::Unit::TestCase
     assert_equal   "#{RAILS_ROOT}/cache", @cache.directory
     assert_equal   5.minutes,             @cache.expire_time
     assert_equal   '.yml',                @cache.default_extension
-    assert_equal   false,                 @cache.perform_caching
+    assert_equal   true,                  @cache.perform_caching
     assert_kind_of Logger,                @cache.logger
   end
   
@@ -52,36 +55,46 @@ class ResponseCacheTest < Test::Unit::TestCase
   def test_cache_response
     ['test/me', '/test/me', 'test/me/', '/test/me/', 'test//me'].each do |url|
       @cache.clear
-      @cache.cache_response(url, response('content'))
-      name = "#{@dir}/test/me.html"
+      response = response('content', 'Last-Modified' => 'Tue, 27 Feb 2007 06:13:43 GMT')
+      response.cache_timeout = Time.gm(2007, 2, 8, 17, 37, 9)
+      @cache.cache_response(url, response)
+      name = "#{@dir}/test/me.yml"
       assert File.exists?(name), "url: #{url}"
-      assert_equal "--- \nbody: content\nheaders: {}", file(name), "url: #{url}"
+      assert_equal "--- \nexpires: 2007-02-08 17:37:09 Z\nheaders: \n  Last-Modified: Tue, 27 Feb 2007 06:13:43 GMT\n", file(name), "url: #{url}"
+      data_name = "#{@dir}/test/me.data"
+      assert_equal "content", file(data_name), "url: #{url}"
     end
   end
+  
+  def test_cache_response_with_extension
+    @cache.cache_response("styles.css", response('content'))
+    assert File.exists?("#{@dir}/styles.css.yml")
+  end
+  
   def test_cache_response_without_caching
     @cache.perform_caching = false
     @cache.cache_response('test', response('content'))
     assert !File.exists?("#{@dir}/test.yml")
   end
   
-  def test_cache_response
+  def test_update_response
     @cache.cache_response('/test/me', response('content'))
     ['test/me', '/test/me', 'test/me/', '/test/me/', 'test//me'].each do |url|
-      assert_equal 'content', @cache.update_response(url, response).body, "url: #{url}"
+      assert_equal 'content', @cache.update_response(url, response, ActionController::TestRequest).body, "url: #{url}"
     end
   end
   def test_update_response__nonexistant
-    assert_equal '', @cache.update_response('nothing/here', response).body
+    assert_equal '', @cache.update_response('nothing/here', response, ActionController::TestRequest).body
   end
   def test_update_response_without_caching
     @cache.cache_response('/test/me', response('content'))
     @cache.perform_caching = false
-    assert_equal '', @cache.update_response('/test/me', response).body
+    assert_equal '', @cache.update_response('/test/me', response, ActionController::TestRequest).body
   end
   
   def test_cache
     result = @cache.cache_response('test', response('content', 'Content-Type' => 'text/plain'))
-    cached = @cache.update_response('test', response)
+    cached = @cache.update_response('test', response, ActionController::TestRequest)
     assert_equal 'content', cached.body
     assert_equal 'text/plain', cached.headers['Content-Type']
     assert_kind_of TestResponse, result
@@ -90,13 +103,13 @@ class ResponseCacheTest < Test::Unit::TestCase
   def test_expire_response
     @cache.cache_response('test', response('content'))
     @cache.expire_response('test')
-    assert_equal '', @cache.update_response('test', response).body
+    assert_equal '', @cache.update_response('test', response, ActionController::TestRequest).body
   end
   
   def test_clear
     @cache.cache_response('test1', response('content'))
     @cache.cache_response('test2', response('content'))
-    assert_equal 2, Dir["#{@dir}/*"].size
+    assert_equal 4, Dir["#{@dir}/*"].size
     
     @cache.clear
     assert_equal 0, Dir["#{@dir}/*"].size
@@ -113,6 +126,47 @@ class ResponseCacheTest < Test::Unit::TestCase
     sleep 1.5
     assert_equal false, @cache.response_cached?('test')
   end
+  def test_response_cached_timed_out_with_response_setting
+    @cache.expire_time = 1
+    response = response('content')
+    response.cache_timeout = 3.seconds
+    result = @cache.cache_response('test', response)
+    sleep 1.5
+    assert_equal true, @cache.response_cached?('test')
+    sleep 2
+    assert_equal false, @cache.response_cached?('test')
+  end
+  def test_send_using_x_sendfile
+    @cache.use_x_sendfile = true
+    result = @cache.cache_response('test', response('content', 'Content-Type' => 'text/plain'))
+    cached = @cache.update_response('test', response, ActionController::TestRequest)
+    assert_equal '', cached.body
+    assert_equal "#{@dir}/test.data", cached.headers['X-Sendfile']
+    assert_equal 'text/plain', cached.headers['Content-Type']
+    assert_kind_of TestResponse, result
+  end
+  def test_send_cached_page_with_last_modified
+    last_modified = Time.now.httpdate
+    result = @cache.cache_response('test', response('content', 'Last-Modified' => last_modified))
+    request = ActionController::TestRequest.new
+    request.env = { 'HTTP_IF_MODIFIED_SINCE' => last_modified }
+    second_call = @cache.update_response('test', response, request)
+    assert_match /^304/, second_call.headers['Status']
+    assert_equal '', second_call.body
+    assert_kind_of TestResponse, result
+  end
+  def test_send_cached_page_with_old_last_modified
+    last_modified = Time.now.httpdate
+    result = @cache.cache_response('test', response('content', 'Last-Modified' => last_modified))
+    request = ActionController::TestRequest.new
+    request.env = { 'HTTP_IF_MODIFIED_SINCE' => 5.minutes.ago.httpdate }
+    second_call = @cache.update_response('test', response, request)
+    assert_equal 'content', second_call.body
+    assert_kind_of TestResponse, result
+  end
+
+  
+
   
   # Class Methods
   
@@ -130,4 +184,4 @@ class ResponseCacheTest < Test::Unit::TestCase
       TestResponse.new(*args)
     end
   
-end
+end

data/test/unit/simpleton_test.rb

@@ -0,0 +1,42 @@
+require File.dirname(__FILE__) + '/../test_helper'
+
+class SimpletonTest < Test::Unit::TestCase
+  
+  class TestObject
+    
+    include Simpleton
+    
+    attr_accessor :called
+    
+    def test
+      @called = true
+      :test
+    end
+  end
+  
+  def setup
+    TestObject.instance_variable_set "@instance", nil
+  end
+  
+  def test_instance_class_method
+    assert_kind_of TestObject, TestObject.instance
+    assert_equal TestObject.instance, TestObject.instance
+  end
+  def test_instance_class_method_with_block
+    var = :unchanged
+    TestObject.instance do |i|
+      var = i.test
+    end
+    assert_equal :test, var
+  end
+  
+  def test_method_missing_class_method
+    assert_nothing_raised { TestObject.test }
+    assert TestObject.called
+  end
+  def test_method_missing_class_method_only_calls_methods_that_are_defined_on_instance
+    e = assert_raises(NoMethodError) { TestObject.quack }
+    assert_equal "undefined method `quack' for SimpletonTest::TestObject:Class", e.message
+  end
+  
+end

data/test/unit/standard_tags_test.rb

@@ -0,0 +1,424 @@
+require File.dirname(__FILE__) + '/../test_helper'
+
+class StandardTagsTest < Test::Unit::TestCase
+  
+  fixtures :pages, :page_parts, :layouts, :snippets, :users
+  test_helper :render, :pages
+  
+  def setup
+    @page = pages(:radius)
+  end
+  
+  def test_tag_page
+    assert_renders 'Radius Test Page', '<r:title />'
+    assert_renders 'Ruby Home Page | Radius Test Page', %{<r:find url="/"><r:title /> | <r:page:title /></r:find>}
+  end
+  
+  def test_tags_page_attributes
+    [:breadcrumb, :slug, :title, :url].each do |attr|
+      value = @page.send(attr)
+      assert_renders value.to_s, "<r:#{attr} />"
+    end
+  end
+  
+  def test_tag_children
+    expected = 'Radius Test Child 1 Radius Test Child 2 Radius Test Child 3 '
+    input = '<r:children:each><r:title /> </r:children:each>'
+    assert_renders expected, input
+  end
+  def test_tag_children_each
+    assert_renders 'radius/child-1 radius/child-2 radius/child-3 ' , '<r:children:each><r:page><r:slug />/<r:child:slug /> </r:page></r:children:each>'
+  end
+  def test_tag_children_each_attributes
+    @page = pages(:assorted)
+    assert_renders 'a b c d e f g h i j ', page_children_each_tags
+    assert_renders 'a b c d e ',           page_children_each_tags(%{limit="5"})
+    assert_renders 'd e f g h ',           page_children_each_tags(%{offset="3" limit="5"})
+    assert_renders 'j i h g f e d c b a ', page_children_each_tags(%{order="desc"})
+    assert_renders 'f e d c b a j i h g ', page_children_each_tags(%{by="breadcrumb"})
+    assert_renders 'g h i j a b c d e f ', page_children_each_tags(%{by="breadcrumb" order="desc"})
+  end
+  def test_tag_children_each_with_status_attribute
+    @page = pages(:assorted)
+    assert_render_match /^(draft |)a b c d e f g h i j( draft|) $/, page_children_each_tags(%{status="all"})
+    assert_renders 'draft ', page_children_each_tags(%{status="draft"})
+    assert_renders 'a b c d e f g h i j ', page_children_each_tags(%{status="published"})
+    assert_render_error "`status' attribute of `each' tag must be set to a valid status", page_children_each_tags(%{status="askdf"})
+  end
+  def test_tag_children_each_attributes_with_invalid_limit
+    message = "`limit' attribute of `each' tag must be a positive number between 1 and 4 digits"
+    assert_render_error message, page_children_each_tags(%{limit="a"})
+    assert_render_error message, page_children_each_tags(%{limit="-10"})
+    assert_render_error message, page_children_each_tags(%{limit="50000"})
+  end
+  def test_tag_children_each_attributes_with_invalid_offset
+    message = "`offset' attribute of `each' tag must be a positive number between 1 and 4 digits"
+    assert_render_error message, page_children_each_tags(%{offset="a"})
+    assert_render_error message, page_children_each_tags(%{offset="-10"})
+    assert_render_error message, page_children_each_tags(%{offset="50000"})
+  end
+  def test_tag_children_each_attributes_with_invalid_by_field_name
+    message = "`by' attribute of `each' tag must be set to a valid field name"
+    assert_render_error message, page_children_each_tags(%{by="non-existant-field"})
+  end
+  def test_tag_children_each_attributes_with_invalid_limit
+    message = %{`order' attribute of `each' tag must be set to either "asc" or "desc"}
+    assert_render_error message, page_children_each_tags(%{order="asdf"})
+  end
+  def test_tag_children_each_does_not_list_virtual_pages
+    @page = pages(:archive)
+    assert_renders 'article article-2 article-3 article-4 article-5 ', '<r:children:each><r:slug /> </r:children:each>'
+    assert_render_match /^(draft |)article article-2 article-3 article-4 article-5( draft|) $/, '<r:children:each status="all"><r:slug /> </r:children:each>'
+  end
+  
+  def test_tag_children_each_header
+    @page = pages(:archive)
+    assert_renders '[May/00] article [Jun/00] article-2 article-3 [Aug/00] article-4 [Aug/01] article-5 ', '<r:children:each><r:header>[<r:date format="%b/%y" />] </r:header><r:slug /> </r:children:each>'
+  end
+  def test_tag_children_each_header_with_name_attribute
+    @page = pages(:archive)
+    assert_renders '[2000] (May) article (Jun) article-2 article-3 (Aug) article-4 [2001] article-5 ', %{<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>}  
+  end
+  def test_tag_children_each_header_with_restart_attribute
+    @page = pages(:archive)
+    assert_renders(
+      '[2000] (May) article (Jun) article-2 article-3 (Aug) article-4 [2001] (Aug) article-5 ',
+      %{<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>}
+    )
+    assert_renders(
+      '[2000] (May) <01> article (Jun) <09> article-2 <10> article-3 (Aug) <06> article-4 [2001] (Aug) <06> article-5 ',
+      %{<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>}
+    )
+  end
+  
+  def test_tag_children_count
+    assert_renders '3', '<r:children:count />'
+  end
+  
+  def test_tag_children_first
+    assert_renders 'Radius Test Child 1', '<r:children:first:title />'
+  end
+  def test_tag_children_first_parameters
+    @page = pages(:assorted)
+    assert_renders 'a', page_children_first_tags
+    assert_renders 'a', page_children_first_tags(%{limit="5"})
+    assert_renders 'd', page_children_first_tags(%{offset="3" limit="5"})
+    assert_renders 'j', page_children_first_tags(%{order="desc"})
+    assert_renders 'f', page_children_first_tags(%{by="breadcrumb"})
+    assert_renders 'g', page_children_first_tags(%{by="breadcrumb" order="desc"})
+  end
+  def test_tag_children_first_is_nil
+    @page = pages(:textile)
+    assert_renders '', '<r:children:first:title />'
+  end
+  
+  def test_tag_children_last
+    assert_renders 'Radius Test Child 3', '<r:children:last:title />'
+  end
+  def test_tag_children_last_parameters
+    @page = pages(:assorted)
+    assert_renders 'j', page_children_last_tags
+    assert_renders 'e', page_children_last_tags(%{limit="5"})
+    assert_renders 'h', page_children_last_tags(%{offset="3" limit="5"})
+    assert_renders 'a', page_children_last_tags(%{order="desc"})
+    assert_renders 'g', page_children_last_tags(%{by="breadcrumb"})
+    assert_renders 'f', page_children_last_tags(%{by="breadcrumb" order="desc"})
+  end
+  def test_tag_children_last_nil
+    @page = pages(:textile)
+    assert_renders '', '<r:children:last:title />'
+  end
+  
+  def test_tag_content
+    expected = "<h1>Radius Test Page</h1>\n\n\n\t<ul>\n\t<li>Radius Test Child 1</li>\n\t\t<li>Radius Test Child 2</li>\n\t\t<li>Radius Test Child 3</li>\n\t</ul>"
+    assert_renders expected, '<r:content />'
+  end
+  def test_tag_content_with_part_attribute
+    assert_renders "Just a test.\n", '<r:content part="extended" />'
+  end
+  def test_tag_content_with_inherit_attribute
+    assert_renders '', '<r:content part="sidebar" />'
+    assert_renders '', '<r:content part="sidebar" inherit="false" />'
+    assert_renders 'Radius Test Page sidebar.', '<r:content part="sidebar" inherit="true" />'
+    assert_render_error %{`inherit' attribute of `content' tag must be set to either "true" or "false"}, '<r:content part="sidebar" inherit="weird value" />'
+
+    assert_renders '', '<r:content part="part_that_doesnt_exist" inherit="true" />'
+  end
+  def test_tag_content_with_inherit_and_contextual_attributes
+    assert_renders 'Radius Test Page sidebar.', '<r:content part="sidebar" inherit="true" contextual="true" />'
+    assert_renders 'Ruby Home Page sidebar.', '<r:content part="sidebar" inherit="true" contextual="false" />'
+    
+    @page = pages(:inheritance_test_page_grandchild)
+    assert_renders 'Inheritance Test Page Grandchild inherited body.', '<r:content part="body" inherit="true" contextual="true" />'
+  end
+  
+  def test_tag_child_content
+    expected = "Radius test child 1 body.\nRadius test child 2 body.\nRadius test child 3 body.\n"
+    assert_renders expected, '<r:children:each><r:content /></r:children:each>'
+  end
+  
+  def test_tag_if_content_without_body_attribute
+    assert_renders 'true', '<r:if_content>true</r:if_content>'
+  end
+  def test_tag_if_content_with_body_attribute
+    assert_renders 'true', '<r:if_content part="body">true</r:if_content>'
+  end
+  def test_tag_if_content_with_nonexistant_body_attribute
+    assert_renders '', '<r:if_content part="asdf">true</r:if_content>'
+  end
+  
+  def test_tag_unless_content_without_body_attribute
+    assert_renders '', '<r:unless_content>false</r:unless_content>'
+  end
+  def test_tag_unless_content_with_body_attribute
+    assert_renders '', '<r:unless_content part="body">false</r:unless_content>'
+  end
+  def test_tag_unless_content_with_nonexistant_body_attribute
+    assert_renders 'false', '<r:unless_content part="asdf">false</r:unless_content>'
+  end
+  
+  def test_tag_author
+    assert_renders 'Admin User', '<r:author />'
+  end
+  def test_tag_author_nil
+    @page = pages(:textile)
+    assert_renders '', '<r:author />'
+  end
+  
+  def test_tag_date
+    assert_renders 'Monday, January 30, 2006', '<r:date />'
+  end
+  def test_tag_date_with_format_attribute
+    assert_renders '30 Jan 2006', '<r:date format="%d %b %Y" />'
+  end
+  def test_tag_date_now
+    assert_renders Time.now.strftime("%A, %B %d, %Y"), '<r:date for="now" />'
+  end
+  def test_tag_date_other_attributes
+    assert_renders 'Monday, January 30, 2006', '<r:date for="created_at" />'
+    assert_renders 'Tuesday, January 31, 2006', '<r:date for="updated_at" />'
+    assert_renders 'Monday, January 30, 2006', '<r:date for="published_at" />'
+    assert_render_error "Invalid value for 'when' attribute.", '<r:date for="blah" />'
+  end
+  
+  def test_tag_link
+    assert_renders '<a href="/radius/">Radius Test Page</a>', '<r:link />'
+  end
+  def test_tag_link__attributes
+    expected = '<a href="/radius/" class="test" id="radius">Radius Test Page</a>'
+    assert_renders expected, '<r:link class="test" id="radius" />'
+  end
+  def test_tag_link__block_form
+    assert_renders '<a href="/radius/">Test</a>', '<r:link>Test</r:link>'
+  end
+  def test_tag_link__anchor
+    assert_renders '<a href="/radius/#test">Test</a>', '<r:link anchor="test">Test</r:link>'
+  end
+  def test_tag_child_link
+    expected = "<a href=\"/radius/child-1/\">Radius Test Child 1</a> <a href=\"/radius/child-2/\">Radius Test Child 2</a> <a href=\"/radius/child-3/\">Radius Test Child 3</a> "
+    assert_renders expected, '<r:children:each><r:link /> </r:children:each>' 
+  end
+  
+  def test_tag_snippet
+    assert_renders 'test', '<r:snippet name="first" />'
+  end
+  def test_tag_snippet_not_found
+    assert_render_error 'snippet not found', '<r:snippet name="non-existant" />'
+  end
+  def test_tag_snippet_without_name
+    assert_render_error "`snippet' tag must contain `name' attribute", '<r:snippet />'
+  end
+  def test_tag_snippet_with_markdown
+    assert_renders '<p><strong>markdown</strong></p>', '<r:page><r:snippet name="markdown" /></r:page>'
+  end
+  def test_tag_snippet_with_global_page_propagation
+    assert_renders "#{@page.title} " * @page.children.count, '<r:snippet name="global_page_cascade" />'
+  end
+  def test_tag_snippet_with_recursion_global_page_propagation
+    @page = Page.find(6)
+    assert_renders "#{@page.title}" * 2, '<r:snippet name="recursive" />'
+  end
+  
+  def test_tag_random
+    assert_render_match /^(1|2|3)$/, "<r:random> <r:option>1</r:option> <r:option>2</r:option> <r:option>3</r:option> </r:random>"
+  end
+  
+  def test_tag_comment
+    assert_renders 'just a test', 'just a <r:comment>small </r:comment>test'
+  end
+  
+  def test_tag_navigation_1
+    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><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> | <a href="/archive/">Archives</a> | <strong>Radius</strong> | <a href="/documentation/">Docs</a>}
+    assert_renders expected, tags
+  end
+  def test_tag_navigation_2
+    tags = %{<r:navigation urls="Home: / | Archives: /archive/ | Radius: /radius/ | Docs: /documentation/">
+               <r:normal><r:title /></r:normal>
+             </r:navigation>}
+    expected = %{Home Archives Radius Docs}
+    assert_renders expected, tags
+  end
+  def test_tag_navigation_3
+    tags = %{<r:navigation urls="Home: / | Archives: /archive/ | Radius: /radius/ | Docs: /documentation/">
+               <r:normal><r:title /></r:normal>
+               <r:selected><strong><r:title/></strong></r:selected>
+             </r:navigation>}
+    expected = %{<strong>Home</strong> Archives <strong>Radius</strong> Docs}
+    assert_renders expected, tags
+  end
+  def test_tag_navigation_without_urls
+    assert_renders '', %{<r:navigation></r:navigation>}
+  end
+  def test_tag_navigation_without_urls
+    assert_render_error  "`navigation' tag must include a `normal' tag", %{<r:navigation urls="something:here"></r:navigation>}
+  end
+  def test_tag_navigation_with_urls_without_slashes
+    tags = %{<r:navigation urls="Home: | Archives: /archive | Radius: /radius | Docs: /documentation">
+               <r:normal><r:title /></r:normal>
+               <r:here><strong><r:title /></strong></r:here>
+             </r:navigation>}
+    expected = %{Home Archives <strong>Radius</strong> Docs}
+    assert_renders expected, tags
+  end
+  
+  def test_tag_find
+    assert_renders 'Ruby Home Page', %{<r:find url="/"><r:title /></r:find>}
+  end
+  def test_tag_find_without_url
+    assert_render_error "`find' tag must contain `url' attribute", %{<r:find />}
+  end
+  def test_tag_find_with_nonexistant_url
+    assert_renders '', %{<r:find url="/asdfsdf/"><r:title /></r:find>}
+  end
+  
+  def test_tag_find_and_children
+    assert_renders 'a-great-day-for-ruby another-great-day-for-ruby ', %{<r:find url="/news/"><r:children:each><r:slug /> </r:children:each></r:find>}
+  end
+  
+  def test_tag_escape_html
+    assert_renders '&lt;strong&gt;a bold move&lt;/strong&gt;', '<r:escape_html><strong>a bold move</strong></r:escape_html>'
+  end
+  
+  def test_tag_rfc1123_date
+    @page.published_at = Time.utc(2004, 5, 2)
+    assert_renders 'Sun, 02 May 2004 00:00:00 GMT', '<r:rfc1123_date />'
+  end
+  
+  def test_tag_breadcrumbs
+    @page = pages(:deep_nested_child_for_breadcrumbs)
+    assert_renders '<a href="/">Home</a> &gt; <a href="/radius/">Radius Test Page</a> &gt; <a href="/radius/child-1/">Radius Test Child 1</a> &gt; Deeply nested child',
+      '<r:breadcrumbs />'
+  end
+  def test_tag_breadcrumbs_with_separator_attribute
+    @page = pages(:deep_nested_child_for_breadcrumbs)
+    assert_renders '<a href="/">Home</a> :: <a href="/radius/">Radius Test Page</a> :: <a href="/radius/child-1/">Radius Test Child 1</a> :: Deeply nested child',
+      '<r:breadcrumbs separator=" :: " />'
+  end
+  
+  def test_tag_if_url_does_not_match
+    assert_renders '', '<r:if_url matches="fancypants">true</r:if_url>'
+  end
+  def test_tag_if_url_matches
+     assert_renders 'true', '<r:if_url matches="r.dius/$">true</r:if_url>'
+  end
+  def test_tag_if_url_without_ignore_case
+    assert_renders 'true', '<r:if_url matches="rAdius/$">true</r:if_url>'
+  end
+  def test_tag_if_url_with_ignore_case_true
+    assert_renders 'true', '<r:if_url matches="rAdius/$" ignore_case="true">true</r:if_url>'
+  end
+  def test_tag_if_url_with_ignore_case_false
+    assert_renders '', '<r:if_url matches="rAdius/$" ignore_case="false">true</r:if_url>'
+  end
+  def test_tag_if_url_with_malformatted_regexp
+    assert_render_error "Malformed regular expression in `matches' argument of `if_url' tag: unmatched (: /r(dius\\/$/", '<r:if_url matches="r(dius/$">true</r:if_url>'
+  end
+  def test_tag_if_url_empty
+    assert_render_error "`if_url' tag must contain a `matches' attribute.", '<r:if_url>test</r:if_url>'
+  end
+  
+  def test_tag_unless_url_does_not_match
+    assert_renders 'true', '<r:unless_url matches="fancypants">true</r:unless_url>'
+  end
+  def test_tag_unless_url_matches
+    assert_renders '', '<r:unless_url matches="r.dius/$">true</r:unless_url>'
+  end
+  def test_tag_unless_url_without_ignore_case
+    assert_renders '', '<r:unless_url matches="rAdius/$">true</r:unless_url>'
+  end
+  def test_tag_unless_url_with_ignore_case_true
+    assert_renders '', '<r:unless_url matches="rAdius/$" ignore_case="true">true</r:unless_url>'
+  end
+  def test_tag_unless_url_with_ignore_case_false
+    assert_renders 'true', '<r:unless_url matches="rAdius/$" ignore_case="false">true</r:unless_url>'
+  end
+  def test_tag_unless_url_with_malformatted_regexp
+    assert_render_error "Malformed regular expression in `matches' argument of `unless_url' tag: unmatched (: /r(dius\\/$/", '<r:unless_url matches="r(dius/$">true</r:unless_url>'
+  end
+  def test_tag_unless_url_empty
+    assert_render_error "`unless_url' tag must contain a `matches' attribute.", '<r:unless_url>test</r:unless_url>'
+  end
+  
+  def test_tag_cycle
+    assert_renders 'first second', '<r:cycle values="first, second" /> <r:cycle values="first, second" />'
+  end
+  def test_tag_cycle_returns_to_beginning
+    assert_renders 'first second first', '<r:cycle values="first, second" /> <r:cycle values="first, second" /> <r:cycle values="first, second" />'
+  end
+  def test_tag_cycle_default_name
+    assert_renders 'first second', '<r:cycle values="first, second" /> <r:cycle values="first, second" name="cycle" />'
+  end
+  def test_tag_cycle_keeps_separate_counters
+    assert_renders 'first one second two', '<r:cycle values="first, second" /> <r:cycle values="one, two" name="numbers" /> <r:cycle values="first, second" /> <r:cycle values="one, two" name="numbers" />'
+  end
+  def test_tag_cycle_resets_counter
+    assert_renders 'first first', '<r:cycle values="first, second" /> <r:cycle values="first, second" reset="true"/>'    
+  end
+  def test_tag_cycle_names_empty
+    assert_render_error "`cycle' tag must contain a `values' attribute.", '<r:cycle />'
+  end
+  
+  def test_tag_parent
+    assert_renders pages(:homepage).title, '<r:parent><r:title /></r:parent>'
+    assert_renders page_eachable_children(pages(:homepage)).collect(&:title).join(""), '<r:parent><r:children:each by="title"><r:title /></r:children:each></r:parent>'
+    assert_renders @page.title * @page.children.count, '<r:children:each><r:parent:title /></r:children:each>'
+  end
+  def test_tag_if_parent
+    assert_renders 'true', '<r:if_parent>true</r:if_parent>'
+    @page = pages(:homepage)
+    assert_renders '', '<r:if_parent>true</r:if_parent>'
+  end
+  def test_tag_unless_parent
+    assert_renders '', '<r:unless_parent>true</r:unless_parent>'
+    @page = pages(:homepage)
+    assert_renders 'true', '<r:unless_parent>true</r:unless_parent>'
+  end
+  
+  private
+  
+    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_children_each_tags(attr = nil)
+      attr = ' ' + attr unless attr.nil?
+      "<r:children:each#{attr}><r:slug /> </r:children:each>"
+    end
+  
+    def page_eachable_children(page)
+      page.children.select(&:published?).reject(&:virtual)
+    end
+end