harvested 0.3.0

data/features/hardy_client.feature

@@ -0,0 +1,40 @@
+@disconnected
+Feature: Hardy Client
+
+  Background:
+    Given I am using the credentials from "./support/harvest_credentials.yml"
+    And the rate limit status indicates I'm under my limit
+
+  Scenario: Hardy Client waiting for Rate Limit resets
+    Given the next request will receive a rate limit response with a refresh in 5 seconds
+    When I make a request with the hardy client
+    Then the hardy client should wait 5 seconds for the rate limit to reset
+    And I should be able to make a request again
+    
+  Scenario: Hardy Client waiting for Rate Limit resets
+    Given the next request will receive a rate limit response without a refresh set
+    When I make a request with the hardy client
+    Then the hardy client should wait 16 seconds for the rate limit to reset
+    And I should be able to make a request again
+    
+  Scenario: Hardy Client retrying Bad Gateway responses
+    Given the next 2 requests will receive a bad gateway response
+    When I make a request with the hardy client
+    Then no errors should be raised
+  
+  Scenario: Hardy Client retrying HTTP Errors
+    Given the next 2 requests will receive an HTTP Error
+    When I make a request with the hardy client
+    Then no errors should be raised
+  
+  Scenario: Hardy Client stop retrying Bad Gateway responses
+    Given the next 6 requests will receive a bad gateway response
+    When I make a request with the hardy client
+    Then a 502 error should be raised
+    
+  Scenario: Check rate limit before retrying bad gateway requests
+    Given the next request will receive a bad gateway response
+    And the rate limit status indicates I'm over my limit
+    When I make a request with the hardy client
+    Then the hardy client should wait 16 seconds for the rate limit to reset
+    And I should be able to make a request again

data/features/projects.feature

@@ -0,0 +1,39 @@
+@clean
+Feature: Managing Projects
+
+  Scenario: Adding, Updating, and Removing 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 update the project "Test Project" with the following:
+    | name        | Updated Project |
+    | code        | new-code        |
+    | bill_by     | Project         |
+    | hourly_rate | 150             |
+    Then the project "Updated Project" should have the following attributes:
+    | code        | new-code |
+    | bill_by     | Project  |
+    | hourly_rate | 150.0    |
+    When I delete the project "Updated Project"
+    Then there should not be a project "Updated Project"
+    
+  Scenario: Activating and Deactivating a Project
+    Given I am using the credentials from "./support/harvest_credentials.yml"
+    And I create a client with the following:
+    | name    | Client Projects                         |
+    | details | Building API Widgets across the country |
+    And I create a project for the client "Client Projects" with the following:
+    | name   | Test Project            |
+    | active | true                    |
+    | notes  | project to test the api |
+    Then the project "Test Project" should be activated
+    When I deactivate the project "Test Project"
+    Then the project "Test Project" should be deactivated
+    When I activate the project "Test Project"
+    Then the project "Test Project" should be activated

data/features/reporting.feature

@@ -0,0 +1,72 @@
+@clean
+Feature: Harvest Reporting
+
+  Background:
+    Given I am using the credentials from "./support/harvest_credentials.yml"
+    And I create a client with the following:
+    | name    | Report Client         |
+    | details | Client to run reports |
+    And I create a project for the client "Report Client" with the following:
+    | name | Report Project1 |
+    And I create a project for the client "Report Client" with the following:
+    | name | Report Project2 |
+
+  Scenario: Time Entry Reporting
+    Given I create a task with the following:
+    | name        | Report Task |
+    | billable    | true        |
+    | hourly_rate | 120         |
+    And I assign the task "Report Task" to the project "Report Project1"
+    And I assign the task "Report Task" to the project "Report Project2"
+    And I create a time entry for the project "Report Project1" and the task "Report Task" with the following:
+    | notes    | project1 time |
+    | hours    | 2.0           |
+    | spent_at | 12/28/2009    |
+    And I create a time entry for the project "Report Project2" and the task "Report Task" with the following:
+    | notes    | project2 time |
+    | hours    | 2.0           |
+    | spent_at | 12/28/2009    |
+    When I run a project report for "Report Project1" for "12/20/2009" and "12/30/2009" the following entries should be returned:
+    | project1 time |
+    When I run a project report for "Report Project1" for "12/20/2009" and "12/30/2009" the following entries should not be returned:
+    | project2 time |
+    When I run a a project report for "Report Project1" for "12/20/2009" and "12/30/2009" filtered by my user the following entries should be returned:
+    | project1 time |
+    When I run a a project report for "Report Project1" for "12/20/2009" and "12/30/2009" filtered by my user the following entries should not be returned:
+    | project2 time |
+    When I run a people report for my user for "12/20/2009" and "12/30/2009" the following entries should be returned:
+    | project1 time |
+    | project2 time |
+  
+  @wip
+  Scenario: People Reports filtered by Project
+    Given I create a task with the following:
+    | name        | Report Task |
+    | billable    | true        |
+    | hourly_rate | 120         |
+    And I assign the task "Report Task" to the project "Report Project1"
+    And I assign the task "Report Task" to the project "Report Project2"
+    And I create a time entry for the project "Report Project1" and the task "Report Task" with the following:
+    | notes    | project1 time |
+    | hours    | 2.0           |
+    | spent_at | 12/28/2009    |
+    And I create a time entry for the project "Report Project2" and the task "Report Task" with the following:
+    | notes    | project2 time |
+    | hours    | 2.0           |
+    | spent_at | 12/28/2009    |
+    When I run a people report for my user for "12/20/2009" and "12/30/2009" filtered by the project "Report Project1" the following entries should be returned:
+    | project1 time |
+    When I run a people report for my user for "12/20/2009" and "12/30/2009" filtered by the project "Report Project1" the following entries should not be returned:
+    | project2 time |
+    
+  Scenario: Expenses by People
+    Given I create an expense category with the following:
+    | name       | Conference |
+    | unit_name  | Ticket     |
+    | unit_price | 300        |
+    And I create an expense for the project "Report Project1" with the category "Conference" with the following:
+    | notes      | RubyConf   |
+    | total_cost | 300        |
+    | spent_at   | 12/28/2009 |
+    When I run an expense report for my user for "12/20/2009" and "12/30/2009" the following entries should be returned:
+    | RubyConf |

data/features/step_definitions/account_steps.rb

@@ -0,0 +1,7 @@
+When 'I request the current rate limit I should get the following:' do |table|
+  rate_limit_status = harvest_api.account.rate_limit_status
+  table.rows_hash.each do |key, value|
+    rate_limit_status.send(key).to_s.should == value
+  end
+end
+

data/features/step_definitions/assignment_steps.rb

@@ -0,0 +1,100 @@
+When 'I create and assign a task "$1" to the project "$2"' do |task_name, project_name|
+  project = Then %Q{there should be a project "#{project_name}"}
+  p = harvest_api.projects.create_task(project, task_name)
+  p.should == project
+end
+
+When 'I assign the task "$1" to the project "$2"' do |task_name, project_name|
+  task = Then %Q{there should be a task "#{task_name}"}
+  project = Then %Q{there should be a project "#{project_name}"}
+  assignment = Harvest::TaskAssignment.new(:project => project, :task => task)
+  harvest_api.task_assignments.create(assignment)
+end
+
+Then 'the task "$1" should be assigned to the project "$2"' do |task_name, project_name|
+  task = Then %Q{there should be a task "#{task_name}"}
+  project = Then %Q{there should be a project "#{project_name}"}
+  assignments = harvest_api.task_assignments.all(project)
+  assignment = assignments.detect {|a| a.project_id == project.to_i && a.task_id == task.to_i }
+  assignment.should_not be_nil
+  assignment
+end
+
+Then 'the task "$1" should not be assigned to the project "$2"' do |task_name, project_name|
+  task = Then %Q{there should be a task "#{task_name}"}
+  project = Then %Q{there should be a project "#{project_name}"}
+  assignments = harvest_api.task_assignments.all(project)
+  assignment = assignments.detect {|a| a.project_id == project.to_i && a.task_id == task.to_i }
+  assignment.should be_nil
+end
+
+When 'I update the task "$1" for the project "$2" with the following:' do |task_name, project_name, table|
+  assignment = Then %Q{the task "#{task_name}" should be assigned to the project "#{project_name}"}
+  assignment.attributes = table.rows_hash
+  harvest_api.task_assignments.update(assignment)
+end
+
+Then 'the task "$1" for the project "$2" should have the following attributes:' do |task_name, project_name, table|
+  assignment = Then %Q{the task "#{task_name}" should be assigned to the project "#{project_name}"}
+  table.rows_hash.each do |key, value|
+    assignment.send(key).to_s.should == value
+  end
+end
+
+When 'I remove the task "$1" from the project "$2"' do |task_name, project_name|
+  assignment = Then %Q{the task "#{task_name}" should be assigned to the project "#{project_name}"}
+  id = harvest_api.task_assignments.delete(assignment)
+  id.should == assignment.id
+end
+
+When 'I try to remove the task "$1" from the project "$2"' do |task_name, project_name|
+  assignment = Then %Q{the task "#{task_name}" should be assigned to the project "#{project_name}"}
+  begin
+    harvest_api.task_assignments.delete(assignment)
+  rescue Harvest::HTTPError => e
+    @error = e
+  end
+end
+
+When 'I assign the user "$1" to the project "$2"' do |email, project_name|
+  user = Then %Q{there should be a user "#{email}"}
+  project = Then %Q{there should be a project "#{project_name}"}
+  assignment = Harvest::UserAssignment.new(:project => project, :user => user)
+  harvest_api.user_assignments.create(assignment)
+end
+
+When 'I remove the user "$1" from the project "$2"' do |email, project_name|
+  assignment = Then %Q{the user "#{email}" should be assigned to the project "#{project_name}"}
+  id = harvest_api.user_assignments.delete(assignment)
+  id.should == assignment.id
+end
+
+Then 'the user "$1" should be assigned to the project "$2"' do |email, project_name|
+  user = Then %Q{there should be a user "#{email}"}
+  project = Then %Q{there should be a project "#{project_name}"}
+  assignments = harvest_api.user_assignments.all(project)
+  assignment = assignments.detect {|a| a.project_id == project.to_i && a.user_id == user.to_i }
+  assignment.should_not be_nil
+  assignment
+end
+
+Then 'the user "$1" should not be assigned to the project "$2"' do |email, project_name|
+  user = Then %Q{there should be a user "#{email}"}
+  project = Then %Q{there should be a project "#{project_name}"}
+  assignments = harvest_api.user_assignments.all(project)
+  assignment = assignments.detect {|a| a.project_id == project.to_i && a.user_id == user.to_i }
+  assignment.should be_nil
+end
+
+When 'I update the user "$1" on the project "$2" with the following:' do |email, project_name, table|
+  assignment = Then %Q{the user "#{email}" should be assigned to the project "#{project_name}"}
+  assignment.attributes = table.rows_hash
+  harvest_api.user_assignments.update(assignment)
+end
+
+Then 'the user "$1" on the project "$2" should have the following attributes:' do |email, project_name, table|
+  assignment = Then %Q{the user "#{email}" should be assigned to the project "#{project_name}"}
+  table.rows_hash.each do |key, value|
+    assignment.send(key).to_s.should == value
+  end
+end

data/features/step_definitions/contact_steps.rb

@@ -0,0 +1,11 @@
+Then 'there should be a contact "$1" for the client "$2"' do |email, client_name|
+  client = Then %Q{there should be a client "#{client_name}"}
+  contact = Then %Q{there should be a contact "#{email}"}
+  contact.client_id.should == client.id
+  
+  contacts = harvest_api.contacts.all(client.id)
+  contact2 = contacts.detect {|c| c.email == email}
+  contact2.should == contact
+  
+  contact
+end

data/features/step_definitions/debug_steps.rb

@@ -0,0 +1,3 @@
+Then 'I debug' do
+  debugger
+end

data/features/step_definitions/error_steps.rb

@@ -0,0 +1,113 @@
+Given /^the next request will receive a (bad request|not found|bad gateway|server error|rate limit) response$/ do |type|
+  statuses = {
+    'bad request' => ['400', 'Bad Request'],
+    'not found' => ['404', 'Not Found'],
+    'bad gateway' => ['502', 'Bad Gateway'],
+    'server error' => ['500', 'Server Error'],
+    'rate limit' => ['503', 'Rake Limited']
+  }
+  
+  if status = statuses[type]
+    FakeWeb.register_uri(:get, /\/clients/, [
+      {:status => status, :times => 1},
+      {:body => File.read(File.dirname(__FILE__) + '/../support/fixtures/empty_clients.xml')}
+    ])
+  else
+    pending
+  end
+end
+
+Given /^the next request will receive a rate limit response with a refresh in (\d+) seconds$/ do |seconds|
+  FakeWeb.register_uri(:get, /\/clients/, [
+    {:status => ['503', 'Rake Limited'], "Retry-After" => seconds},
+    {:body => File.read(File.dirname(__FILE__) + '/../support/fixtures/empty_clients.xml')}
+  ])
+end
+
+Given 'the next request will receive a rate limit response without a refresh set' do
+  FakeWeb.register_uri(:get, /\/clients/, [
+    {:status => ['503', 'Rake Limited']},
+    {:body => File.read(File.dirname(__FILE__) + '/../support/fixtures/empty_clients.xml')}
+  ])
+end
+
+When 'I make a request with the standard client' do
+  set_time_and_return_and_error do
+    standard_api.clients.all
+  end
+end
+
+When 'I make a request with the hardy client' do
+  set_time_and_return_and_error do
+    harvest_api.clients.all
+  end
+end
+
+When /^I make a request with the hardy client with (\d+) max retries$/ do |times|
+  set_time_and_return_and_error do
+    api = Harvest.hardy_client(@subdomain, @username, @password, :ssl => @ssl, :retry => times.to_i)
+    api.clients.all
+  end
+end
+
+Then /a (\d+) error should be raised/ do |code|
+  case code
+  when '400'
+    @error.should be_a(Harvest::BadRequest)
+  when '404'
+    @error.should be_a(Harvest::NotFound)
+  when '502'
+    @error.should be_a(Harvest::Unavailable)
+  when '500'
+    @error.should be_a(Harvest::ServerError)
+  when '503'
+    @error.should be_a(Harvest::RateLimited)
+  else
+    pending
+  end
+end
+
+Then /the hardy client should wait (\d+) seconds for the rate limit to reset/ do |seconds|
+  Time.now.should be_close(@time + seconds.to_i, 2)
+end
+
+Then 'I should be able to make a request again' do
+  harvest_api.clients.all
+  harvest_api.clients.all
+end
+
+Given /^the next (\d+) requests will receive a bad gateway response$/ do |times|
+  FakeWeb.register_uri(:get, /\/clients/, [
+    {:status => ['502', 'Bad Gateway'], :times => times.to_i},
+    {:body => File.read(File.dirname(__FILE__) + '/../support/fixtures/empty_clients.xml')}
+  ])
+end
+
+Given /^the next (\d+) requests will receive a server error response$/ do |times|
+  FakeWeb.register_uri(:get, /\/clients/, [
+    {:status => ['500', 'Server Error'], :times => times.to_i},
+    {:body => File.read(File.dirname(__FILE__) + '/../support/fixtures/empty_clients.xml')}
+  ])
+end
+
+Given /^the next (\d+) requests will receive an HTTP Error$/ do |times|
+  FakeWeb.register_uri(:get, /\/clients/, [
+    {:exception => Net::HTTPError, :times => times.to_i},
+    {:body => File.read(File.dirname(__FILE__) + '/../support/fixtures/empty_clients.xml')}
+  ])
+end
+
+Then 'no errors should be raised' do
+  @error.should be_nil
+  @clients.should == []
+end
+
+Given 'the rate limit status indicates I\'m over my limit' do
+  over_limit_response = File.read(File.dirname(__FILE__) + '/../support/fixtures/over_limit.xml')
+  FakeWeb.register_uri(:get, /\/account\/rate_limit_status/, :body => over_limit_response)
+end
+
+Given 'the rate limit status indicates I\'m under my limit' do
+  over_limit_response = File.read(File.dirname(__FILE__) + '/../support/fixtures/under_limit.xml')
+  FakeWeb.register_uri(:get, /\/account\/rate_limit_status/, :body => over_limit_response)
+end

data/features/step_definitions/expenses_steps.rb

@@ -0,0 +1,46 @@
+When 'I create an expense for the project "$1" with the category "$2" with the following:' do |project_name, category_name, table|
+  project = Then %Q{there should be a project "#{project_name}"}
+  category = Then %Q{there should be an expense category "#{category_name}"}
+  
+  expense = Harvest::Expense.new(table.rows_hash.merge("expense_category_id" => category.id, "project_id" => project.id))
+  harvest_api.expenses.create(expense)
+end
+
+Then 'there should be an expense "$1" on "$2"' do |notes, date|
+  expenses = harvest_api.expenses.all(date)
+  expense = expenses.detect {|e| e.notes == notes}
+  expense.should_not be_nil
+  expense
+end
+
+Then 'there should not be an expense "$1" on "$2"' do |notes, date|
+  expenses = harvest_api.expenses.all(date)
+  expense = expenses.detect {|e| e.notes == notes}
+  expense.should be_nil
+end
+
+When 'I delete the expense "$1" on "$2"' do |notes, date|
+  expense = Then %Q{there should be an expense "#{notes}" on "#{date}"}
+  id = harvest_api.expenses.delete(expense)
+  expense.id.should == id
+end
+
+Then 'the expense "$1" on "$2" should have the following attributes:' do |notes, date, table|
+  expense = Then %Q{there should be an expense "#{notes}" on "#{date}"}
+  table.rows_hash.each do |key, value|
+    expense.send(key).to_s.should == value
+  end
+end
+
+When 'I update the expense "$1" on "$2" with the following:' do |notes, date, table|
+  expense = Then %Q{there should be an expense "#{notes}" on "#{date}"}
+  expense.attributes = table.rows_hash
+  harvest_api.expenses.update(expense)
+end
+
+When 'I attach the receipt "$1" to the expense "$2" on "$3"' do |path, notes, date|
+  path = "#{File.dirname(__FILE__)}/../#{path}"
+  receipt = StringIO.new(File.read(path))
+  expense = Then %Q{there should be an expense "#{notes}" on "#{date}"}
+  harvest_api.expenses.attach(expense, "receipt.png", receipt)
+end

data/features/step_definitions/harvest_steps.rb

@@ -0,0 +1,8 @@
+Given 'I am using the credentials from "$1"' do |path|
+  raise "You need a credentials file in support/harvest_credentials.yml!!" unless File.exist?("#{File.dirname(__FILE__)}/../#{path}")
+  credentials = YAML.load_file("#{File.dirname(__FILE__)}/../#{path}")
+  @username = credentials["username"]
+  @password = credentials["password"]
+  @subdomain = credentials["subdomain"]
+  @ssl = credentials["ssl"]
+end