radiant-polls-extension 1.0.0

data/public/stylesheets/polls.css

@@ -0,0 +1,9 @@
+.results {
+  font-size: .7em;
+  margin-left: 4em;
+}
+
+.results table td {
+  border-top: none;
+  padding: 0;
+}

data/radiant-polls-extension.gemspec

@@ -0,0 +1,83 @@
+# Generated by jeweler
+# DO NOT EDIT THIS FILE DIRECTLY
+# Instead, edit Jeweler::Tasks in Rakefile, and run 'rake gemspec'
+# -*- encoding: utf-8 -*-
+
+Gem::Specification.new do |s|
+  s.name = "radiant-polls-extension"
+  s.version = "1.0.0"
+
+  s.required_rubygems_version = Gem::Requirement.new(">= 0") if s.respond_to? :required_rubygems_version=
+  s.authors = ["Chase James", "David Cato", "Andrew vonderLuft"]
+  s.date = "2013-02-27"
+  s.description = "Enables polls on pages. Uses cookies instead of sessions"
+  s.email = "avonderluft@avlux.net"
+  s.extra_rdoc_files = [
+    "LICENSE",
+    "README.textile"
+  ]
+  s.files = [
+    "CHANGELOG",
+    "HELP.textile",
+    "LICENSE",
+    "README.textile",
+    "Rakefile",
+    "VERSION",
+    "app/controllers/admin/polls_controller.rb",
+    "app/controllers/poll_response_controller.rb",
+    "app/models/option.rb",
+    "app/models/poll.rb",
+    "app/views/admin/polls/_form.html.haml",
+    "app/views/admin/polls/_option.html.haml",
+    "app/views/admin/polls/edit.html.haml",
+    "app/views/admin/polls/index.html.haml",
+    "app/views/admin/polls/new.html.haml",
+    "app/views/admin/polls/remove.html.haml",
+    "config/locales/en.yml",
+    "config/locales/en_available_tags.yml",
+    "config/routes.rb",
+    "db/migrate/001_create_polls.rb",
+    "db/migrate/002_create_options.rb",
+    "db/migrate/003_add_start_date_to_polls.rb",
+    "lib/poll_process.rb",
+    "lib/poll_tags.rb",
+    "lib/tasks/polls_extension_tasks.rake",
+    "polls_extension.rb",
+    "public/images/admin/new-poll.png",
+    "public/images/admin/poll.png",
+    "public/images/admin/recycle.png",
+    "public/images/admin/reset.png",
+    "public/javascripts/admin/date_selector.js",
+    "public/javascripts/admin/polls.js",
+    "public/javascripts/poll_check.js",
+    "public/stylesheets/admin/polls.css",
+    "public/stylesheets/polls.css",
+    "spec/controllers/admin/polls_controller_spec.rb",
+    "spec/controllers/poll_response_controller_spec.rb",
+    "spec/integration/page_caching_spec.rb",
+    "spec/lib/poll_tags_spec.rb",
+    "spec/models/poll_spec.rb",
+    "spec/spec.opts",
+    "spec/spec_helper.rb"
+  ]
+  s.homepage = "https://github.com/avonderluft/radiant-polls-extension"
+  s.require_paths = ["lib"]
+  s.rubygems_version = "1.8.24"
+  s.summary = "Polls Extension for Radiant CMS"
+
+  if s.respond_to? :specification_version then
+    s.specification_version = 3
+
+    if Gem::Version.new(Gem::VERSION) >= Gem::Version.new('1.2.0') then
+      s.add_runtime_dependency(%q<radiant>, [">= 1.1.3"])
+      s.add_runtime_dependency(%q<radiant-cache_by_page-extension>, [">= 1.0.2"])
+    else
+      s.add_dependency(%q<radiant>, [">= 1.1.3"])
+      s.add_dependency(%q<radiant-cache_by_page-extension>, [">= 1.0.2"])
+    end
+  else
+    s.add_dependency(%q<radiant>, [">= 1.1.3"])
+    s.add_dependency(%q<radiant-cache_by_page-extension>, [">= 1.0.2"])
+  end
+end
+

data/spec/controllers/admin/polls_controller_spec.rb

@@ -0,0 +1,16 @@
+require File.dirname(__FILE__) + '/../../spec_helper'
+
+describe Admin::PollsController do
+  dataset :users
+
+  before(:each) do
+    login_as :existing
+  end
+
+  describe "index" do
+    it "should show the index template" do
+      get :index
+      response.should render_template('admin/polls/index')
+    end
+  end
+end

data/spec/controllers/poll_response_controller_spec.rb

@@ -0,0 +1,149 @@
+require 'spec_helper'
+
+describe PollResponseController do
+
+  describe 'routing' do
+
+    it 'should route to the index action' do
+      params_from(:get, '/pages/1/poll_response').should == {
+        :controller => 'poll_response',
+        :action => 'index',
+        :page_id => '1'
+      }
+    end
+
+    it 'should route to the create action' do
+      params_from(:post, '/pages/1/poll_response').should == {
+        :controller => 'poll_response',
+        :action => 'create',
+        :page_id => '1'
+      }
+    end
+
+  end
+
+  describe :create do
+
+    before :each do
+      @page = mock_model(Page, :id => 1, :poll_cookies => [], :submitted_polls => [])
+      @poll = mock_model(Poll, :id => 42)
+      @cookies = mock('cookies')
+      @cookies.stub!(:[])
+      @cookies.stub!(:[]=)
+      controller.stub!(:cookies).and_return(@cookies)
+      @page.should_receive(:request=).with(an_instance_of(ActionController::TestRequest))
+      @page.should_receive(:response=).with(an_instance_of(ActionController::TestResponse))
+      @page.should_receive(:poll_cookies).with(@cookies).and_return([])
+      Page.should_receive(:find).with(duck_type(:to_i)).and_return(@page)
+    end
+
+    describe 'poll has not been previously submitted' do
+
+      before :each do
+        Poll.should_receive(:find).with(duck_type(:to_i)).and_return(@poll)
+        @page.should_receive(:submitted_polls=).with(@page.poll_cookies)
+        @page.should_receive(:url).once.and_return('/')
+        @cookies.should_receive(:[]=).with("poll_#{@poll.id.to_s}", an_instance_of(Hash))
+        @poll.should_receive(:submit_response).with(an_instance_of(Option))
+        @option = mock_model(Option)
+        Option.should_receive(:find).with(duck_type(:to_i)).and_return(@option)
+        @page.should have(0).submitted_polls
+      end
+
+      describe 'a current poll does not exist' do
+
+        before :each do
+          Poll.should_receive(:find_current).with(no_args()).and_return(nil)
+        end
+
+        it 'should not cache the response' do
+          post :create, :page_id => @page.id, :poll_id => @poll.id.to_s, :response_id => '111'
+          response.headers['Cache-Control'].should eql('no-cache')
+        end
+
+        it 'should instantiate the list of submitted polls with the poll ID' do
+          post :create, :page_id => @page.id, :poll_id => @poll.id.to_s, :response_id => '111'
+          @page.should have(1).submitted_polls
+          @page.submitted_polls.should eql([@poll.id])
+        end
+
+        it 'should add the poll to the list of submitted polls' do
+          @page.submitted_polls << @poll.id - 1
+          post :create, :page_id => @page.id, :poll_id => @poll.id.to_s, :response_id => '111'
+          @page.should have(2).submitted_polls
+          @page.submitted_polls.should eql([@poll.id - 1, @poll.id])
+        end
+
+      end
+
+      describe 'a current poll exists' do
+
+        before :each do
+          @current_poll = mock_model(Poll, :id => @poll.id)
+          Poll.should_receive(:find_current).with(no_args()).and_return(@current_poll)
+        end
+
+        it 'should instantiate the list of submitted polls with the poll ID' do
+          post :create, :page_id => @page.id, :poll_id => @poll.id.to_s, :response_id => '111'
+          @page.submitted_polls.should eql([@poll.id])
+        end
+
+      end
+
+    end
+
+    describe 'poll has been previously submitted' do
+
+      before :each do
+        Poll.should_receive(:find).with(duck_type(:to_i)).and_return(@poll)
+        @page.should_receive(:submitted_polls=).with(@page.poll_cookies)
+        @poll.should_not_receive(:submit_response)
+        @page.should_receive(:url).and_return('/')
+        Option.should_not_receive(:find)
+        @page.submitted_polls << @poll.id
+        @page.should have(1).submitted_poll
+      end
+
+      describe 'a current poll exists' do
+
+        it 'should not add the poll to the list of submitted polls' do
+          @current_poll = mock_model(Poll, :id => @poll.id)
+          Poll.should_receive(:find_current).with(no_args()).and_return(@current_poll)
+          post :create, :page_id => @page.id, :poll_id => @poll.id.to_s, :response_id => '111'
+          @page.should have(1).submitted_polls
+          @page.submitted_polls.should eql([@poll.id])
+        end
+
+      end
+
+      describe 'a current poll does not exist' do
+
+        it 'should not add the poll to the list of submitted polls' do
+          Poll.should_receive(:find_current).with(no_args()).and_return(nil)
+          post :create, :page_id => @page.id, :poll_id => @poll.id.to_s, :response_id => '111'
+          @page.submitted_polls.should eql([@poll.id])
+        end
+
+      end
+
+    end
+
+    describe 'poll is out of date' do
+
+      it 'should not alter a past poll' do
+        Poll.should_receive(:find).with(duck_type(:to_i)).and_return(@poll)
+        @page.should_receive(:submitted_polls=).with(@page.poll_cookies)
+        @page.should_receive(:url).and_return('/')
+        @poll.should_not_receive(:submit_response)
+        @current_poll = mock_model(Poll, :id => @poll.id + 1)
+        Poll.should_receive(:find_current).with(no_args()).and_return(@current_poll)
+        @current_poll.should_not_receive(:submit_response)
+        Option.should_not_receive(:find)
+        post :create, :page_id => @page.id, :poll_id => @poll.id.to_s, :response_id => '111'
+      end
+
+    end
+
+  end
+
+end

data/spec/integration/page_caching_spec.rb

@@ -0,0 +1,76 @@
+require 'spec_helper'
+
+describe Page, "with and without polls present" do
+  
+  dataset :pages
+
+  before :all do
+    FileUtils.chdir RAILS_ROOT
+    @cache_dir = "#{RAILS_ROOT}/tmp/cache"
+    @cache_file = "#{@cache_dir}/meta/*/*"
+
+  end
+
+  before :each do
+    @page = pages(:home)
+    @default = 1.day
+    SiteController.page_cache_directory = @cache_dir
+    SiteController.perform_caching = true
+    SiteController.cache_timeout = @default
+    @expire_mins = @default.to_i/60
+    @cache = Radiant::Cache
+    @cache.clear
+  end
+  
+  def page_is_cached(page)
+    if response.nil?
+      @cache.clear
+      false
+    else 
+      ! response.headers['Cache-Control'].include?('no-cache')
+    end
+  end
+
+  def cache_expires
+    Time.now + `cat #{@cache_file}`.split('max-age=')[1].split(',')[0].to_i rescue nil
+  end
+
+  describe "- fetch of page without a poll" do
+    it "should render a page with default caching" do
+      get "#{@page.slug}"
+      response.should be_success
+      response.cache_timeout.should be_nil
+      page_is_cached(@page).should be_true
+      response.headers['Cache-Control'].should == "max-age=#{@default}, public"
+    end
+  end
+    
+  ["single poll", "collection of polls"].each do |test|
+    
+    describe "- fetch of page with a #{test}" do
+
+      before :each do
+        Poll.create(:id => 42, :title => "My Older Poll", :response_count => 0, :start_date => 2.days.ago)
+        Poll.create(:id => 43, :title => "My Newer Poll", :response_count => 0, :start_date => 1.day.ago)
+        poll_tag = "<r:poll><r:title/></r:poll>"
+        if test.eql?("collection of polls")
+          poll_tag = "<r:polls><r:each:poll><r:title/></r:each:poll></r:polls>"
+        end
+        @part = PagePart.find_by_page_id_and_name(@page, 'body')
+        @part.content += poll_tag
+        @part.save
+        get "#{@page.slug}"
+        @first_cached_page_expire_time = cache_expires
+      end
+
+      it "should render the page and cache it with defaults" do
+        response.should be_success
+        response.cache_timeout.should be_nil
+        cache_expires.should be_close(@expire_mins.minutes.from_now, 30)
+      end
+
+    end
+
+  end
+
+end

data/spec/lib/poll_tags_spec.rb

@@ -0,0 +1,415 @@
+require 'spec_helper'
+
+describe 'Poll Tags' do
+  
+  dataset :pages
+
+  before do
+    options = { Option.new(:title => 'One') => 0,
+                Option.new(:title => 'Two') => 4,
+                Option.new(:title => 'Three') => 6 }
+    poll = Poll.create(:title => 'Test Poll', :options => options.keys)
+    options.each do |option, response_count|
+      response_count.times do
+        poll.submit_response option
+      end
+    end
+    Poll.create(:title => 'Current Poll',
+                :start_date => Date.today,
+                :options => [ Option.new(:title => 'Foo'),
+                              Option.new(:title => 'Bar'),
+                              Option.new(:title => 'Baz') ])
+  end
+
+  describe '<r:poll> with no start dates' do
+
+    before do
+      Poll.update_all('start_date = NULL', 'start_date IS NOT NULL')
+    end
+
+    it 'should not accept an empty tag' do
+      tag = %{<r:poll/>}
+      pages(:home).should render(tag).with_error("'title' attribute required")
+    end
+
+  end
+
+  describe 'with no polls' do
+
+    before do
+      Poll.delete_all
+    end
+
+    describe '<r:poll>' do
+
+      it 'should accept a bare tag and generate an error message' do
+        tag = %{<r:poll/>}
+        expected = 'No polls found'
+        pages(:home).should render(tag).as(expected)
+      end
+
+      it 'should accept a title attribute and generate an error message' do
+        tag = %{<r:poll title="Test Poll"/>}
+        expected = 'No polls found'
+        pages(:home).should render(tag).as(expected)
+      end
+
+    end
+
+    describe '<r:poll:title>' do
+
+      it 'should generate an error message and no inner content' do
+        tag = %{<r:poll><h2><r:title/></h2></r:poll>}
+        expected = 'No polls found'
+        pages(:home).should render(tag).as(expected)
+      end
+
+    end
+
+  end
+
+  describe '<r:poll>' do
+
+    it 'should accept an empty tag and generate no output' do
+      tag = %{<r:poll/>}
+      expected = ''
+      pages(:home).should render(tag).as(expected)
+    end
+
+    it 'should accept a title attribute and generate no output' do
+      tag = %{<r:poll title="Test Poll"/>}
+      expected = ''
+      pages(:home).should render(tag).as(expected)
+    end
+
+    it 'should accept an id tag and generate no output' do
+      tag = %{<r:poll id="#{Poll.find(:first).id}"/>}
+      expected = ''
+      pages(:home).should render(tag).as(expected)
+    end
+
+  end
+
+  describe '<r:poll:title>' do
+
+    it 'should show the title of the specified poll' do
+      title = 'Test Poll'
+      tag = %{<r:poll title="#{title}"><r:title/></r:poll>}
+      pages(:home).should render(tag).as(Poll.marker + title)
+    end
+
+    it 'should show the title of the current poll' do
+      title = 'Current Poll'
+      tag = %{<r:poll><r:title/></r:poll>}
+      pages(:home).should render(tag).as(Poll.marker + title)
+    end
+
+  end
+
+  describe '<r:poll:form>' do
+
+    it 'should generate an empty form' do
+      tag = %{<r:poll title="Test Poll"><r:form/></r:poll>}
+      expected = %r{<form action="/pages/\d+/poll_response" method="post" id="poll_form">\s*<div>\s*<input type="hidden"[^>]*>\s*</div>\s*</form>}
+      pages(:home).should render(tag).matching(expected)
+    end
+
+  end
+
+  describe '<r:poll:form:submit>' do
+
+    it 'should generate an empty form with a default submit button' do
+      tag = %{<r:poll title="Test Poll"><r:form><r:submit/></r:form></r:poll>}
+      expected = %r{<form action="/pages/\d+/poll_response" method="post" id="poll_form">\s*<div>\s*<input type="submit".*?value="Submit"[^>]*>\s*<input type="hidden"[^>]*>\s*</div>\s*</form>}
+      pages(:home).should render(tag).matching(expected)
+    end
+
+    it 'should generate an empty form with a custom submit button' do
+      tag = %{<r:poll title="Test Poll"><r:form><r:submit value="Vote"/></r:form></r:poll>}
+      expected = %r{<form action="/pages/\d+/poll_response" method="post" id="poll_form">\s*<div>\s*<input type="submit".*?value="Vote"[^>]*>\s*<input type="hidden"[^>]*>\s*</div>\s*</form>}
+      pages(:home).should render(tag).matching(expected)
+    end
+
+  end
+
+  describe '<r:poll:form:options>' do
+
+    it 'should generate an empty form' do
+      tag = %{<r:poll title="Test Poll"><r:form><r:options/></r:form></r:poll>}
+      expected = %r{<form action="/pages/\d+/poll_response" method="post" id="poll_form">\s*<div>\s*<input type="hidden"[^>]*>\s*</div>\s*</form>}
+      pages(:home).should render(tag).matching(expected)
+    end
+
+  end
+
+  describe '<r:poll:form:options:each>' do
+
+    it 'should generate an empty form' do
+      tag = %{<r:poll title="Test Poll"><r:form><r:options:each/></r:form></r:poll>}
+      expected = %r{<form action="/pages/\d+/poll_response" method="post" id="poll_form">\s*<div>\s*<input type="hidden"[^>]*>\s*</div>\s*</form>}
+      pages(:home).should render(tag).matching(expected)
+    end
+
+  end
+
+  describe '<r:poll:form:options:each:input>' do
+
+    it 'should generate a form with input options' do
+      tag = %{<r:poll title="Test Poll"><r:form><r:options:each><r:input/></r:options:each></r:form></r:poll>}
+      expected = %r{<form action="/pages/\d+/poll_response" method="post" id="poll_form">\s*<div>\s*(<input type="radio"[^>]*>\s*){3}<input type="hidden"[^>]*>\s*</div>\s*</form>}
+      pages(:home).should render(tag).matching(expected)
+    end
+
+  end
+
+  describe '<r:poll:form:options:each:title>' do
+
+    it 'should show the option titles' do
+      tag = %{<r:poll title="Test Poll"><r:form><r:options:each><r:input/><r:title/></r:options:each></r:form></r:poll>}
+      expected = %r{<form action="/pages/\d+/poll_response" method="post" id="poll_form">\s*<div>\s*(<input type="radio"[^>]*>\s*(One|Two|Three)\s*){3}<input type="hidden"[^>]*>\s*</div>\s*</form>}
+      pages(:home).should render(tag).matching(expected)
+    end
+
+  end
+
+  describe '<r:poll:options:each:title>' do
+
+    it 'should show the option titles in random order' do
+      tag = %{<r:poll title="Test Poll"><r:options order="rand"><r:each><r:title/></r:each></r:options></r:poll>}
+      expected = /OneTwoThree|OneThreeTwo|TwoOneThree|TwoThreeOne|ThreeOneTwo|ThreeTwoOne/
+      pages(:home).should render(tag).matching(expected)
+    end
+
+  end
+
+  describe '<r:poll:options:each:number_responses>' do
+
+    it 'should show the response numbers in descending order' do
+      tag = %{<r:poll title="Test Poll"><r:options order="desc"><r:each><p><r:number_responses/></p></r:each></r:options></r:poll>}
+      expected = Poll.marker + '<p>6</p><p>4</p><p>0</p>'
+      pages(:home).should render(tag).as(expected)
+    end
+
+  end
+
+  describe '<r:poll:options:each:percent_responses>' do
+
+    it 'should show the response percentages in ascending order' do
+      tag = %{<r:poll title="Test Poll"><r:options order="asc"><r:each><p><r:percent_responses/></p></r:each></r:options></r:poll>}
+      expected = Poll.marker + '<p>0.0</p><p>40.0</p><p>60.0</p>'
+      pages(:home).should render(tag).as(expected)
+    end
+
+  end
+
+  describe '<r:poll:options:each:if_first>' do
+
+    it 'should render inner tags only if the current context is the first option' do
+      tag = %{<r:poll title="Test Poll"><ul><r:options order="desc"><r:each><li<r:if_first> class="first"</r:if_first>><r:percent_responses /></li></r:each></r:options></ul></r:poll>}
+      expected = Poll.marker + '<ul><li class="first">60.0</li><li>40.0</li><li>0.0</li></ul>'
+      pages(:home).should render(tag).as(expected)
+    end
+
+  end
+
+  describe '<r:poll:options:each:if_last>' do
+
+    it 'should render inner tags only if the current context is the last option' do
+      tag = %{<r:poll title="Test Poll"><ul><r:options order="desc"><r:each><li<r:if_last> class="last"</r:if_last>><r:percent_responses /></li></r:each></r:options></ul></r:poll>}
+      expected = Poll.marker + '<ul><li>60.0</li><li>40.0</li><li class="last">0.0</li></ul>'
+      pages(:home).should render(tag).as(expected)
+    end
+
+  end
+
+  describe '<r:poll:options:each:unless_first>' do
+
+    it 'should render inner tags only unless the current context is the first option' do
+      tag = %{<r:poll title="Test Poll"><r:options order="desc"><r:each><r:unless_first>,</r:unless_first><r:percent_responses /></r:each></r:options></r:poll>}
+      expected = Poll.marker + '60.0,40.0,0.0'
+      pages(:home).should render(tag).as(expected)
+    end
+
+  end
+
+  describe '<r:poll:options:each:unless_last>' do
+
+    it 'should render inner tags only unless the current context is the last option' do
+      tag = %{<r:poll title="Test Poll"><r:options order="desc"><r:each><r:percent_responses /><r:unless_last>,</r:unless_last></r:each></r:options></r:poll>}
+      expected = Poll.marker + '60.0,40.0,0.0'
+      pages(:home).should render(tag).as(expected)
+    end
+
+  end
+
+  ## Test poll archives
+  describe '<r:polls>' do
+    
+    it 'should accept an empty tag and generate no output' do
+      tag = %{<r:polls/>}
+      expected = ''
+      pages(:home).should render(tag).as(expected)
+    end
+
+    it 'should accept valid options and generate no output' do
+      tag = %{<r:polls per_page="10" by="title" order="asc" show_current="false" />}
+      expected = ''
+      pages(:home).should render(tag).as(expected)
+    end
+
+    describe 'with per_page option' do
+
+      it 'should not accept a non-positive integer and generate an error' do
+        tag = %{<r:polls per_page="-5" />}
+        pages(:home).should render(tag).with_error('the per_page attribute of the polls tag must be a positive integer')
+      end
+
+      it 'should not accept a non-integer value and generate an error' do
+        tag = %{<r:polls per_page="no" />}
+        pages(:home).should render(tag).with_error('the per_page attribute of the polls tag must be a positive integer')
+      end
+
+    end
+
+    describe 'with by option' do
+
+      it 'should not accept an invalid field name and generate an error' do
+        tag = %{<r:polls by="foobar"/>}
+        pages(:home).should render(tag).with_error('the by attribute of the polls tag must specify a valid field name')
+      end
+
+    end
+
+    describe 'with order option' do
+
+      it 'should accept "asc" and generate no output' do
+        tag = %{<r:polls order="asc"/>}
+        expected = ''
+        pages(:home).should render(tag).as(expected)
+      end
+
+      it 'should accept "desc" and generate no output' do
+        tag = %{<r:polls order="desc"/>}
+        expected = ''
+        pages(:home).should render(tag).as(expected)
+      end
+
+      it 'should not accept a value other than "asc" or "desc" and generate an error' do
+        tag = %{<r:polls order="xxx"/>}
+        pages(:home).should render(tag).with_error('the order attribute of the polls tag must be either "asc" or "desc"')
+      end
+
+    end
+
+    describe 'with no polls' do
+
+      before do
+        Poll.delete_all
+      end
+
+      it 'should accept a bare tag and generate an error message' do
+        tag = %{<r:polls/>}
+        expected = 'No polls found'
+        pages(:home).should render(tag).as(expected)
+      end
+
+    end
+
+  end
+
+  describe '<r:polls:each>' do
+
+    it 'should generate no output' do
+      tag = %{<r:polls><r:each></r:each></r:polls>}
+      expected = ''
+      pages(:home).should render(tag).as(expected)
+    end
+
+  end
+
+  describe '<r:polls:each:poll>' do
+
+    it 'should generate no output' do
+      tag = %{<r:polls><r:each><r:poll/></r:each></r:polls>}
+      expected = ''
+      pages(:home).should render(tag).as(expected)
+    end
+
+  end
+
+  describe '<r:polls:each:poll:title>' do
+
+    before do
+      # Create a future poll that should never appear in any results
+      Poll.create(:title => 'Next Poll', :start_date => Date.today + 1.week)
+    end
+
+    it 'should generate an ordered list of poll titles in descending order' do
+      tag = %{<r:polls order="desc" show_current="true"><r:each><r:poll><p><r:title/></p></r:poll></r:each></r:polls>}
+      expected = "#{Poll.marker}<p>Test Poll</p><p>Current Poll</p>"
+      pages(:home).should render(tag).as(expected)
+    end
+
+    it 'should generate a list of the one poll that has a non-future start date' do
+      tag = %{<r:polls by="start_date" show_current="true"><r:each><r:poll><p><r:title/></p></r:poll></r:each></r:polls>}
+      expected = "#{Poll.marker}<p>Current Poll</p>"
+      pages(:home).should render(tag).as(expected)
+    end
+
+    it 'should generate an ordered list of poll titles in descending order by start date' do
+      poll = Poll.find_by_title('Test Poll').update_attribute(:start_date, Date.today - 1.week)
+      tag = %{<r:polls by="start_date" order="desc" show_current="true"><r:each><r:poll><p><r:title/></p></r:poll></r:each></r:polls>}
+      expected = "#{Poll.marker}<p>Current Poll</p><p>Test Poll</p>"
+      pages(:home).should render(tag).as(expected)
+    end
+
+  end
+
+  describe '<r:polls:each:poll:options:title>' do
+
+    it 'should generate a list containing the current poll with its options' do
+      tag = %{<r:polls by="start_date" show_current="true"><r:each><r:poll><p><r:title/></p><r:options order="desc"><r:each><p><r:title/></p></r:each></r:options></r:poll></r:each></r:polls>}
+      expected = "#{Poll.marker}<p>Current Poll</p><p>Foo</p><p>Bar</p><p>Baz</p>"
+      pages(:home).should render(tag).as(expected)
+    end
+
+    it 'should generate no output when sorting by start date and excluding the current poll' do
+      tag = %{<r:polls by="start_date"><r:each><r:poll><p><r:title/></p><r:options order="desc"><r:each><p><r:title/></p></r:each></r:options></r:poll></r:each></r:polls>}
+      expected = ''
+      pages(:home).should render(tag).as(expected)
+    end
+
+  end
+
+  describe '<r:polls:pages>' do
+
+    describe 'with less than per_page polls' do
+
+      it 'should not generate pagination links' do
+        tag = %{<r:polls by="title"><r:pages/></r:polls>}
+        expected = ''
+        pages(:home).should render(tag).as(expected)
+      end
+
+    end
+
+    describe 'with more than per_page polls' do
+
+      before do
+        (1..20).each do |i|
+          Poll.create(:title => "Poll #{i}",
+                      :start_date => Date.today - i.weeks,
+                      :options => [ Option.new(:title => "Foo #{i}"),
+                                    Option.new(:title => "Bar #{i}"),
+                                    Option.new(:title => "Baz #{i}") ])
+        end
+      end
+
+      it 'should generate pagination links' do
+        tag = %{<r:polls per_page="5" by="start_date" order="desc"><r:pages/></r:polls>}
+        expected = %r{<span class="current">1</span>}
+        pages(:home).should render(tag).matching(expected)
+      end
+    end
+  end
+end