adva 0.0.1

data/adva_cms/test/test_helper/extensions/rr.rb

@@ -0,0 +1,7 @@
+class Test::Unit::TestCase
+  def expectation
+    RR.reset
+    yield
+    RR.verify
+  end
+end

data/adva_cms/test/test_helper/extensions/test_unit.rb

@@ -0,0 +1,35 @@
+Test::Unit::Assertions.module_eval do
+  include ActionController::Assertions::SelectorAssertions
+
+  def assert_html(html, *args, &block)
+    assert_select(HTML::Document.new(html).root, *args, &block)
+  end
+
+  # test/unit insists that we use assert_block ... but why? 
+  def assert_with_lambda(boolean = nil, message = nil)
+    boolean = yield if block_given?
+    assert_without_lambda(boolean, message)
+  end
+  
+  alias :assert_without_lambda :assert
+  alias :assert :assert_with_lambda
+end
+
+
+# have test/unit report errors asap
+# thanks to Lifo http://gist.github.com/50645
+require 'test/unit/ui/console/testrunner'
+class Test::Unit::UI::Console::TestRunner
+  def add_fault(fault)
+    hax_output(fault)
+    @faults << fault
+    output_single(fault.single_character_display, 1)
+    @already_outputted = true
+  end
+
+  def hax_output(fault)
+    @io.puts("\n")
+    output_single(fault.short_display, 1) # fault.long_display for the full trace
+    @io.puts("\n")
+  end
+end

data/adva_cms/test/test_helper/extensions/with_sugar.rb

@@ -0,0 +1,166 @@
+module With
+  class Context
+    def it_triggers_event(type)
+      expect do
+        record = satisfy{|arg| type.to_s =~ /#{arg.class.name.underscore}/ }
+        controller = is_a(ActionController::Base)
+        options = is_a(Hash)
+        mock.proxy(Event).trigger(type, record, controller, options)
+      end
+    end
+  
+    def it_does_not_trigger_any_event
+      expect do
+        do_not_allow(Event).trigger.with_any_args
+      end
+    end
+
+    # FIXME might need to refactor this so it always executes the block
+    # (i.e. return after witch(:access_granted, &block))
+    def it_guards_permissions(action, type, &block)
+      return (block ? block.call : nil) unless With.aspect?(:access_control)
+
+      with(:access_granted, &block) if block_given?
+      
+      with "(rbac)" do
+        # before do
+        #   @default_permission = Rbac::Context.default_permissions[:"#{action} #{type}"]
+        # end
+        # 
+        # after do
+        #   Rbac::Context.default_permissions[:"#{action} #{type}"] = @default_permission
+        # end
+
+        with "superuser_may_#{action}_#{type}" do
+          before do
+            Rbac::Context.default_permissions[:"#{action} #{type}"] = [:superuser]
+          end
+
+          it_denies_access :with => [:is_anonymous, :is_user, :is_moderator, :is_admin]
+          it_grants_access :with => [:is_superuser]
+        end
+
+        with "admin_may_#{action}_#{type}" do
+          before do
+            Rbac::Context.default_permissions[:"#{action} #{type}"] = [:admin]
+          end
+
+          it_denies_access :with => [:is_anonymous, :is_user, :is_moderator]
+          it_grants_access :with => [:is_admin, :is_superuser]
+        end
+
+        with "moderator_may_#{action}_#{type}" do
+          before do
+            Rbac::Context.default_permissions[:"#{action} #{type}"] = [:moderator]
+          end
+
+          it_denies_access :with => [:is_anonymous, :is_user]
+          it_grants_access :with => [:is_admin, :is_superuser] 
+          # FIXME should grant to :is_moderator, but currently require_authentication requires an :admin role
+        end
+      end
+    end
+
+    def it_grants_access(options = {})
+      contexts = options[:with] ? with(options[:with]) : [self]
+      contexts.each do |context|
+        context.assertion "it grants access" do
+          message = "expected to grant access but %s"
+          assert !rendered_insufficient_permissions?, message % 'rendered :insufficient_permissions'
+          assert !redirected_to_login?, message % 'redirected to login_path'
+        end
+      end
+    end
+
+    def it_denies_access(options = {})
+      contexts = options[:with] ? with(options[:with]) : [self]
+      contexts.each do |context|
+        context.assertion "it denies access" do
+          message = "expected to render :insufficient_permissions or redirect to login_path but did neither of these."
+          assert rendered_insufficient_permissions? || redirected_to_login?, message
+        end
+      end
+    end
+
+    def it_caches_the_page_with_tracking(options = {})
+      it_caches_the_page_without_tracking(options)
+      
+      return unless options[:track]
+      assertion "it tracks cache references #{Array(options[:track]).map(&:inspect).join(' ')}" do
+        Array(options[:track]).each do |expected|
+          actual = @controller.class.track_options[@controller.action_name.to_sym]
+          actual.should include(expected)
+        end
+      end
+    end
+    alias_method_chain :it_caches_the_page, :tracking
+    
+    def it_sweeps_page_cache(options)
+      options = options.dup
+      
+      expect do
+        options.each do |type, record|
+          record = instance_variable_get("@#{record}")
+          filters = @controller.class.filter_chain
+          sweeper = filters.detect { |f| f.method.is_a?(CacheReferences::Sweeper) } 
+          sweeper or raise "can not find page cache sweeper on #{@controller.class.name}"
+          sweeper = sweeper.method
+          
+          case type
+          when :by_site
+            # FIXME ... why are they sometimes called multiple times?? (e.g. CommentsController#create)
+            mock.proxy(sweeper).expire_cached_pages_by_site(record).any_number_of_times
+          when :by_section
+            mock.proxy(sweeper).expire_cached_pages_by_section(record).any_number_of_times
+          when :by_reference
+            mock.proxy(sweeper).expire_cached_pages_by_reference(record).any_number_of_times
+          end
+        end
+      end
+    end
+    
+    def it_does_not_sweep_page_cache
+      expect do
+        do_not_allow(@controller).expire_pages.with_any_args
+      end
+    end
+
+    def it_rewrites(from, options)
+      with *options[:with] || 'non-root section and non-default locale' do
+        it "rewrites #{from} to: #{options[:to]}" do
+          instance_eval(&from).should == options[:to]
+        end
+      end
+    end
+  end
+end
+
+class ActiveSupport::TestCase
+  def has_authorized_tag(*args)
+    @response.body.should have_authorized_tag(*args)
+  end
+  
+  def has_permalink(article)
+    has_tag 'h2 a[href=?]', blog_article_path(article.section, article.full_permalink), article.title
+  end
+  
+  def without_routing_filters
+    old_routing_filter_active, RoutingFilter.active = RoutingFilter.active, false
+    yield
+    RoutingFilter.active = old_routing_filter_active
+  end
+end
+
+class ActionController::TestCase
+  def default_theme?
+    @controller.site.themes.active.empty?
+  end
+  
+  def rendered_insufficient_permissions?
+    !!(@response.rendered.to_s =~ /insufficient_permissions/)
+  end
+  
+  def redirected_to_login?
+    @response.redirect_url_match?(/#{login_path}/)
+  end
+end

data/adva_cms/test/test_helper/parse_options.rb

@@ -0,0 +1,18 @@
+require 'optparse'
+
+OptionParser.new do |o|
+  o.on('-l', '--line=LINE', "Run tests defined at the given LINE.") do |line|
+    With.options[:line] = line
+  end
+  
+  o.on('-p', '--prepare-database', "Do not initialize fixtures to the database.") do |line|
+    DO_PREPARE_DATABASE = true
+  end
+  
+  o.on('-w', '--with=ASPECTS', "Run tests defined for the given ASPECTS (comma separated).") do |aspects|
+    With.aspects += aspects.split(/,/).map(&:to_sym)
+  end
+end.parse!(ARGV)
+
+DO_PREPARE_DATABASE = false unless defined?(DO_PREPARE_DATABASE)
+

data/adva_cms/test/test_helper/setup_db_transaction.rb

@@ -0,0 +1,15 @@
+# apparently on rails 2.3 transactions are already started and rolled back?
+
+class Test::Unit::TestCase
+  def start_db_transaction!
+    # ActiveRecord::Base.connection.increment_open_transactions
+    # ActiveRecord::Base.connection.begin_db_transaction
+  rescue SQLite3::SQLException => e
+  end
+
+  def rollback_db_transaction!
+    # ActiveRecord::Base.connection.rollback_db_transaction
+    # ActiveRecord::Base.connection.decrement_open_transactions
+  rescue SQLite3::SQLException => e
+  end
+end

data/adva_cms/test/test_helper/setup_webrat.rb

@@ -0,0 +1,9 @@
+require 'webrat'
+require 'webrat/rails'
+
+Webrat.configure do |config|
+  config.application_environment = :test # needed by webrat < 0.4.4
+  config.mode = ENV["WEBRAT_MODE"] == "selenium" ? :selenium : :rails
+  config.open_error_files = false
+end
+

data/adva_cms/test/test_helper/test_server/init.rb

@@ -0,0 +1,15 @@
+require 'test_server/server'
+
+TestServer::Server.before_run do
+  With.options[:line] = nil
+  OptionParser.new do |o|
+    o.on('-l', '--line=LINE') { |line| With.options[:line] = line }
+  end.parse!(argv)
+  
+  blueprints = Dir[File.dirname(__FILE__) + "/../blueprints/**/*.rb"]
+  blueprints.each{|path| load path }
+end
+
+TestServer::Server.after_run do
+  With.reset_all
+end

data/adva_cms/test/unit/helpers/admin/base_helper_test.rb

@@ -0,0 +1,139 @@
+require File.expand_path(File.dirname(__FILE__) + '/../../../test_helper')
+
+class AdminBaseHelperTest < ActionView::TestCase
+  include Admin::BaseHelper
+  include Admin::UsersHelper
+
+  attr_accessor :request
+
+  def setup
+    super
+    @site = Site.first
+    @section = @site.sections.first
+    @article = @section.articles.first
+    stub(self).current_user.returns User.first
+
+    @admin_site_user_path = %r(/admin/sites/[\d]+/users/[\d]+)
+    @admin_user_path      = %r(/admin/users/[\d]+)
+
+    @controller = TestController.new
+    @request = ActionController::TestRequest.new
+  end
+
+  # save_or_cancel_links
+  class TestFormBuilder < ExtensibleFormBuilder
+    def self.reset!
+      self.labels = true
+      self.wrap = true
+      self.default_class_names.clear
+    end
+  end
+
+  def build_form(&block)
+    @controller = Class.new { def url_for(options); 'url' end }.new
+    larticle = Article.new(:title => 'article title')
+    form_for(:article, @article, :builder => TestFormBuilder, &block)
+    output_buffer
+  end
+
+  include ::BaseHelper
+
+  test "#save_or_cancel_links uses only button if no cancel url is given" do
+    stub(self).protect_against_forgery? { false } # let's make it easier
+    html = build_form { |f| save_or_cancel_links(f) }
+    html.should have_tag('p.buttons') do |buttons|
+      buttons.should have_tag('input[type=?][id=?][value=]', 'submit', 'commit', 'Save')
+      html.should_not =~ /or/
+      buttons.should_not have_tag('a', 'Cancel')
+    end
+  end
+
+  test "#save_or_cancel_links uses all parts if cancel url is given" do
+    stub(self).protect_against_forgery? { false } # let's make it easier
+    html = build_form { |f| save_or_cancel_links(f, :cancel_url => 'cancel url') }
+    html.should have_tag('p.buttons') do |buttons|
+      buttons.should have_tag('input[type=?][id=?][value=?]', 'submit', 'commit', 'Save')
+      html.should =~ /or/
+      buttons.should have_tag('a[href=?]', 'cancel url', 'Cancel')
+    end
+  end
+
+  test "#save_or_cancel_links uses custom save text" do
+    stub(self).protect_against_forgery? { false } # let's make it easier
+    html = build_form { |f| save_or_cancel_links(f, :save_text => 'save text') }
+    html.should have_tag('input[type=?][value=?]', 'submit', 'save text')
+  end
+
+  test "#save_or_cancel_links uses custom or text" do
+    stub(self).protect_against_forgery? { false } # let's make it easier
+    html = build_form { |f| save_or_cancel_links(f, :cancel_url => 'cancel url', :or_text => 'or text') }
+    html.should =~ /or text/
+  end
+
+  test "#save_or_cancel_links uses custom cancel text" do
+    stub(self).protect_against_forgery? { false } # let's make it easier
+    html = build_form { |f| save_or_cancel_links(f, :cancel_url => 'cancel url', :cancel_text => 'cancel text') }
+    html.should have_tag('a[href=?]', 'cancel url', 'cancel text')
+  end
+
+  test "#save_or_cancel_links uses custom save attributes" do
+    stub(self).protect_against_forgery? { false } # let's make it easier
+    html = build_form { |f| save_or_cancel_links(f, :save => { :class => 'save class' }) }
+    html.should have_tag('input[type=?][class=?]', 'submit', 'save class')
+  end
+
+  test "#save_or_cancel_links uses custom cancel attributes" do
+    stub(self).protect_against_forgery? { false } # let's make it easier
+    html = build_form { |f| save_or_cancel_links(f, :cancel_url => 'cancel url', :cancel => { :class => 'cancel class' }) }
+    html.should have_tag('a[href=?][class=?]', 'cancel url', 'cancel class')
+  end
+
+  # link_to_profile
+  test "#link_to_profile links to admin/sites/1/users/1 if site is given" do
+    link_to_profile(@site).should =~ @admin_site_user_path
+  end
+
+  test "#link_to_profile links to  admin/users/1 if no site is given" do
+    link_to_profile.should =~ @admin_user_path
+  end
+
+  test "#link_to_profile links to  admin/users/1 if site is a new record" do
+    link_to_profile(Site.new).should =~ @admin_user_path
+  end
+
+  test "#link_to_profile links to custom link name for profile if specified" do
+    link_to_profile(Site.new, :name => 'Dummy').should =~ />Dummy</
+  end
+end
+
+class CachedPagesHelperTest < ActionView::TestCase
+  include Admin::BaseHelper
+
+  def setup
+    super
+    @page = CachedPage.first
+
+    @time_now = Time.local 2008, 1, 2, 12
+    @yesterday = Time.local 2008, 1, 1, 12
+
+    stub(Time).now.returns @time_now # wtf ... time_now_in_words ignores the timezone
+    stub(Time.zone).now.returns @time_now
+    stub(Time.zone.now).yesterday.returns @yesterday
+    stub(Date).today.returns @time_now.to_date
+  end
+
+  test '#page_cached_at returns a variant of time_ago_in_words if the cached page was updated no more than 4 hours ago' do
+    @page.updated_at = @time_now - 55.minutes
+    page_cached_at(@page).should == '~ 1 hour ago'
+  end
+
+  test "#page_cached_at returns a formatted date preceeded with 'Today' if the cached page was updated earlier today" do
+    @page.updated_at = @time_now - 6.hours
+    page_cached_at(@page).should =~ /Today, /
+  end
+
+  test "#page_cached_at returns a formatted date if the cached page was updated before today" do
+    @page.updated_at = @yesterday
+    page_cached_at(@page).should == 'Jan 01, 2008'
+  end
+end

data/adva_cms/test/unit/helpers/base_helper_spec.rb

@@ -0,0 +1,54 @@
+# FIXME ... integrate with base_helper_test.rb
+
+# require File.dirname(__FILE__) + '/../spec_helper'
+# 
+# describe BaseHelper do
+#   describe "#datetime_with_microformat" do
+#     before :each do
+#       @utc_time = Time.utc(2008, 10, 9, 12, 0, 0)
+#       Time.zone = 'America/New_York'
+#       @local_time = Time.zone.local(2008, 10, 9, 12, 0, 0) # is 16:00Z or 18:00 CEST
+#       Time.zone = :utc
+#     end
+# 
+#     it "displays the passed object when passed a non-Date/Time object" do
+#       helper.datetime_with_microformat(nil).should be_nil
+#       helper.datetime_with_microformat(1).should == 1
+#       helper.datetime_with_microformat('1').should == '1'
+#     end
+# 
+#     it "displays a UTC time in UTC" do    
+#       helper.datetime_with_microformat(@utc_time).should == '<abbr class="datetime" title="2008-10-09T12:00:00Z">October 09, 2008 @ 12:00 PM</abbr>'
+#     end
+# 
+#     it "displays a UTC time in New York" do
+#       Time.zone = "America/New_York"
+#       helper.datetime_with_microformat(@utc_time).should == '<abbr class="datetime" title="2008-10-09T12:00:00Z">October 09, 2008 @ 08:00 AM</abbr>'
+#     end
+# 
+#     it "displays a New York time in Vienna" do
+#       Time.zone = "Europe/Vienna"
+#       helper.datetime_with_microformat(@local_time).should == '<abbr class="datetime" title="2008-10-09T16:00:00Z">October 09, 2008 @ 06:00 PM</abbr>'
+#     end
+# 
+#     it "displays a non-UTC time and converts it to UTC" do
+#       helper.datetime_with_microformat(@local_time).should == '<abbr class="datetime" title="2008-10-09T16:00:00Z">October 09, 2008 @ 04:00 PM</abbr>'
+#     end
+# 
+#     it "displays a UTC time with a given date format" do
+#       helper.datetime_with_microformat(@utc_time, :format => :plain).should == '<abbr class="datetime" title="2008-10-09T12:00:00Z">October 09 12:00 PM</abbr>'
+#     end
+# 
+#     it "displays a non-UTC time with a given date format and converts it to UTC" do
+#       helper.datetime_with_microformat(@local_time, :format => :plain).should == '<abbr class="datetime" title="2008-10-09T16:00:00Z">October 09 04:00 PM</abbr>'
+#     end
+# 
+#     it "displays a UTC time with a given custom date format" do
+#       helper.datetime_with_microformat(@utc_time, :format => '%Y/%m/%d').should == '<abbr class="datetime" title="2008-10-09T12:00:00Z">2008/10/09</abbr>'
+#     end
+# 
+#     it "displays a non-UTC time with a given custom date format and converts it to UTC" do
+#       helper.datetime_with_microformat(@local_time, :format => '%Y/%m/%d').should == '<abbr class="datetime" title="2008-10-09T16:00:00Z">2008/10/09</abbr>'
+#     end
+#   end
+# end