accounts 0.0.1

data/features/step_definitions/web_steps.rb

@@ -0,0 +1,228 @@
+# Taken from the cucumber-rails project.
+# IMPORTANT: This file is generated by cucumber-sinatra - edit at your own peril.
+# It is recommended to regenerate this file in the future when you upgrade to a
+# newer version of cucumber-sinatra. Consider adding your own code to a new file
+# instead of editing this one. Cucumber will automatically load all features/**/*.rb
+# files.
+
+require 'uri'
+require 'cgi'
+require File.expand_path(File.join(File.dirname(__FILE__), "..", "support", "paths"))
+
+module WithinHelpers
+  def with_scope(locator)
+    locator ? within(locator) { yield } : yield
+  end
+end
+World(WithinHelpers)
+
+Given /^(?:\w+ )am on (.+)$/ do |page_name|
+  visit path_to(page_name)
+end
+
+When /^(?:\w+ )go to (.+)$/ do |page_name|
+  visit path_to(page_name)
+end
+
+When /^(?:\w+ )press(?:es)? "([^\"]*)"(?: within "([^\"]*)")?$/ do |button, selector|
+  with_scope(selector) do
+    click_button(button)
+  end
+end
+
+When /^(?:\w+ )follows? "([^\"]*)"(?: within "([^\"]*)")?$/ do |link, selector|
+  with_scope(selector) do
+    click_link(link)
+  end
+end
+
+When /^(?:\w+ )fills? in "([^\"]*)" with "([^\"]*)"(?: within "([^\"]*)")?$/ do |field, value, selector|
+  with_scope(selector) do
+    fill_in(field, :with => value)
+  end
+end
+
+When /^(?:\w+ )fills? in "([^\"]*)" for "([^\"]*)"(?: within "([^\"]*)")?$/ do |value, field, selector|
+  with_scope(selector) do
+    fill_in(field, :with => value)
+  end
+end
+
+# Use this to fill in an entire form with data from a table. Example:
+#
+#   When I fill in the following:
+#     | Account Number | 5002       |
+#     | Expiry date    | 2009-11-01 |
+#     | Note           | Nice guy   |
+#     | Wants Email?   |            |
+#
+# TODO: Add support for checkbox, select og option
+# based on naming conventions.
+#
+When /^(?:\w+ )fills? in the following(?: within "([^\"]*)")?:$/ do |selector, fields|
+  with_scope(selector) do
+    fields.rows_hash.each do |name, value|
+      When %{I fill in "#{name}" with "#{value}"}
+    end
+  end
+end
+
+When /^(?:\w+ )select "([^\"]*)" from "([^\"]*)"(?: within "([^\"]*)")?$/ do |value, field, selector|
+  with_scope(selector) do
+    select(value, :from => field)
+  end
+end
+
+When /^(?:\w+ )check "([^\"]*)"(?: within "([^\"]*)")?$/ do |field, selector|
+  with_scope(selector) do
+    check(field)
+  end
+end
+
+When /^(?:\w+ )uncheck "([^\"]*)"(?: within "([^\"]*)")?$/ do |field, selector|
+  with_scope(selector) do
+    uncheck(field)
+  end
+end
+
+When /^(?:\w+ )choose "([^\"]*)"(?: within "([^\"]*)")?$/ do |field, selector|
+  with_scope(selector) do
+    choose(field)
+  end
+end
+
+When /^(?:\w+ )attach the file "([^\"]*)" to "([^\"]*)"(?: within "([^\"]*)")?$/ do |path, field, selector|
+  with_scope(selector) do
+    attach_file(field, path)
+  end
+end
+
+Then /^(?:\w+ )should see JSON:$/ do |expected_json|
+  require 'json'
+  expected = JSON.pretty_generate(JSON.parse(expected_json))
+  actual   = JSON.pretty_generate(JSON.parse(response.body))
+  expected.should == actual
+end
+
+Then /^(?:\w+ )should see "([^\"]*)"(?: within "([^\"]*)")?$/ do |text, selector|
+  with_scope(selector) do
+    if page.respond_to? :should
+      page.should have_content(text)
+    else
+      assert page.has_content?(text)
+    end
+  end
+end
+
+Then /^(?:\w+ )should see \/([^\/]*)\/(?: within "([^\"]*)")?$/ do |regexp, selector|
+  regexp = Regexp.new(regexp)
+  with_scope(selector) do
+    if page.respond_to? :should
+      page.should have_xpath('//*', :text => regexp)
+    else
+      assert page.has_xpath?('//*', :text => regexp)
+    end
+  end
+end
+
+Then /^(?:\w+ )should not see "([^\"]*)"(?: within "([^\"]*)")?$/ do |text, selector|
+  with_scope(selector) do
+    if page.respond_to? :should
+      page.should have_no_content(text)
+    else
+      assert page.has_no_content?(text)
+    end
+  end
+end
+
+Then /^(?:\w+ )should not see \/([^\/]*)\/(?: within "([^\"]*)")?$/ do |regexp, selector|
+  regexp = Regexp.new(regexp)
+  with_scope(selector) do
+    if page.respond_to? :should
+      page.should have_no_xpath('//*', :text => regexp)
+    else
+      assert page.has_no_xpath?('//*', :text => regexp)
+    end
+  end
+end
+
+Then /^the "([^\"]*)" field(?: within "([^\"]*)")? should contain "([^\"]*)"$/ do |field, selector, value|
+  with_scope(selector) do
+    field = find_field(field)
+    field_value = (field.tag_name == 'textarea') ? field.text : field.value
+    if field_value.respond_to? :should
+      field_value.should =~ /#{value}/
+    else
+      assert_match(/#{value}/, field_value)
+    end
+  end
+end
+
+Then /^the "([^\"]*)" field(?: within "([^\"]*)")? should not contain "([^\"]*)"$/ do |field, selector, value|
+  with_scope(selector) do
+    field = find_field(field)
+    field_value = (field.tag_name == 'textarea') ? field.text : field.value
+    if field_value.respond_to? :should_not
+      field_value.should_not =~ /#{value}/
+    else
+      assert_no_match(/#{value}/, field_value)
+    end
+  end
+end
+
+Then /^the "([^\"]*)" checkbox(?: within "([^\"]*)")? should be checked$/ do |label, selector|
+  with_scope(selector) do
+    field_checked = find_field(label)['checked']
+    if field_checked.respond_to? :should
+      field_checked.should == 'checked'
+    else
+      assert_equal 'checked', field_checked
+    end
+  end
+end
+
+Then /^the "([^\"]*)" checkbox(?: within "([^\"]*)")? should not be checked$/ do |label, selector|
+  with_scope(selector) do
+    field_checked = find_field(label)['checked']
+    if field_checked.respond_to? :should_not
+      field_checked.should_not == 'checked'
+    else
+      assert_not_equal 'checked', field_checked
+    end
+  end
+end
+
+Then /^(?:\w+ )should be on "([^\"]*)"$/ do |pat|
+  current_path = URI.parse(current_url).path
+  if current_path.respond_to? :should
+    current_path.should match pat
+  else
+    assert_true current_path.match(pat)
+  end
+end
+
+Then /^(?:\w+ )should be on (.+)$ page$/ do |page_name|
+  current_path = URI.parse(current_url).path
+  if current_path.respond_to? :should
+    current_path.should == path_to(page_name)
+  else
+    assert_equal path_to(page_name), current_path
+  end
+end
+
+Then /^(?:\w+ )should have the following query string:$/ do |expected_pairs|
+  query = URI.parse(current_url).query
+  actual_params = query ? CGI.parse(query) : {}
+  expected_params = {}
+  expected_pairs.rows_hash.each_pair{|k,v| expected_params[k] = v.split(',')}
+
+  if actual_params.respond_to? :should
+    actual_params.should == expected_params
+  else
+    assert_equal expected_params, actual_params
+  end
+end
+
+Then /^show me the page$/ do
+  save_and_open_page
+end

data/features/support/env.rb

@@ -0,0 +1,18 @@
+# Copyright Westside Consulting LLC, Ann Arbor, MI, USA, 2012
+
+require './demo/web_app'
+require 'capybara/cucumber'
+
+Capybara.app = MyWebApp
+
+class AccountsWorld
+  include Capybara::DSL
+  include RSpec::Expectations
+  include RSpec::Matchers
+end
+
+World do |;world|
+  world = AccountsWorld.new
+  #STDERR.puts world.class.included_modules
+  #File.open("/tmp/methods.txt", "w").puts world.methods 
+end

data/features/support/paths.rb

@@ -0,0 +1,29 @@
+# Taken from the cucumber-rails project.
+
+module NavigationHelpers
+  # Maps a name to a path. Used by the
+  #
+  #   When /^I go to (.+)$/ do |page_name|
+  #
+  # step definition in web_steps.rb
+  #
+  def path_to(page_name)
+    case page_name
+
+    when /the home\s?page/
+      '/'
+
+    # Add more mappings here.
+    # Here is an example that pulls values out of the Regexp:
+    #
+    #   when /^(.*)'s profile page$/i
+    #     user_profile_path(User.find_by_login($1))
+
+    else
+      raise "Can't find mapping from \"#{page_name}\" to a path.\n" +
+        "Now, go and add a mapping in #{__FILE__}"
+    end
+  end
+end
+
+World(NavigationHelpers)

data/features/support/unused.rb

@@ -0,0 +1,29 @@
+# From http://www.natontesting.com/2011/04/05/cucumber-formatter-for-unused-steps/
+#
+# Copyright (c) 2010, Nathaniel Ritmeyer. All rights reserved.
+#
+# http://www.natontesting.com
+#
+# Save this in a file called 'unused.rb' in your 'features/support' directory. Then, to list
+# all the unused steps in your project, run the following command:
+#
+#   cucumber -d -f Cucumber::Formatter::Unused
+#
+# or...
+#
+#   cucumber -d -f Unused
+
+require 'cucumber/formatter/stepdefs'
+
+class Unused < Cucumber::Formatter::Stepdefs
+  def print_summary(features)
+    add_unused_stepdefs
+    keys = @stepdef_to_match.keys.sort {|a,b| a.regexp_source <=> b.regexp_source}
+    puts "The following steps are unused...\n---------"
+    keys.each do |stepdef_key|
+      if @stepdef_to_match[stepdef_key].none?
+        puts "#{stepdef_key.regexp_source}\n#{stepdef_key.file_colon_line}\n---"
+      end
+    end
+  end
+end

data/lib/accounts.rb

@@ -0,0 +1,79 @@
+# Copyright Westside Consulting LLC, Ann Arbor, MI, USA, 2012
+
+require 'accounts/version'
+require 'accounts/model'
+require 'accounts/configure'
+require 'accounts/helpers'
+
+module Accounts
+
+  class Server < ::Sinatra::Base
+
+    helpers do
+      include ::Accounts::Helpers
+    end
+
+    error ::Accounts::AccountsError do
+      env['sinatra.error'].return_error_page
+    end
+
+    post '/logon' do
+      email = params[:email]
+      password = params[:password]
+
+      if authenticate! email, password then
+        redirect to Accounts.redirect_after_logon
+      else
+        session[:account_id] = nil
+        halt 403
+      end
+    end
+
+    post '/register' do
+      email = params[:email]
+      account = ::Accounts::Account.first({ :email => email })
+      case
+      when !account
+        register_new_account email
+        halt Accounts.post_register_new_account_response
+      when account.status.include?(:email_confirmed)
+        halt Accounts.post_register_already_registered_response[email]
+      end
+      send_change_password_link account
+      Accounts.post_register_new_account_response
+    end
+
+    post '/forgot-password' do
+      email = params[:email]
+      account = ::Accounts::Account.first({ :email => email }) \
+        or halt Accounts.post_forgot_password_email_does_not_match_response[email]
+      send_change_password_link account
+      Accounts.post_forgot_password_response
+    end
+
+    post '/change-password' do
+      halt 403 unless session[:account_id]
+      account = ::Accounts::Account.get(session[:account_id]) \
+        or halt 403
+      account.set_password params[:password]
+      Accounts.deliver_change_password_confirmation[account.email]
+      Accounts.changed_your_password_response
+    end
+
+    post '/change-email' do
+      halt 403 unless session[:account_id]
+      account = ::Accounts::Account.get(session[:account_id]) \
+        or halt 403
+      new_email = params[:email]
+      ::Accounts::Account.count(:email => new_email) == 0 \
+        or halt "#{new_email} is already taken"
+      send_change_email_confirmation account, new_email
+      Accounts.deliver_change_email_notification[account.email, new_email]
+      Accounts.post_change_email_response
+    end
+
+    get '/response-token/:token' do
+      respond_to_token params[:token]
+    end
+  end
+end

data/lib/accounts/configure.rb

@@ -0,0 +1,122 @@
+# Copyright Westside Consulting LLC, Ann Arbor, MI, USA, 2012
+
+module Accounts
+  class << self 
+    attr_accessor :page_not_found # String
+    attr_accessor :redirect_after_logon # String
+    attr_accessor :post_forgot_password_response # String
+    attr_accessor :changed_your_password_response # String
+    attr_accessor :post_register_new_account_response  # String
+    attr_accessor :post_register_already_registered_response # Proc(email)
+    attr_accessor :post_forgot_password_email_does_not_match_response  # Proc(email)
+    attr_accessor :post_change_email_response # String
+    attr_accessor :admin_email # String
+    attr_accessor :deliver_registration_confirmation  # Proc(email, link)
+    attr_accessor :deliver_change_password_link # Proc(email, link)
+    attr_accessor :deliver_change_password_confirmation # Proc(email)
+    attr_accessor :deliver_change_email_confirmation # Proc(old_email, new_email, link)
+    attr_accessor :deliver_new_account_admin_notification #Proc(email)
+    attr_accessor :deliver_change_email_notification #Proc(old_email, new_email)
+
+    ##
+    # Configure Accounts with your custom pages and e-mails.
+    #
+    #    Accounts.configure do |config|
+    #      config.changed_your_password_response = "You have changed your password."
+    #      config.redirect_after_logon = "/welcome"
+    #    end
+    #
+    # See lib/accounts/configure.rb for complete example.
+    #
+    # All config params that are strings may be replaced with Procs.
+    def configure
+      yield self
+    end
+  end
+end
+
+# Set defaults - can be overiden
+Accounts.configure do |config|
+
+  config.changed_your_password_response = "You have changed your password."
+  config.redirect_after_logon = "/welcome"
+  config.post_register_new_account_response = "Check your e-mail."
+  config.post_forgot_password_response = "Check your e-mail to change your password."
+  config.post_change_email_response = "Check your e-mail."
+  config.admin_email = 'admin@accounts.test'
+
+  config.post_forgot_password_email_does_not_match_response = ->(email) {
+    %Q{#{email} does not match any account.  You may <a href="/register">register here</a>.}
+  }
+
+  config.post_register_already_registered_response = ->(email) {
+    %Q{#{email} is already registered.  You may <a href="/logon?email=#{email}"log on</a>.}
+  }
+
+  config.deliver_registration_confirmation = ->(email, link) {
+    Mail.deliver do
+      from Accounts.admin_email
+      to email
+      subject 'Your e-mail is confirmed'
+      body %Q{You have registered for accounts.test.
+
+Follow this link to confirm your e-mail address and set your password: #{link}
+      }
+    end
+  }
+
+  config.deliver_change_password_link = ->(email, link) {
+    Mail.deliver do
+      from Accounts.admin_email
+      to email
+      subject 'How to change your password'
+      body "Follow this link to change your password: #{link}"
+    end
+  }
+
+  config.deliver_change_password_confirmation = ->(email) {
+    Mail.deliver do
+      from Accounts.admin_email
+      to email
+      subject 'Your password has changed'
+      body "The password for #{email} has changed."
+    end
+  }
+
+  config.deliver_change_email_confirmation = ->(old_email, new_email, link) {
+    Mail.deliver do
+      from Accounts.admin_email
+      to new_email
+      subject 'You requested to change your e-mail'
+      body %Q{You have requested to change your e-mail to #{new_email}."
+
+  You must visit this link to confirm: #{link}
+
+  #{old_email} has also been sent a notification e-mail.
+      }
+    end
+  }
+  config.deliver_new_account_admin_notification = ->(email) {
+    Mail.deliver do
+      from Accounts.admin_email
+      to Accounts.admin_email
+      subject 'new account has confirmed e-mail'
+      body "#{email} has registered and confirmed"
+    end
+  }
+
+  config.deliver_change_email_notification = ->(old_email, new_email) {
+    Mail.deliver do
+      from Accounts.admin_email
+      to old_email
+      subject 'You requested to change your e-mail'
+      body %Q{You have requested to change your e-mail to #{new_email}."
+
+An e-mail has been sent to #{new_email}.
+
+Please open that mail and follow the instructions.
+      }
+    end
+  }
+end
+