harvested 0.3.0

data/features/step_definitions/model_steps.rb

@@ -0,0 +1,90 @@
+When /^I create an? (client|task|user|expense category) with the following:$/ do |type, table|
+  case type
+  when "client"
+    client = Harvest::Client.new(table.rows_hash)
+    harvest_api.clients.create(client)
+  when "task"
+    task = Harvest::Task.new(table.rows_hash)
+    harvest_api.tasks.create(task)
+  when "user"
+    user = Harvest::User.new(table.rows_hash)
+    harvest_api.users.create(user)
+  when "expense category"
+    expense_cat = Harvest::ExpenseCategory.new(table.rows_hash)
+    harvest_api.expense_categories.create(expense_cat)
+  else pending end
+end
+
+When /^I create a (contact|project) for the client "([^\"]*)" with the following:$/ do |type, client_name, table|
+  client = Then %Q{there should be a client "#{client_name}"}
+  attributes = table.rows_hash.merge("client_id" => client.id)
+  
+  case type
+  when "contact"
+    contact = Harvest::Contact.new(attributes)
+    harvest_api.contacts.create(contact)
+  when "project"
+    project = Harvest::Project.new(attributes)
+    harvest_api.projects.create(project)
+  else pending end
+end
+
+Then /^there should be an? (contact|project|client|task|user|expense category) "([^\"]*)"$/ do |type, identifier|
+  collection = harvest_api.send(pluralize(type)).all
+  attribute = case type
+  when 'contact', 'user' then 'email'
+  when 'project', 'client', 'task', 'expense category' then 'name'
+  else pending end
+  item = collection.detect {|c| c.send(attribute) == identifier}
+  item.should_not be_nil
+  item
+end
+
+Then /^there should not be an? (contact|project|client|task|user|expense category) "([^\"]*)"$/ do |type, identifier|
+  collection = harvest_api.send(pluralize(type)).all
+  attribute = case type
+  when 'contact', 'user' then 'email'
+  when 'project', 'client', 'task', 'expense category' then 'name'
+  else pending end
+  item = collection.detect {|c| c.send(attribute) == identifier}
+  item.should be_nil
+end
+
+When /^I update the (contact|project|client|task|user|expense category) "([^\"]*)" with the following:$/ do |type, name, table|
+  item = Then %Q{there should be a #{type} "#{name}"}
+  item.attributes = table.rows_hash
+  harvest_api.send(pluralize(type)).update(item)
+end
+
+Then /^the (contact|project|client|task|user|expense category) "([^\"]*)" should have the following attributes:$/ do |type, name, table|
+  item = Then %Q{there should be a #{type} "#{name}"}
+  table.rows_hash.each do |key, value|
+    item.send(key).to_s.should == value
+  end
+end
+
+When /^I delete the (contact|project|client|task|user|expense category) "([^\"]*)"$/ do |type, name|
+  item = Then %Q{there should be a #{type} "#{name}"}
+  id = harvest_api.send(pluralize(type)).delete(item)
+  id.should == item.id
+end
+
+Then /^the (client|project|user) "([^\"]*)" should be activated$/ do |type, identifier|
+  item = Then %Q{there should be a #{type} "#{identifier}"}
+  item.should be_active
+end
+
+Then /^the (client|project|user) "([^\"]*)" should be deactivated$/ do |type, identifier|
+  item = Then %Q{there should be a #{type} "#{identifier}"}
+  item.should_not be_active
+end
+
+When /^I deactivate the (client|project|user) "([^\"]*)"$/ do |type, identifier|
+  item = Then %Q{there should be a #{type} "#{identifier}"}
+  harvest_api.send(pluralize(type)).deactivate(item)
+end
+
+When /^I activate the (client|project|user) "([^\"]*)"$/ do |type, identifier|
+  item = Then %Q{there should be a #{type} "#{identifier}"}
+  harvest_api.send(pluralize(type)).activate(item)
+end

data/features/step_definitions/people_steps.rb

@@ -0,0 +1,4 @@
+Then 'I reset the password of "$1"' do |email|
+  user = Then %Q{there should be a user "#{email}"}
+  harvest_api.users.reset_password(user)
+end

data/features/step_definitions/report_steps.rb

@@ -0,0 +1,91 @@
+When /^I run a project report for "([^\"]*)" for "([^\"]*)" and "([^\"]*)" the following entries should be returned:$/ do |project_name, start_date, end_date, table|
+  start_date = Time.parse(start_date)
+  end_date = Time.parse(end_date)
+  project = Then %Q{there should be a project "#{project_name}"}
+  entries = harvest_api.reports.time_by_project(project, start_date, end_date)
+  table.raw.each do |row|
+    entry = entries.detect {|e| e.notes == row.first }
+    entry.should_not be_nil
+  end
+end
+
+When /^I run a project report for "([^\"]*)" for "([^\"]*)" and "([^\"]*)" the following entries should not be returned:$/ do |project_name, start_date, end_date, table|
+  start_date = Time.parse(start_date)
+  end_date = Time.parse(end_date)
+  project = Then %Q{there should be a project "#{project_name}"}
+  entries = harvest_api.reports.time_by_project(project, start_date, end_date)
+  table.raw.each do |row|
+    entry = entries.detect {|e| e.notes == row.first }
+    entry.should be_nil
+  end
+end
+
+When /^I run a a project report for "([^\"]*)" for "([^\"]*)" and "([^\"]*)" filtered by my user the following entries should be returned:$/ do |project_name, start_date, end_date, table|
+  start_date = Time.parse(start_date)
+  end_date = Time.parse(end_date)
+  project = Then %Q{there should be a project "#{project_name}"}
+  user = Then %Q{there should be a user "#{@username}"}
+  entries = harvest_api.reports.time_by_project(project, start_date, end_date, user)
+  table.raw.each do |row|
+    entry = entries.detect {|e| e.notes == row.first }
+    entry.should_not be_nil
+  end
+end
+
+When /^I run a a project report for "([^\"]*)" for "([^\"]*)" and "([^\"]*)" filtered by my user the following entries should not be returned:$/ do |project_name, start_date, end_date, table|
+  start_date = Time.parse(start_date)
+  end_date = Time.parse(end_date)
+  project = Then %Q{there should be a project "#{project_name}"}
+  user = Then %Q{there should be a user "#{@username}"}
+  entries = harvest_api.reports.time_by_project(project, start_date, end_date, user)
+  table.raw.each do |row|
+    entry = entries.detect {|e| e.notes == row.first }
+    entry.should be_nil
+  end
+end
+
+When /^I run a people report for my user for "([^\"]*)" and "([^\"]*)" the following entries should be returned:$/ do |start_date, end_date, table|
+  start_date = Time.parse(start_date)
+  end_date = Time.parse(end_date)
+  user = Then %Q{there should be a user "#{@username}"}
+  entries = harvest_api.reports.time_by_user(user, start_date, end_date)
+  table.raw.each do |row|
+    entry = entries.detect {|e| e.notes == row.first }
+    entry.should_not be_nil
+  end
+end
+
+When /^I run a people report for my user for "([^\"]*)" and "([^\"]*)" filtered by the project "([^\"]*)" the following entries should be returned:$/ do |start_date, end_date, project_name, table|
+  start_date = Time.parse(start_date)
+  end_date = Time.parse(end_date)
+  user = Then %Q{there should be a user "#{@username}"}
+  project = Then %Q{there should be a project "#{project_name}"}
+  entries = harvest_api.reports.time_by_user(user, start_date, end_date, project)
+  table.raw.each do |row|
+    entry = entries.detect {|e| e.notes == row.first }
+    entry.should_not be_nil
+  end
+end
+
+When /^I run a people report for my user for "([^\"]*)" and "([^\"]*)" filtered by the project "([^\"]*)" the following entries should not be returned:$/ do |start_date, end_date, project_name, table|
+  start_date = Time.parse(start_date)
+  end_date = Time.parse(end_date)
+  user = Then %Q{there should be a user "#{@username}"}
+  project = Then %Q{there should be a project "#{project_name}"}
+  entries = harvest_api.reports.time_by_user(user, start_date, end_date, project)
+  table.raw.each do |row|
+    entry = entries.detect {|e| e.notes == row.first }
+    entry.should be_nil
+  end
+end
+
+When /^I run an expense report for my user for "([^\"]*)" and "([^\"]*)" the following entries should be returned:$/ do |start_date, end_date, table|
+  start_date = Time.parse(start_date)
+  end_date = Time.parse(end_date)
+  user = Then %Q{there should be a user "#{@username}"}
+  expenses = harvest_api.reports.expenses_by_user(user, start_date, end_date)
+  table.raw.each do |row|
+    expense = expenses.detect {|e| e.notes == row.first }
+    expense.should_not be_nil
+  end
+end

data/features/step_definitions/time_entry_steps.rb

@@ -0,0 +1,40 @@
+When 'I create a time entry for the project "$1" and the task "$2" with the following:' do |project_name, task_name, table|
+  task = Then %Q{there should be a task "#{task_name}"}
+  project = Then %Q{there should be a project "#{project_name}"}
+  entry = Harvest::TimeEntry.new(table.rows_hash.merge('project_id' => project.id, 'task_id' => task.id))
+  created_entry = harvest_api.time.create(entry)
+  created_entry.project.should == project.name
+  created_entry.task.should == task.name
+end
+
+Then 'there should be a time entry "$1" on "$2"' do |notes, date|
+  entries = harvest_api.time.all(date)
+  entry = entries.detect {|e| e.notes == notes}
+  entry.should_not be_nil
+  entry
+end
+
+Then 'there should not be a time entry "$1" on "$2"' do |notes, date|
+  entries = harvest_api.time.all(date)
+  entry = entries.detect {|e| e.notes == notes}
+  entry.should be_nil
+end
+
+When 'I update the time entry "$1" on "$2" with the following:' do |note, date, table|
+  entry = Then %Q{there should be a time entry "#{note}" on "#{date}"}
+  entry.attributes = table.rows_hash
+  harvest_api.time.update(entry)
+end
+
+Then 'the time entry "$1" on "$2" should have the following attributes:' do |note, date, table|
+  entry = Then %Q{there should be a time entry "#{note}" on "#{date}"}
+  table.rows_hash.each do |key, value|
+    entry.send(key).to_s.should == value
+  end
+end
+
+When 'I delete the time entry "$1" on "$2"' do |note, date|
+  entry = Then %Q{there should be a time entry "#{note}" on "#{date}"}
+  id = harvest_api.time.delete(entry)
+  entry.id.should == id
+end

data/features/support/env.rb

@@ -0,0 +1,37 @@
+$LOAD_PATH.unshift(File.dirname(__FILE__) + '/../../lib')
+require 'harvested'
+require 'ruby-debug'
+require 'fakeweb'
+
+require 'spec/expectations'
+
+Before do
+  FakeWeb.clean_registry
+  FakeWeb.allow_net_connect = true
+end
+
+Before('@disconnected') do
+  FakeWeb.allow_net_connect = false
+end
+
+Before('@clean') do
+  credentials = YAML.load_file("#{File.dirname(__FILE__)}/harvest_credentials.yml")
+  api = Harvest.hardy_client(credentials["subdomain"], credentials["username"], credentials["password"], :ssl => credentials["ssl"])
+  
+  api.users.all.each do |u|
+    api.users.delete(u) if u.email != credentials["username"]
+  end
+  my_user = api.users.all.first
+  
+  api.reports.time_by_user(my_user, Time.parse('01/01/2000'), Time.now).each do |time|
+    api.time.delete(time)
+  end
+  
+  api.reports.expenses_by_user(my_user, Time.parse('01/01/2000'), Time.now).each do |time|
+    api.expenses.delete(time)
+  end
+  
+  %w(expenses expense_categories projects contacts clients tasks).each do |collection|
+    api.send(collection).all.each {|m| api.send(collection).delete(m) }
+  end
+end

data/features/support/error_helpers.rb

@@ -0,0 +1,18 @@
+module ErrorHelpers
+  def set_time_and_return_and_error
+    @time = Time.now
+    @error = nil
+    begin
+      @clients = yield
+    rescue => e
+      case e
+      when Harvest::HTTPError, Net::HTTPError, Net::HTTPFatalError
+        @error = e
+      else
+        raise e
+      end
+    end
+  end
+end
+
+World(ErrorHelpers)

data/features/support/fixtures/empty_clients.xml

@@ -0,0 +1,2 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<nil-classes type="array"/>

data/features/support/fixtures/over_limit.xml

@@ -0,0 +1,8 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<hash>
+  <last-access-at type="datetime">2010-04-02T01:34:59+00:00</last-access-at>
+  <count type="integer">41</count>
+  <timeframe-limit type="integer">15</timeframe-limit>
+  <max-calls type="integer">40</max-calls>
+  <lockout-seconds type="integer">5</lockout-seconds>
+</hash>

data/features/support/fixtures/under_limit.xml

@@ -0,0 +1,8 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<hash>
+  <last-access-at type="datetime">2010-04-02T01:34:59+00:00</last-access-at>
+  <count type="integer">2</count>
+  <timeframe-limit type="integer">15</timeframe-limit>
+  <max-calls type="integer">40</max-calls>
+  <lockout-seconds type="integer">5</lockout-seconds>
+</hash>

data/features/support/harvest_credentials.example.yml

@@ -0,0 +1,4 @@
+username: "my@email.com"
+password: "secure"
+subdomain: "my-domain"
+ssl: false

data/features/support/harvest_helpers.rb

@@ -0,0 +1,11 @@
+module HarvestHelpers
+  def standard_api
+    Harvest.client(@subdomain, @username, @password, :ssl => @ssl)
+  end
+  
+  def harvest_api
+    Harvest.hardy_client(@subdomain, @username, @password, :ssl => @ssl)
+  end
+end
+
+World(HarvestHelpers)

data/features/support/inflections.rb

@@ -0,0 +1,9 @@
+module Inflections
+  def pluralize(string)
+    case string
+    when 'expense category' then 'expense_categories'
+    else "#{string}s" end
+  end
+end
+
+World(Inflections)

data/features/task_assignment.feature

@@ -0,0 +1,69 @@
+@clean
+Feature: Task Assignments
+  
+  Scenario: Adding and Updating a Task on a Project
+    Given I am using the credentials from "./support/harvest_credentials.yml"
+    When I create a client with the following:
+    | name    | Client Projects                         |
+    | details | Building API Widgets across the country |
+    When I create a project for the client "Client Projects" with the following:
+    | name   | Test Project            |
+    | active | true                    |
+    | notes  | project to test the api |
+    Then there should be a project "Test Project"
+    When I create a task with the following:
+    | name        | Test Task |
+    | billable    | true      |
+    | deactivated | false     |
+    | hourly_rate | 120       |
+    Then there should be a task "Test Task"
+    When I assign the task "Test Task" to the project "Test Project"
+    Then the task "Test Task" should be assigned to the project "Test Project"
+    When I update the task "Test Task" for the project "Test Project" with the following:
+    | hourly_rate | 75    |
+    | billable    | false |
+    Then the task "Test Task" for the project "Test Project" should have the following attributes:
+    | hourly_rate | 75.0  |
+    | billable?   | false |
+    | active?     | true  |
+  
+  Scenario: Removing Tasks on a project
+    Given I am using the credentials from "./support/harvest_credentials.yml"
+    When I create a client with the following:
+    | name    | Client Projects                         |
+    | details | Building API Widgets across the country |
+    When I create a project for the client "Client Projects" with the following:
+    | name   | Test Project            |
+    | active | true                    |
+    | notes  | project to test the api |
+    Then there should be a project "Test Project"
+    When I create a task with the following:
+    | name | Test Task1 |
+    When I create a task with the following:
+    | name | Test Task2 |
+    Then there should be a task "Test Task1"
+    Then there should be a task "Test Task2"
+    When I assign the task "Test Task1" to the project "Test Project"
+    When I assign the task "Test Task2" to the project "Test Project"
+    Then the task "Test Task1" should be assigned to the project "Test Project"
+    Then the task "Test Task2" should be assigned to the project "Test Project"
+    When I remove the task "Test Task1" from the project "Test Project"
+    Then the task "Test Task1" should not be assigned to the project "Test Project"
+    When I try to remove the task "Test Task2" from the project "Test Project"
+    Then a 400 error should be raised
+  
+  Scenario: Removing a task that has recorded hours
+  
+  Scenario: Creating a task and immediately assigning it
+    Given I am using the credentials from "./support/harvest_credentials.yml"
+    When I create a client with the following:
+    | name    | Client Projects                         |
+    | details | Building API Widgets across the country |
+    When I create a project for the client "Client Projects" with the following:
+    | name   | Test Project            |
+    | active | true                    |
+    | notes  | project to test the api |
+    Then there should be a project "Test Project"
+    When I create and assign a task "Created Task" to the project "Test Project"
+    Then there should be a task "Created Task"
+    Then the task "Created Task" should be assigned to the project "Test Project"

data/features/tasks.feature

@@ -0,0 +1,25 @@
+@clean
+Feature: Managing Tasks
+
+  Scenario: Adding, Updating, and Removing a Task
+    Given I am using the credentials from "./support/harvest_credentials.yml"
+    When I create a task with the following:
+    | name        | Test Task |
+    | billable    | true      |
+    | deactivated | false     |
+    | hourly_rate | 120       |
+    Then there should be a task "Test Task"
+    When I update the task "Test Task" with the following:
+    | name        | Updated Task |
+    | hourly_rate | 100.0        |
+    | deactivated | true         |
+    | billable    | false        |
+    | default     | true         |
+    Then the task "Updated Task" should have the following attributes:
+    | hourly_rate | 100.0 |
+    | deactivated | true  |
+    | active?     | false |
+    | billable    | false |
+    | default?    | true  |
+    When I delete the task "Updated Task"
+    Then there should not be a task "Updated Task"

data/features/time_tracking.feature

@@ -0,0 +1,29 @@
+@clean
+Feature: Time Tracking
+
+  Scenario: Adding, Updating, and Deleting Time Entries
+    Given I am using the credentials from "./support/harvest_credentials.yml"
+    And I create a client with the following:
+    | name    | Time Client                  |
+    | details | Client to track time against |
+    And I create a project for the client "Time Client" with the following:
+    | name   | Time Project |
+    | active | true         |
+    And I create a task with the following:
+    | name        | Time Task |
+    | billable    | true      |
+    | hourly_rate | 120       |
+    And I assign the task "Time Task" to the project "Time Project"
+    When I create a time entry for the project "Time Project" and the task "Time Task" with the following:
+    | notes    | Test api support |
+    | hours    | 3.0              |
+    | spent_at | 12/28/2009       |
+    Then there should be a time entry "Test api support" on "12/28/2009"
+    When I update the time entry "Test api support" on "12/28/2009" with the following:
+    | hours | 4.0 |
+    Then the time entry "Test api support" on "12/28/2009" should have the following attributes:
+    | hours | 4.0 |
+    When I delete the time entry "Test api support" on "12/28/2009"
+    Then there should not be a time entry "Test api support" on "12/28/2009"
+    
+  Scenario: Toggling Timers