quilted-harvested 0.3.1

data/lib/harvest/hardy_client.rb

@@ -0,0 +1,80 @@
+module Harvest
+  class HardyClient < Delegator
+    def initialize(client, max_retries)
+      super(client)
+      @_sd_obj = @client = client
+      @max_retries = max_retries
+      (@client.public_methods - Object.public_instance_methods).each do |name|
+        instance_eval <<-END
+          def #{name}(*args)
+            wrap_collection do
+              @client.send('#{name}', *args)
+            end
+          end
+        END
+      end
+    end
+    
+    def __getobj__; @_sd_obj; end
+    def __setobj__(obj); @_sd_obj = obj; end
+    
+    def wrap_collection
+      collection = yield
+      HardyCollection.new(collection, self, @max_retries)
+    end
+    
+    class HardyCollection < Delegator
+      def initialize(collection, client, max_retries)
+        super(collection)
+        @_sd_obj = @collection = collection
+        @client = client
+        @max_retries = max_retries
+        (@collection.public_methods - Object.public_instance_methods).each do |name|
+          instance_eval <<-END
+            def #{name}(*args)
+              retry_rate_limits do
+                @collection.send('#{name}', *args)
+              end
+            end
+          END
+        end
+      end
+      
+      def __getobj__; @_sd_obj; end
+      def __setobj__(obj); @_sd_obj = obj; end
+      
+      def retry_rate_limits
+        retries = 0
+        
+        retry_func = lambda do |e|
+          if retries < @max_retries
+            retries += 1
+            true
+          else
+            raise e
+          end
+        end
+        
+        begin
+          yield
+        rescue Harvest::RateLimited => e
+          seconds = if e.response.headers["retry-after"]
+            e.response.headers["retry-after"].first.to_i
+          else
+            16
+          end
+          sleep(seconds)
+          retry
+        rescue Harvest::Unavailable, Harvest::InformHarvest => e
+          would_retry = retry_func.call(e)
+          sleep(16) if @client.account.rate_limit_status.over_limit?
+          retry if would_retry
+        rescue Net::HTTPError, Net::HTTPFatalError => e
+          retry if retry_func.call(e)
+        rescue SystemCallError => e
+          retry if e.is_a?(Errno::ECONNRESET) && retry_func.call(e)
+        end
+      end
+    end
+  end
+end

data/lib/harvest/project.rb

@@ -0,0 +1,56 @@
+module Harvest
+  
+  # The model that contains information about a project
+  #
+  # == Fields
+  # [+id+] (READONLY) the id of the project
+  # [+name+] (REQUIRED) the name of the project
+  # [+client_id+] (REQUIRED) the client id of the project
+  # [+code+] the project code
+  # [+notes+] the project notes
+  # [+active?+] true|false whether the project is active
+  # [+billable?+] true|false where the project is billable
+  # [+budget_by+] how the budget is calculated for the project +project|project_cost|task|person|nil+
+  # [+budget+] what the budget is for the project (based on budget_by)
+  # [+bill_by+] how to bill the project +Tasks|People|Project|nil+
+  # [+hourly_rate+] what the hourly rate for the project is based on +bill_by+
+  # [+notify_when_over_budget?+] whether the project will send notifications when it goes over budget
+  # [+over_budget_notification_percentage+] what percentage of the budget the project has to be before it sends a notification. Based on +notify_when_over_budget?+
+  # [+show_budget_to_all?+] whether the project's budget is shown to employees and contractors
+  # [+basecamp_id+] (READONLY) the id of the basecamp project associated to the project
+  # [+highrise_deal_id+] (READONLY) the id of the highrise deal associated to the project
+  # [+active_task_assignments_count+] (READONLY) the number of active task assignments
+  # [+created_at+] (READONLY) when the project was created
+  # [+updated_at+] (READONLY) when the project was updated
+  class Project < BaseModel
+    include HappyMapper
+  
+    api_path '/projects'
+  
+    element :id, Integer
+    element :client_id, Integer, :tag => 'client-id'
+    element :name, String
+    element :code, String
+    element :notes, String
+    element :fees, String
+    element :active, Boolean
+    element :billable, Boolean
+    element :budget, Float
+    element :budget_by, String, :tag => 'budget-by'
+    element :hourly_rate, Float, :tag => 'hourly-rate'
+    element :bill_by, String, :tag => 'bill-by'
+    element :created_at, Time, :tag => 'created-at'
+    element :updated_at, Time, :tag => 'updated-at'
+    element :notify_when_over_budget, Boolean, :tag => 'notify-when-over-budget'
+    element :over_budget_notification_percentage, Float, :tag => 'over-budget-notification-percentage'
+    element :show_budget_to_all, Boolean, :tag => 'show-budget-to-all'
+    element :basecamp_id, Integer, :tag => 'basecamp-id'
+    element :highrise_deal_id, Integer, :tag => 'highrise-deal-id'
+    element :active_task_assignments_count, Integer, :tag => 'active-task-assignments-count'
+  
+    alias_method :active?, :active
+    alias_method :billable?, :billable
+    alias_method :notify_when_over_budget?, :notify_when_over_budget
+    alias_method :show_budget_to_all?, :show_budget_to_all
+  end
+end

data/lib/harvest/rate_limit_status.rb

@@ -0,0 +1,28 @@
+module Harvest
+  
+  # The model that contains the information about the user's rate limit
+  #
+  # == Fields
+  # [+last_access_at+]  The last registered request
+  # [+count+] The current number of requests registered
+  # [+timeframe_limit+] The amount of seconds before a rate limit refresh occurs
+  # [+max_calls+] The number of requests you can make within the +timeframe_limit+
+  # [+lockout_seconds+] If you exceed the rate limit, how long you will be locked out from Harvest
+  class RateLimitStatus < BaseModel
+    include HappyMapper
+    
+    tag 'hash'
+    element :last_access_at, Time, :tag => 'last-access-at'
+    element :count, Integer
+    element :timeframe_limit, Integer, :tag => 'timeframe-limit'
+    element :max_calls, Integer, :tag => 'max-calls'
+    element :lockout_seconds, Integer, :tag => 'lockout-seconds'
+    
+    # Returns true if the user is over their rate limit
+    # @return [Boolean]
+    # @see http://www.getharvest.com/api
+    def over_limit?
+      count > max_calls
+    end
+  end
+end

data/lib/harvest/task.rb

@@ -0,0 +1,30 @@
+module Harvest
+  
+  # The model that contains information about a task
+  #
+  # == Fields
+  # [+id+] (READONLY) the id of the task
+  # [+name+] (REQUIRED) the name of the task
+  # [+billable+] whether the task is billable by default
+  # [+deactivated+] whether the task is deactivated
+  # [+hourly_rate+] what the default hourly rate for the task is
+  # [+default?+] whether to add this task to new projects by default
+  class Task < BaseModel
+    include HappyMapper
+  
+    api_path '/tasks'
+  
+    element :id, Integer
+    element :name, String
+    element :billable, Boolean, :tag => 'billable-by-default'
+    element :deactivated, Boolean, :tag => 'deactivated'
+    element :hourly_rate, Float, :tag => 'default-hourly-rate'
+    element :default, Boolean, :tag => 'is-default'
+  
+    def active?
+      !deactivated
+    end
+  
+    alias_method :default?, :default
+  end
+end

data/lib/harvest/task_assignment.rb

@@ -0,0 +1,34 @@
+module Harvest
+  class TaskAssignment < BaseModel
+    include HappyMapper
+    
+    tag 'task-assignment'
+    element :id, Integer
+    element :task_id, Integer, :tag => 'task-id'
+    element :project_id, Integer, :tag => 'project-id'
+    element :billable, Boolean
+    element :deactivated, Boolean
+    element :hourly_rate, Float, :tag => 'hourly-rate'
+    
+    def task=(task)
+      @task_id = task.to_i
+    end
+    
+    def project=(project)
+      @project_id = project.to_i
+    end
+    
+    def active?
+      !deactivated
+    end
+    
+    def task_xml
+      builder = Builder::XmlMarkup.new
+      builder.task do |t|
+        t.id(task_id)
+      end
+    end
+    
+    alias_method :billable?, :billable
+  end
+end

data/lib/harvest/time_entry.rb

@@ -0,0 +1,42 @@
+module Harvest
+  class TimeEntry < BaseModel
+    include HappyMapper
+    
+    tag 'day_entry'
+    
+    element :id, Integer
+    element :client, String
+    element :project, String
+    element :task, String
+    element :hours, Float
+    element :notes, String
+    
+    element :project_id, Integer
+    element :task_id, Integer
+    element :spent_at, Time
+    element :created_at, Time
+    element :updated_at, Time
+    element :user_id, Integer
+    element :closed, Boolean, :tag => 'is-closed'
+    element :billed, Boolean, :tag => 'is-billed'
+    
+    def spent_at=(date)
+      @spent_at = (String === date ? Time.parse(date) : date)
+    end
+    
+    def to_xml
+      builder = Builder::XmlMarkup.new
+      builder.request do |r|
+        r.tag!('notes', notes) if notes
+        r.tag!('hours', hours) if hours
+        r.tag!('project_id', project_id) if project_id
+        r.tag!('task_id', task_id) if task_id
+        r.tag!('spent_at', spent_at) if spent_at
+        r.tag!('of_user', user_id) if user_id
+      end
+    end
+    
+    alias_method :closed?, :closed
+    alias_method :billed?, :billed
+  end
+end

data/lib/harvest/timezones.rb

@@ -0,0 +1,149 @@
+module Harvest
+  # shamelessly ripped from Rails: http://github.com/rails/rails/blob/master/activesupport/lib/active_support/values/time_zone.rb
+  module Timezones
+    MAPPING = {
+        "pacific/midway"                  =>   "International Date Line West",
+        "pacific/midway"                  =>   "Midway Island",
+        "pacific/pago_pago"               =>   "Samoa",
+        "pacific/honolulu"                =>   "Hawaii",
+        "america/juneau"                  =>   "Alaska",
+        "america/los_angeles"             =>   "Pacific Time (US & Canada)",
+        "america/tijuana"                 =>   "Tijuana",
+        "america/denver"                  =>   "Mountain Time (US & Canada)",
+        "america/phoenix"                 =>   "Arizona",
+        "america/chihuahua"               =>   "Chihuahua",
+        "america/mazatlan"                =>   "Mazatlan",
+        "america/chicago"                 =>   "Central Time (US & Canada)",
+        "america/regina"                  =>   "Saskatchewan",
+        "america/mexico_city"             =>   "Guadalajara",
+        "america/mexico_city"             =>   "Mexico City",
+        "america/monterrey"               =>   "Monterrey",
+        "america/guatemala"               =>   "Central America",
+        "america/new_york"                =>   "Eastern Time (US & Canada)",
+        "america/indiana/indianapolis"    =>   "Indiana (East)",
+        "america/bogota"                  =>   "Bogota",
+        "america/lima"                    =>   "Lima",
+        "america/lima"                    =>   "Quito",
+        "america/halifax"                 =>   "Atlantic Time (Canada)",
+        "america/caracas"                 =>   "Caracas",
+        "america/la_paz"                  =>   "La Paz",
+        "america/santiago"                =>   "Santiago",
+        "america/st_johns"                =>   "Newfoundland",
+        "america/sao_paulo"               =>   "Brasilia",
+        "america/argentina/buenos_aires"  =>   "Buenos Aires",
+        "america/argentina/san_juan"      =>   "Georgetown",
+        "america/godthab"                 =>   "Greenland",
+        "atlantic/south_georgia"          =>   "Mid-Atlantic",
+        "atlantic/azores"                 =>   "Azores",
+        "atlantic/cape_verde"             =>   "Cape Verde Is.",
+        "europe/dublin"                   =>   "Dublin",
+        "europe/dublin"                   =>   "Edinburgh",
+        "europe/lisbon"                   =>   "Lisbon",
+        "europe/london"                   =>   "London",
+        "africa/casablanca"               =>   "Casablanca",
+        "africa/monrovia"                 =>   "Monrovia",
+        "etc/utc"                         =>   "UTC",
+        "europe/belgrade"                 =>   "Belgrade",
+        "europe/bratislava"               =>   "Bratislava",
+        "europe/budapest"                 =>   "Budapest",
+        "europe/ljubljana"                =>   "Ljubljana",
+        "europe/prague"                   =>   "Prague",
+        "europe/sarajevo"                 =>   "Sarajevo",
+        "europe/skopje"                   =>   "Skopje",
+        "europe/warsaw"                   =>   "Warsaw",
+        "europe/zagreb"                   =>   "Zagreb",
+        "europe/brussels"                 =>   "Brussels",
+        "europe/copenhagen"               =>   "Copenhagen",
+        "europe/madrid"                   =>   "Madrid",
+        "europe/paris"                    =>   "Paris",
+        "europe/amsterdam"                =>   "Amsterdam",
+        "europe/berlin"                   =>   "Berlin",
+        "europe/berlin"                   =>   "Bern",
+        "europe/rome"                     =>   "Rome",
+        "europe/stockholm"                =>   "Stockholm",
+        "europe/vienna"                   =>   "Vienna",
+        "africa/algiers"                  =>   "West Central Africa",
+        "europe/bucharest"                =>   "Bucharest",
+        "africa/cairo"                    =>   "Cairo",
+        "europe/helsinki"                 =>   "Helsinki",
+        "europe/kiev"                     =>   "Kyev",
+        "europe/riga"                     =>   "Riga",
+        "europe/sofia"                    =>   "Sofia",
+        "europe/tallinn"                  =>   "Tallinn",
+        "europe/vilnius"                  =>   "Vilnius",
+        "europe/athens"                   =>   "Athens",
+        "europe/istanbul"                 =>   "Istanbul",
+        "europe/minsk"                    =>   "Minsk",
+        "asia/jerusalem"                  =>   "Jerusalem",
+        "africa/harare"                   =>   "Harare",
+        "africa/johannesburg"             =>   "Pretoria",
+        "europe/moscow"                   =>   "Moscow",
+        "europe/moscow"                   =>   "St. Petersburg",
+        "europe/moscow"                   =>   "Volgograd",
+        "asia/kuwait"                     =>   "Kuwait",
+        "asia/riyadh"                     =>   "Riyadh",
+        "africa/nairobi"                  =>   "Nairobi",
+        "asia/baghdad"                    =>   "Baghdad",
+        "asia/tehran"                     =>   "Tehran",
+        "asia/muscat"                     =>   "Abu Dhabi",
+        "asia/muscat"                     =>   "Muscat",
+        "asia/baku"                       =>   "Baku",
+        "asia/tbilisi"                    =>   "Tbilisi",
+        "asia/yerevan"                    =>   "Yerevan",
+        "asia/kabul"                      =>   "Kabul",
+        "asia/yekaterinburg"              =>   "Ekaterinburg",
+        "asia/karachi"                    =>   "Islamabad",
+        "asia/karachi"                    =>   "Karachi",
+        "asia/tashkent"                   =>   "Tashkent",
+        "asia/kolkata"                    =>   "Chennai",
+        "asia/kolkata"                    =>   "Kolkata",
+        "asia/kolkata"                    =>   "Mumbai",
+        "asia/kolkata"                    =>   "New Delhi",
+        "asia/katmandu"                   =>   "Kathmandu",
+        "asia/dhaka"                      =>   "Astana",
+        "asia/dhaka"                      =>   "Dhaka",
+        "asia/colombo"                    =>   "Sri Jayawardenepura",
+        "asia/almaty"                     =>   "Almaty",
+        "asia/novosibirsk"                =>   "Novosibirsk",
+        "asia/rangoon"                    =>   "Rangoon",
+        "asia/bangkok"                    =>   "Bangkok",
+        "asia/bangkok"                    =>   "Hanoi",
+        "asia/jakarta"                    =>   "Jakarta",
+        "asia/krasnoyarsk"                =>   "Krasnoyarsk",
+        "asia/shanghai"                   =>   "Beijing",
+        "asia/chongqing"                  =>   "Chongqing",
+        "asia/hong_kong"                  =>   "Hong Kong",
+        "asia/urumqi"                     =>   "Urumqi",
+        "asia/kuala_lumpur"               =>   "Kuala Lumpur",
+        "asia/singapore"                  =>   "Singapore",
+        "asia/taipei"                     =>   "Taipei",
+        "australia/perth"                 =>   "Perth",
+        "asia/irkutsk"                    =>   "Irkutsk",
+        "asia/ulaanbaatar"                =>   "Ulaan Bataar",
+        "asia/seoul"                      =>   "Seoul",
+        "asia/tokyo"                      =>   "Osaka",
+        "asia/tokyo"                      =>   "Sapporo",
+        "asia/tokyo"                      =>   "Tokyo",
+        "asia/yakutsk"                    =>   "Yakutsk",
+        "australia/darwin"                =>   "Darwin",
+        "australia/adelaide"              =>   "Adelaide",
+        "australia/melbourne"             =>   "Canberra",
+        "australia/melbourne"             =>   "Melbourne",
+        "australia/sydney"                =>   "Sydney",
+        "australia/brisbane"              =>   "Brisbane",
+        "australia/hobart"                =>   "Hobart",
+        "asia/vladivostok"                =>   "Vladivostok",
+        "pacific/guam"                    =>   "Guam",
+        "pacific/port_moresby"            =>   "Port Moresby",
+        "asia/magadan"                    =>   "Magadan",
+        "asia/magadan"                    =>   "Solomon Is.",
+        "pacific/noumea"                  =>   "New Caledonia",
+        "pacific/fiji"                    =>   "Fiji",
+        "asia/kamchatka"                  =>   "Kamchatka",
+        "pacific/majuro"                  =>   "Marshall Is.",
+        "pacific/auckland"                =>   "Auckland",
+        "pacific/auckland"                =>   "Wellington",
+        "pacific/tongatapu"               =>   "Nuku'alofa"
+      }
+  end
+end

data/lib/harvest/user.rb

@@ -0,0 +1,66 @@
+module Harvest
+  
+  # The model that contains information about a task
+  #
+  # == Fields
+  # [+id+] (READONLY) the id of the user
+  # [+email+] the email of the user
+  # [+first_name+] the first name for the user
+  # [+last_name+] the last name for the user
+  # [+telephone+] the telephone for the user
+  # [+department] the department for the user
+  # [+password|password_confirmation+] the password for the user (only used on create.)
+  # [+has_access_to_all_future_projects+] whether the user should be added to future projects by default
+  # [+hourly_rate+] what the default hourly rate for the user is
+  # [+admin?+] whether the user is an admin
+  # [+contractor?+] whether the user is a contractor
+  # [+contractor?+] whether the user is a contractor
+  # [+timezone+] the timezone for the user.
+  class User < BaseModel
+    include HappyMapper
+    
+    api_path '/people'
+    element :id, Integer
+    element :email, String
+    element :first_name, String, :tag => 'first-name'
+    element :last_name, String, :tag => 'last-name'
+    element :has_access_to_all_future_projects, Boolean, :tag => 'has-access-to-all-future-projects'
+    element :hourly_rate, Float, :tag => 'default-hourly-rate'
+    element :active, Boolean, :tag => 'is-active'
+    element :admin, Boolean, :tag => 'is-admin'
+    element :contractor, Boolean, :tag => 'is-contractor'
+    element :telephone, String
+    element :department, String
+    element :timezone, String
+    element :password, String
+    element :password_confirmation, String, :tag => 'password-confirmation'
+    
+    alias_method :active?, :active
+    alias_method :admin?, :admin
+    alias_method :contractor?, :contractor
+    
+    # Sets the timezone for the user. This can be done in a variety of ways.
+    # 
+    # == Examples
+    #   user.timezone = :cst # the easiest way. CST, EST, MST, and PST are supported
+    #   
+    #   user.timezone = 'america/chicago' # a little more verbose
+    #   
+    #   user.timezone = 'Central Time (US & Canada)' # the most explicit way
+    def timezone=(timezone)
+      tz = timezone.to_s.downcase
+      case tz
+      when 'cst', 'cdt' then self.timezone = 'america/chicago'
+      when 'est', 'edt' then self.timezone = 'america/new_york'
+      when 'mst', 'mdt' then self.timezone = 'america/denver'
+      when 'pst', 'pdt' then self.timezone = 'america/los_angeles'
+      else
+        if Harvest::Timezones::MAPPING[tz]
+          @timezone = Harvest::Timezones::MAPPING[tz]
+        else
+          @timezone = timezone
+        end
+      end
+    end
+  end
+end

data/lib/harvest/user_assignment.rb

@@ -0,0 +1,34 @@
+module Harvest
+  class UserAssignment < BaseModel
+    include HappyMapper
+    
+    tag 'user-assignment'
+    element :id, Integer
+    element :user_id, Integer, :tag => 'user-id'
+    element :project_id, Integer, :tag => 'project-id'
+    element :deactivated, Boolean
+    element :project_manager, Boolean, :tag => 'is-project-manager'
+    element :hourly_rate, Float, :tag => 'hourly-rate'
+    
+    def user=(user)
+      @user_id = user.to_i
+    end
+    
+    def project=(project)
+      @project_id = project.to_i
+    end
+    
+    def active?
+      !deactivated
+    end
+    
+    def user_xml
+      builder = Builder::XmlMarkup.new
+      builder.user do |t|
+        t.id(user_id)
+      end
+    end
+    
+    alias_method :project_manager?, :project_manager
+  end
+end

data/lib/harvested.rb

@@ -0,0 +1,62 @@
+require 'happymapper'
+require 'httparty'
+require 'base64'
+require 'builder'
+require 'delegate'
+
+require 'harvest/credentials'
+require 'harvest/errors'
+require 'harvest/hardy_client'
+require 'harvest/timezones'
+
+require 'harvest/base'
+
+%w(crud activatable).each {|a| require "harvest/behavior/#{a}"}
+%w(base_model client contact project task user rate_limit_status task_assignment user_assignment expense_category expense time_entry).each {|a| require "harvest/#{a}"}
+%w(base account clients contacts projects tasks users task_assignments user_assignments expense_categories expenses time reports).each {|a| require "harvest/api/#{a}"}
+
+module Harvest
+  VERSION = "0.3.1".freeze
+  
+  class << self
+    
+    # Creates a standard client that will raise all errors it encounters
+    #
+    # == Options
+    # * +:ssl+ - Whether or not to use SSL when connecting to Harvest. This is dependent on whether your account supports it. Set to +true+ by default
+    # == Examples
+    #   Harvest.client('mysubdomain', 'myusername', 'mypassword', :ssl => false)
+    #
+    # @return [Harvest::Base]
+    def client(subdomain, username, password, options = {})
+      Harvest::Base.new(subdomain, username, password, options)
+    end
+    
+    # Creates a hardy client that will retry common HTTP errors it encounters and sleep() if it determines it is over your rate limit
+    #
+    # == Options
+    # * +:ssl+ - Whether or not to use SSL when connecting to Harvest. This is dependent on whether your account supports it. Set to +true+ by default
+    # * +:retry+ - How many times the hardy client should retry errors. Set to +5+ by default.
+    #
+    # == Examples
+    #   Harvest.hardy_client('mysubdomain', 'myusername', 'mypassword', :ssl => true, :retry => 3)
+    #
+    # == Errors
+    # The hardy client will retry the following errors
+    # * Harvest::Unavailable
+    # * Harvest::InformHarvest
+    # * Net::HTTPError
+    # * Net::HTTPFatalError
+    # * Errno::ECONNRESET
+    #
+    # == Rate Limits
+    # The hardy client will make as many requests as it can until it detects it has gone over the rate limit. Then it will +sleep()+ for the how ever long it takes for the limit to reset. You can find more information about the Rate Limiting at http://www.getharvest.com/api
+    #
+    # @return [Harvest::HardyClient] a Harvest::Base wrapped in a Harvest::HardyClient
+    # @see Harvest::Base
+    def hardy_client(subdomain, username, password, options = {})
+      retries = options.delete(:retry)
+      Harvest::HardyClient.new(client(subdomain, username, password, options), (retries || 5))
+    end
+  end
+end

data/spec/harvest/base_spec.rb

@@ -0,0 +1,9 @@
+require File.expand_path(File.dirname(__FILE__) + '/../spec_helper')
+
+describe Harvest::Base do
+  describe "username/password errors" do
+    it "should raise error if missing a credential" do
+      lambda { Harvest::Base.new("subdomain", nil, "secure") }.should raise_error(Harvest::InvalidCredentials)
+    end
+  end
+end

data/spec/harvest/credentials_spec.rb

@@ -0,0 +1,22 @@
+require File.expand_path(File.dirname(__FILE__) + '/../spec_helper')
+
+describe Harvest::Credentials do
+  describe "#valid?" do
+    it "should return true if domain, username, and password is filled out" do
+      Harvest::Credentials.new("some-domain", "username", "password").should be_valid
+    end
+    
+    it "should return false if either domain, username, or password is nil" do
+      Harvest::Credentials.new("some-domain", "username", nil).should_not be_valid
+      Harvest::Credentials.new("some-domain", nil, "password").should_not be_valid
+      Harvest::Credentials.new(nil, "username", "password").should_not be_valid
+      Harvest::Credentials.new(nil, nil, nil).should_not be_valid
+    end
+  end
+  
+  describe "#basic_auth" do
+    it "should base64 encode the credentials" do
+      Harvest::Credentials.new("some-domain", "username", "password").basic_auth.should == "dXNlcm5hbWU6cGFzc3dvcmQ="
+    end
+  end
+end

data/spec/harvest/expense_spec.rb

@@ -0,0 +1,15 @@
+require File.expand_path(File.dirname(__FILE__) + '/../spec_helper')
+
+describe Harvest::Expense do
+  describe "#spent_at" do
+    it "should parse strings" do
+      expense = Harvest::Expense.new(:spent_at => "12/01/2009")
+      expense.spent_at.should == Time.parse("12/01/2009")
+    end
+    
+    it "should accept times" do
+      expense = Harvest::Expense.new(:spent_at => Time.parse("12/01/2009"))
+      expense.spent_at.should == Time.parse("12/01/2009")
+    end
+  end
+end

data/spec/harvest/task_assignment_spec.rb

@@ -0,0 +1,10 @@
+require File.expand_path(File.dirname(__FILE__) + '/../spec_helper')
+
+describe Harvest::TaskAssignment do
+  describe "#task_xml" do
+    it "should generate the xml for existing tasks" do
+      assignment = Harvest::TaskAssignment.new(:task => mock(:task, :to_i => 3))
+      assignment.task_xml.should == '<task><id>3</id></task>'
+    end
+  end
+end