adva-core 0.0.3 → 0.0.4

data/lib/patches/rails/template_resolver_caching.rb

@@ -0,0 +1,9 @@
+# Gem.patching('rails', '3.0.0.rc') do
+#   require 'action_view/template/resolver'
+#   ActionView::Resolver.class_eval do
+#     def caching?
+#       # @caching ||= !defined?(Rails.application) || Rails.application.config.cache_classes
+#       @caching ||= !defined?(Rails.application) || Rails.application.nil? || Rails.application.config.cache_classes
+#     end
+#   end
+# end

data/lib/patches/rails/translation_helper.rb

@@ -0,0 +1,18 @@
+# Make the view translation helper use the :rescue_format => :html option instead
+# of rescuing exceptions itself.
+#
+# See https://rails.lighthouseapp.com/projects/8994-ruby-on-rails/tickets/5969-bump-i18n-and-make-translationhelper-use-new-rescue_format-option#ticket-5969-8
+Gem.patching('rails', '3.0.3') do
+  ActionView::Helpers::TranslationHelper.module_eval do
+    def translate(key, options = {})
+      options.merge!(:rescue_format => :html) unless options.key?(:rescue_format)
+      translation = I18n.translate(scope_key_by_partial(key), options)
+      if html_safe_translation_key?(key) && translation.respond_to?(:html_safe)
+        translation.html_safe
+      else
+        translation
+      end
+    end
+    alias :t :translate
+  end
+end

data/lib/patches/responders/flash_responder.rb

@@ -0,0 +1,17 @@
+require 'responders/flash_responder'
+
+Responders::FlashResponder.class_eval do
+  def flash_defaults_by_namespace(status)
+    defaults = []
+    slices   = controller.controller_path.split('/')
+
+    while slices.size > 0
+      defaults << :"flash.#{slices.fill(controller.controller_name, -1).join('.')}.#{controller.action_name}.#{status}"
+      defaults << :"flash.#{slices.join('.')}.#{controller.action_name}.#{status}"
+      slices.shift
+    end
+
+    defaults << :"flash.#{controller.action_name}.#{status}"
+    defaults.uniq << ""
+  end
+end

data/lib/patches/simple_form.rb

@@ -0,0 +1,37 @@
+require 'gem_patching'
+
+# add "blog edit_blog" as css classes. should propose a patch to simple_form
+
+Gem.patching('simple_form', '1.2.2') do
+  SimpleForm::ActionViewExtensions::FormHelper.module_eval do
+    [:form_for, :fields_for, :remote_form_for].each do |helper|
+      class_eval <<-METHOD, __FILE__, __LINE__
+        def simple_#{helper}(record_or_name_or_array, *args, &block)
+          css_classes = simple_css_classes(record_or_name_or_array)
+
+          options = args.extract_options!
+          options[:builder] = SimpleForm::FormBuilder
+          options[:html] ||= {}
+          options[:html][:class] = "simple_form \#{css_classes} \#{options[:html][:class]}".strip
+
+          with_custom_field_error_proc do
+            #{helper}(record_or_name_or_array, *(args << options), &block)
+          end
+        end
+      METHOD
+    
+      def simple_css_classes(record_or_name_or_array)
+        css_classes = case record_or_name_or_array
+          when String, Symbol
+            record_or_name_or_array.to_s
+          when Array
+            record = record_or_name_or_array.last
+            action = record.new_record? ? 'new' : 'edit'
+            [dom_class(record), dom_class(record, action)].join(' ')
+          else 
+            dom_class(record_or_name_or_array)
+        end
+      end
+    end
+  end
+end

data/lib/patches/thor/core_ext/hash.rb

@@ -0,0 +1,7 @@
+require 'thor/core_ext/hash_with_indifferent_access'
+
+Thor::CoreExt::HashWithIndifferentAccess.class_eval do
+  def to_hash
+    Hash.new.merge(self)
+  end
+end

data/lib/patches/thor/group/symbolized_options.rb

@@ -0,0 +1,8 @@
+require 'thor/group'
+
+Thor::Group.class_eval do
+  protected
+    def symbolized_options
+      options.to_hash.symbolize_keys
+    end
+end

data/lib/patches/webrat/links-data-method.rb

@@ -0,0 +1,15 @@
+require 'gem_patching'
+
+Gem.patching('webrat', '0.7.2') do
+  Webrat::Link.class_eval do
+    def http_method
+      if !@element["data-method"].blank?
+        @element["data-method"]
+      elsif !onclick.blank? && onclick.include?("f.submit()")
+        http_method_from_js_form
+      else
+        :get
+      end
+    end
+  end
+end if defined?(Webrat)

data/lib/patches/webrat/logger.rb

@@ -0,0 +1,14 @@
+require 'gem_patching'
+
+Gem.patching('webrat', '0.7.2') do
+  Webrat::Logging.class_eval do
+    def logger
+      case Webrat.configuration.mode
+      when :rails
+        defined?(Rails) ? Rails.logger : nil
+      else
+        super
+      end
+    end
+  end
+end if defined?(Webrat)

data/lib/patches/webrat/upload_file.rb

@@ -0,0 +1,23 @@
+require 'gem_patching'
+
+Gem.patching('webrat', '0.7.2') do
+  Webrat::FileField.class_eval do
+    include ActionDispatch::TestProcess
+
+    def test_uploaded_file
+      return "" if @original_value.blank?
+
+      case Webrat.configuration.mode
+      when :rails
+        if content_type
+          # Rails 3 does not have an ActionController::TestUploadedFile anymore
+          Rack::Test::UploadedFile.new(@original_value, content_type)
+        else
+          Rack::Test::UploadedFile.new(@original_value)
+        end
+      when :rack, :merb
+        Rack::Test::UploadedFile.new(@original_value, content_type)
+      end
+    end
+  end
+end if defined?(Webrat)

data/lib/testing/assertions.rb

@@ -0,0 +1,19 @@
+def assert_email_sent(attributes)
+  emails = ::ActionMailer::Base.deliveries
+  assert !emails.empty?, "No emails were sent"
+  matching_emails = emails.select do |email|
+    attributes.all? do |name, value| 
+      case name
+      when 'body'
+        value.split(',').map(&:strip).all? { |value| email.body.include?(value) }
+      else
+        email.send(name).to_s == value
+      end
+    end
+  end
+  assert !matching_emails.empty?, begin
+    msg = ["None of the #{emails.size} emails matched #{attributes.inspect}.\nInstead, there are the following emails:"]
+    msg += emails.map { |email| attributes.keys.map { |key| [key, email.send(key)] }.map { |key, value| "#{key}: #{value}" }.join(',') }
+    msg.join("\n")
+  end
+end

data/lib/testing/env.rb

@@ -0,0 +1,41 @@
+ENV["RAILS_ENV"] = "test"
+require 'rubygems'
+require 'bundler/setup'
+Bundler.require
+
+name = "#{File.basename(Dir.pwd)}-test"
+app = Adva::Generators::App.new(name, :target => '/tmp', :migrate => true)
+app.invoke
+
+Gem.patching('webrat', '0.7.2') do
+  ActionController.send(:remove_const, :AbstractRequest)
+end
+
+require 'cucumber/rails/world'
+require 'cucumber/rails/active_record'
+require 'cucumber/web/tableish'
+require 'webrat'
+require 'webrat/core/matchers'
+require 'patches/webrat/logger'
+require 'test/unit/assertions'
+require 'action_dispatch/testing/assertions'
+require 'factory_girl'
+require Adva::Core.root.join('lib/core_ext/rails/active_record/skip_callbacks')
+
+Adva::Testing.load_factories
+Adva::Testing.load_cucumber_support
+Adva::Testing.load_assertions
+Adva::Testing.load_helpers
+
+Webrat.configure do |config|
+  config.mode = :rails
+  config.open_error_files = false
+end
+
+ActionController::Base.allow_rescue = false
+Cucumber::Rails::World.use_transactional_fixtures = true
+Rails.backtrace_cleaner.remove_silencers!
+
+World(GlobalHelpers)
+Adva.out = StringIO.new('')
+

data/lib/testing/factories.rb

@@ -0,0 +1,28 @@
+Factory.define :site do |f|
+  f.account Account.first || Account.create!
+  f.name    'adva-cms'
+  f.host    'www.example.com'
+  f.title   'adva-cms'
+  f.sections_attributes [{
+    :type => 'Page',
+    :name => 'Home',
+    :body => 'body'
+  }]
+  f.after_create { |site| Factory(:admin) }
+end
+
+Factory.define :section do |f|
+  f.site { Site.first || Factory(:site) }
+  f.name 'Home'
+end
+
+Factory.define :page do |f|
+  f.site { Site.first || Factory(:site) }
+  f.name 'Home'
+end
+
+Factory.define :content do |f|
+  f.site { Site.first || Factory(:site) }
+  f.section { Section.first || Factory(:section) }
+  f.title 'Content'
+end

data/lib/testing/helpers/global_helpers.rb

@@ -0,0 +1,9 @@
+module GlobalHelpers
+  def site
+    Site.first || raise("Could not find a site. Maybe you want to set one up in your story background?")
+  end
+
+  def account
+    Account.first || raise("Could not find a site. Maybe you want to set one up in your story background?")
+  end
+end

data/lib/testing/paths.rb

@@ -0,0 +1,54 @@
+module Adva::Core::Paths
+  def path_to(page)
+    case page
+
+    when /^\//
+      page
+
+    when /^the home\s?page$/
+      '/'
+
+    when /^the site installation page$/
+      new_installation_path
+
+    when /^the site installation confirmation page$/
+      installation_path(Site.last)
+
+    when /^the "([^"]*)" section page$/
+      section = Section.where(:name => $1).first || raise("could not find section named #{$1}")
+      polymorphic_path(section)
+
+    when /^the admin sites page$/
+      polymorphic_path([:admin, :sites])
+
+    when /^the admin dashboard page$/
+      site = Site.first
+      polymorphic_path([:admin, site])
+
+    when /^the admin dashboard page for the site on "([^"]*)"$/
+      site = Site.find_by_host($1) || raise("could not find site with host #{$1}")
+      polymorphic_path([:admin, site])
+
+    when /^the admin sections page$/
+      site = Site.first
+      polymorphic_path([:admin, site, :sections])
+
+    when /^the admin "([^"]*)" section page$/
+      site = Site.first
+      section = Section.where(:name => $1).first || raise("could not find section named #{$1}")
+      polymorphic_path([:admin, site, section])
+
+    when /^the admin "([^"]*)" section settings page$/
+      site = Site.first
+      section = Section.where(:name => $1).first || raise("could not find section named #{$1}")
+      polymorphic_path([:edit, :admin, site, section])
+
+    else
+      named_route_helper = page.gsub(/(\Athe )|( page\Z)/, '').gsub(/ +/, '_').downcase + '_path'
+      raise "Can't find mapping from \"#{page}\" to a path.\nNow, go and add a mapping in #{__FILE__}" unless respond_to?(named_route_helper)
+      send named_route_helper
+    end
+  end
+end
+
+World(Adva::Core::Paths)

data/lib/testing/step_definitions/common_steps.rb

@@ -0,0 +1,287 @@
+Given 'a site' do
+  @site = Factory(:site)
+end
+
+# Examples:
+# 1. Given the following products:
+# Also supports namespaced models, (cnet) indicating the namespace Cnet
+# 2. Given the following (cnet) products:
+Given /^the following ((?:\([a-z ]+\) )?(?:[\w]+)):$/ do |type, table|
+  type = type.gsub(/^\(([a-z ]+)\) /, "\\1/").gsub(' ', '_').singularize
+  table.hashes.each do |attributes|
+    type = attributes.delete('type').underscore if attributes.key?('type')
+    attributes['site'] = site if type.classify.constantize.column_names.include?('site_id')
+    parent = attributes.delete('parent')
+    attributes['parent_id'] = type.classify.constantize.find_by_name(parent) unless parent.blank?
+    Factory(type, attributes)
+  end
+end
+
+Given /^the (\w+) "([^"]*)" is a child of "([^"]*)"$/ do |model, child, parent|
+  model  = model.classify.constantize
+  parent = model.find_by_name(parent)
+  child  = model.find_by_name(child)
+  child.move_to_child_of(parent)
+end
+
+Given /^a site with the following sections:$/ do |table|
+  Site.all.map(&:destroy)
+  @site = Factory(:site, :sections_attributes => [])
+  Given "the following sections:", table
+end
+
+Given /^a site with a (\w+) named "([^"]+)"$/ do |section, name|
+  Site.all.map(&:destroy)
+  @site = Factory(:site, :sections_attributes => [])
+  Given %(a #{section} named "#{name}")
+end
+
+# e.g. a blog named "Blog"
+Given /^an? (\w+) (name|title)d "([^"]+)"$/ do |model, attribute, value|
+  model = model.classify.constantize
+  attributes = { attribute => value }
+  attributes[:site_id]    = site.id    if model.column_names.include?('site_id')
+  attributes[:account_id] = account.id if model.column_names.include?('account_id')
+  model.where(attributes).first || model.create!(attributes)
+end
+
+Given /^an? (\w+) with the following attributes:$/ do |model, table|
+  Factory(model, table.rows_hash)
+end
+
+# e.g. a post titled "Post" for the blog "Blog"
+# e.g. a category named "Category" belonging to the blog "Blog"
+Given /^an? (\w+) (name|title)d "([^"]+)" (?:for|belonging to) the (\w+) "([^"]+)"$/ do |model, attribute, value, section, name|
+  section = Given(%(a #{section} named "#{name}"))
+  collection = section.send(model.underscore.pluralize)
+  attributes = { attribute => value }
+  collection.where(attributes).first || collection.create!(attributes)
+end
+
+# e.g. a post with the title "Post" for the blog "Blog"
+# e.g. a post with the title "Post" belonging to the blog "Blog"
+Given /^an? (\w+) with the (\w+) "([^"]+)" (?:for|belonging to) the (\w+) "([^"]+)"$/ do |model, attribute, value, section, name|
+  section = Given(%(a #{section} named "#{name}"))
+  collection = section.send(model.underscore.pluralize)
+  attributes = { attribute => value }
+  collection.where(attributes).first || collection.create!(attributes)
+end
+
+Given /^(\w+)s with the following attributes:$/ do |model, table|
+  table.hashes.each do |attributes|
+    Factory(model, attributes)
+  end
+end
+
+When /^(.+) that link$/ do |step|
+  raise "no last link" if @last_link.blank?
+  When %(#{step} "#{@last_link}")
+end
+
+When /^I (press|click) "(.*)" in the row (of the ([a-z ]+) table )?where "(.*)" is "(.*)"$/ do |press_or_click, link_or_button, _, table_id, header, cell_content|
+  body = Nokogiri::HTML(response.body)
+  table_xpath = table_id.nil? ? 'table' : "table[@id='#{table_id.gsub(/ /, '_')}']"
+  table_header_cells = body.xpath("//#{table_xpath}/descendant::th[normalize-space(text())='#{header}']/@id")
+  assert !table_header_cells.empty?, "could not find table header cell '#{header}'"
+  header_id = body.xpath("//#{table_xpath}/descendant::th[normalize-space(text())='#{header}']/@id").first.value
+  row_id = body.xpath("//#{table_xpath}/descendant::td[@headers='#{header_id}'][normalize-space(text())='#{cell_content}']/ancestor::tr/@id").first.value
+  within("##{row_id}") do
+    send({'press' => 'click_button', 'click' => 'click_link'}[press_or_click], link_or_button)
+  end
+end
+
+When /^I visit the url from the email to (.*)$/ do |to|
+  email = ::ActionMailer::Base.deliveries.detect { |email| email.to.include?(to) }
+  assert email, "email to #{to} could not be found"
+  url = email.body.to_s =~ %r((http://[^\s"]+)) && $1
+  visit(url)
+end
+
+Then /^I should (not )?see a ([a-z ]+ )?row (?:of the ([a-z ]+) table )?where "(.*)" is "(.*)"$/ do |optional_not, row_classes, table_id, header, cell_content|
+  body = Nokogiri::HTML(response.body)
+  table_xpath = table_id.nil? ? 'table' : "table[@id='#{table_id.gsub(/ /, '_')}']"
+  table_header_cells = body.xpath("//#{table_xpath}/descendant::th[normalize-space(text())='#{header}']/@id")
+
+  unless optional_not.present?
+    assert !table_header_cells.empty?, "could not find table header cell '#{header}'"
+  end
+  header_id = body.xpath("//#{table_xpath}/descendant::th[normalize-space(text())='#{header}']/@id").first.try(:value)
+
+  class_condition = row_classes.to_s.split(' ').map do |row_class|
+    "contains(concat(' ', normalize-space(@class), ' '), ' #{row_class} ')"
+  end.join(' and ')
+  tr_xpath = class_condition.empty? ? 'ancestor::tr' : "ancestor::tr[#{class_condition}]"
+  xpath_result = body.xpath("//#{table_xpath}/descendant::td[@headers='#{header_id}'][normalize-space(text())='#{cell_content}']/#{tr_xpath}/@id")
+
+  if optional_not.present?
+    assert xpath_result.empty?, 'should not find a row'
+  else
+    assert xpath_result.any?, 'should find at least one row'
+  end
+end
+
+Then /^there should be an? (\w+)$/ do |model|
+  assert @last_record = model.classify.constantize.first, "could not find any #{model}"
+end
+
+Then /^there should be an? (\w+) named "([^\"]+)"$/ do |model, name|
+  assert @last_record = model.classify.constantize.where(:name => name).first, "could not find any #{model} named #{name}"
+end
+
+Then /^there should not be an? (\w+) named "([^"]*)"$/ do |model, name|
+  assert !model.classify.constantize.where(:name => name).first, "expected no #{model} named #{name} exists, but found one"
+end
+
+Then /^there should be a (\w+) with the following attributes:$/ do |model, table|
+  assert @last_record = model.classify.constantize.where(table.rows_hash).first, "could not find a #{model} with #{table.rows_hash.inspect}"
+end
+
+Then /^there should be (\w+)s with the following attributes:$/ do |model, table|
+  table.hashes.each do |attributes|
+    assert model.classify.constantize.where(attributes).first, "could not find a #{model} with #{attributes.inspect}"
+  end
+end
+
+Then /^that (\w+) should have an? (\w+) with the following attributes:$/ do |last, model, table|
+  assert @last_record.is_a?(last.classify.constantize), "wrong type for last #{last}"
+  assert @last_record.send(model.pluralize).where(table.rows_hash).first, "could not find a #{model} with #{table.rows_hash.inspect}"
+end
+
+Then /^that (\w+) should have (\w+)s with the following attributes:$/ do |last, model, table|
+  assert @last_record.is_a?(last.classify.constantize), "wrong type for last #{last}"
+  table.hashes.each do |attributes|
+    assert @last_record.send(model.pluralize).where(attributes).first, "could not find a #{model} with #{attributes.inspect}"
+  end
+end
+
+Then /^the title should be "([^"]+)"$/ do |title|
+  assert_select('title', title)
+end
+
+Then /^I should see (an?|the) "([^"]+)"$/ do |kind, thing|
+  kind = { 'a' => '.', 'the' => '#' }[kind]
+  assert_select("#{kind}#{thing}")
+end
+
+Then /^I should see a link "([^"]+)"$/ do |link|
+  @last_link = link
+  assert_select('a', link)
+end
+
+Then /^I should not see any (\w+)$/ do |type|
+  assert_select(".#{type.singularize}", :count => 0) # .#{type},
+end
+
+Then /^I should see an? (\w+)$/ do |type|
+  assert_select(".#{type}")
+end
+
+Then /^I should see an? (\w+) (?:titled|named) "([^"]+)"$/ do |type, text|
+  assert_select(".#{type} h2", text)
+end
+
+Then /^I should see an? (\w+) containing "([^"]+)"$/ do |type, text|
+  assert_select(".#{type}", /#{text}/)
+end
+
+Then /^I should see an? (\w+) list$/ do |type|
+  assert_select(".#{type}.list")
+end
+
+Then /^I should see a list of (\w+)$/ do |type|
+  assert_select(".#{type}.list")
+end
+
+Then /^I should see an? ([a-z ]+) form$/ do |type|
+  tokens = type.split(' ')
+  types = [tokens.join('_'), tokens.reverse.join('_')]
+  selectors = types.map { |type| "form.#{type}, form##{type}" }
+  assert_select(selectors.join(', '))
+end
+
+Then /^I should not see an? ([a-z ]+) form$/ do |type|
+  type = type.gsub(' ', '_') #.gsub(/edit_/, '')
+  assert_select("form.#{type}, form##{type}", :count => 0)
+end
+
+Then /^I should see an? ([a-z ]+) form with the following values:$/ do |type, table|
+  type = type.gsub(' ', '_') #.gsub(/edit_/, '')
+  assert_select("form.#{type}, form##{type}") do |form|
+    table.rows_hash.each do |name, value|
+      assert_equal value, webrat.current_scope.field_labeled(name).value
+    end
+  end
+end
+
+Then /^I should see a "(.+)" table with the following entries:$/ do |table_id, expected_table|
+  actual_table = table(tableish("table##{table_id} tr", 'td,th'))
+  begin
+    diff_table = expected_table.dup
+    diff_table.diff!(actual_table.dup)
+  rescue
+    puts "\nActual table:#{actual_table.to_s}\n"
+    puts "Expected table:#{expected_table.to_s}\n"
+    puts "Difference:#{diff_table.to_s}\n"
+    raise
+  end
+end
+
+Then /^I should see the "([^"]+)" page$/ do |name|
+  assert_select('h2', name)
+end
+
+Then(/(?:\$|eval) (.*)$/) do |code|
+  pp eval(code)
+end
+
+Then /^I should see a flash (error|notice|message) "(.+)"$/ do |message_type, message|
+  assert_match message, flash_cookie[message_type].to_s
+end
+
+Then /^I should not see a flash (error|notice) "(.+)"$/ do |message_type, message|
+  assert_no_match /message/, flash_cookie[message_type].to_s
+end
+
+Then /^I should (see|not see) the error "([^"]+)" for attribute "([^"]+)" of the "([^"]+)"$/ do |should_see, error_msg, attribute, model|
+  if should_see == 'see' # ugh ...
+    assert_select "*[id*=#{model.downcase.gsub(' ', '_')}_#{attribute.downcase.gsub(' ', '_')}] + span.error",
+      :text => error_msg
+  elsif should_see == 'not see'
+    assert_select "*[id*=#{model.downcase.gsub(' ', '_')}_#{attribute.downcase.gsub(' ', '_')}] + span.error",
+      :text => error_msg, :count => 0
+  end
+end
+
+Then /^the following emails should have been sent:$/ do |expected_emails|
+  expected_emails.hashes.each do |attributes|
+    assert_email_sent(attributes)
+  end
+end
+
+Then /^"([^"]*)" should be filled in with "([^"]*)"$/ do |field, value|
+  field = webrat.field_labeled(field)
+  assert_equal value, field.value
+end
+
+Then /^"([^"]*)" should be checked$/ do |label|
+  field = webrat.field_labeled(label)
+  assert field.checked?, "expected the checkbox #{label} to be checked"
+end
+
+Then /^"([^"]*)" should not be checked$/ do |label|
+  field = webrat.field_labeled(label)
+  assert !field.checked?, "expected the checkbox #{label} not to be checked"
+end
+
+Then /^"([^"]*)" should be selected as "([^"]*)"$/ do |value, label|
+  select = webrat.field_labeled(label)
+  assert select, "count not find a select field labeled #{label}"
+  selected = select.element.xpath(".//option[@selected = 'selected']").first
+  assert selected, "could not find a selected option"
+  assert_equal value, selected.text
+end
+
+Then /^I should see "([^"]*)" formatted as a "([^"]*)" tag$/ do |value, tag|
+  assert_select(tag, value)
+end
+