servicemerchant 0.1.0

data/tracker/test/connection.rb

@@ -0,0 +1,10 @@
+# As we're not using Rails in tests, we have to establish DB conneciton ourselves
+require 'rubygems'
+gem 'activerecord'
+require 'activerecord'
+gem 'sqlite3-ruby'
+
+ActiveRecord::Base.establish_connection(
+    :adapter => "sqlite3",
+    :database  => (File.dirname(__FILE__) + "/../db/test.db")
+)

data/tracker/test/recurring_payment_profile.rb

@@ -0,0 +1,35 @@
+require File.dirname(__FILE__) + '/test_helper'
+
+class RandomRecurringProfileTest < Test::Unit::TestCase
+
+  def setup
+    cred = fixtures(:paypal)
+    assert @gw = RecurringBilling::PaypalGateway.new(cred)
+    @card = credit_card(number='4532130086825928')
+  end
+
+  def test_crud_recurring_payment
+    payment_options = {
+          :subscription_name => 'Test Subscription 1337',
+          :order => {:invoice_number => '407933'}
+          }
+    recurring_options = {
+          :start_date => Date.today + 1,
+          :end_date => Date.today + 290,
+          :interval => '1m'
+          }
+
+    billing_id = @gw.create_with_persist(Money.us_dollar(15), @card, payment_options=payment_options, recurring_options=recurring_options)
+    print "\n\nCreate:\n"
+    print @gw.last_response.inspect
+    payment_options[:order] = {:invoice_number => '407934'}
+    @gw.update_with_persist(billing_id, Money.us_dollar(16), @card, payment_options=payment_options)
+    print "\n\nUpdate:\n"
+    print @gw.last_response.inspect
+    @gw.delete_with_persist(billing_id)
+    print "\n\nDelete:\n"
+    print @gw.last_response.inspect
+  end
+
+end
+

data/tracker/test/remote/authorize_net_test.rb

@@ -0,0 +1,68 @@
+require File.dirname(__FILE__) + '/../test_helper'
+require "tracker"
+
+class AuthorizeNetGatewayRemoteTest < Test::Unit::TestCase
+
+  def setup
+    credentials = fixtures(:authorize_net)
+    assert @gw = RecurringBilling::AuthorizeNetGateway.new(credentials)
+    @card = credit_card()
+  end
+
+  def test_crud_recurring_payment
+    payment_options = {
+          :subscription_name => 'Random subscription',
+          :order => {:invoice_number => 'ODMX31337'}
+          }
+    recurring_options = {
+          :start_date => Date.today,
+          :occurrences => 10,
+          :interval => '10d'
+          }
+
+    sum = rand(50000)+120
+    billing_id = @gw.create(Money.us_dollar(sum), @card, payment_options, recurring_options)
+    assert @gw.last_response.success?
+
+    payment_options[:order] = {:invoice_number => 'ODMX17532'}
+
+    another_sum = rand(50000)+120
+    @gw.update(billing_id, Money.us_dollar(another_sum), @card, payment_options, {})
+    assert @gw.last_response.success?
+
+    assert_raise NotImplementedError do; @gw.inquiry(billing_id); end
+
+    @gw.delete(billing_id)
+    assert @gw.last_response.success?
+    profile = RecurringPaymentProfile.find_by_gateway_reference(billing_id)
+    assert_equal 'deleted', profile.status
+    
+    assert_raise StandardError do;@gw.update(billing_id, Money.us_dollar(another_sum), @card, payment_options, {});end;
+  end
+
+  def test_update_or_recreate
+    payment_options = {
+          :subscription_name => 'Random subscription',
+          :order => {:invoice_number => 'ODMX31337'}
+          }
+    recurring_options = {
+          :start_date => Date.today,
+          :occurrences => 10,
+          :interval => '10d'
+          }
+
+    sum = rand(50000)+120
+    billing_id = @gw.create(Money.us_dollar(sum), @card, payment_options, recurring_options)
+    assert @gw.last_response.success?
+
+    payment_options[:order] = {:invoice_number => 'ODMX17532'}
+
+    another_sum = rand(50000)+120
+    @gw.update_or_recreate(billing_id, {:amount => Money.us_dollar(another_sum)})
+    assert @gw.last_response.success?
+
+    @gw.update_or_recreate(billing_id, {:card => @card, :start_date => Date.new(2009, 7, 8)})
+    assert @gw.last_response.success?
+  end
+
+end

data/tracker/test/remote/paypal_test.rb

@@ -0,0 +1,115 @@
+require File.dirname(__FILE__) + '/../test_helper'
+
+require "mocha"
+require "tracker"
+
+class PaypalRemoteTest < Test::Unit::TestCase
+
+  def setup
+    cred = fixtures(:paypal)
+    assert @gw = RecurringBilling::PaypalGateway.new(cred)
+    @card = credit_card()
+    @card2 = credit_card('4929838635250031', {:first_name => 'James', :last_name => 'Lueser'})
+    @card_bogus = credit_card("ISMELLLIKEBOGUS")
+  end
+
+  def test_inquiry_updates_tracker
+    payment_options = {
+          :subscription_name => 'Test Subscription 1337',
+          :order => {:invoice_number => '407933'}
+          }
+    recurring_options = {
+          :start_date => Date.today + 1,
+          :end_date => Date.today + 290,
+          :interval => '1m'
+          }
+
+    billing_id = @gw.create(Money.us_dollar(15), @card, payment_options=payment_options, recurring_options=recurring_options)
+    assert @gw.last_response.success?
+
+    profile = RecurringPaymentProfile.find_by_gateway_reference(billing_id)
+    assert_equal 'active', profile.status
+    assert_not_equal -1, profile.outstanding_balance
+    assert_not_equal -1, profile.complete_payments_count
+    assert_not_equal -1, profile.failed_payments_count
+    assert_not_equal -1, profile.remaining_payments_count
+
+    # Mock result of original inquire methods
+    result_mock = {'profile_status'         => 'verified',
+                'outstanding_balance'    => ::Money.new(-100),
+                'number_cycles_completed'=> -1,
+                'failed_payment_count'   => -1,
+                'number_cycles_remaining'=> -1}
+
+    @gw.methods.include? :inquiry_without_persist
+    @gw.expects(:inquiry_without_persist).returns(result_mock)
+    result = @gw.inquiry(billing_id)
+    assert @gw.last_response.success?
+
+    assert_equal result_mock, result
+
+    # Get profile and check whether data is updated
+    profile = RecurringPaymentProfile.find_by_gateway_reference(billing_id)
+    assert_equal 'verified', profile.status
+    assert_equal -100, profile.outstanding_balance
+    assert_equal -1, profile.complete_payments_count
+    assert_equal -1, profile.failed_payments_count
+    assert_equal -1, profile.remaining_payments_count
+  end
+
+  def test_create_update_failure
+      payment_options = {
+            :subscription_name => 'Unsuccessful payment',
+            :order => {:invoice_number => '032895'}
+            }
+      recurring_options = {
+            :start_date => Date.today + 1,
+            :occurrences => 402,
+            :interval => '1w'
+            }
+
+      new_recurring_options = {
+            :pay_on_day_x => 3
+            }
+
+      token_sum = rand(50000)+120
+      @gw.create(Money.us_dollar(token_sum), @card_bogus, payment_options=payment_options, recurring_options=recurring_options)
+      assert !@gw.last_response.success?
+      assert RecurringPaymentProfile.find_by_net_amount(Money.us_dollar(token_sum).cents).nil?
+
+      new_token_sum = rand(50000)+120
+      billing_id = @gw.create(Money.us_dollar(new_token_sum), @card, payment_options=payment_options, recurring_options=recurring_options)
+      assert @gw.last_response.success?
+      assert_equal profile = RecurringPaymentProfile.find_by_net_amount(Money.us_dollar(new_token_sum).cents), RecurringPaymentProfile.find_by_gateway_reference(billing_id)
+
+      another_token_sum = rand(50000)+120
+      @gw.update(billing_id, Money.us_dollar(another_token_sum), @card, {}, new_recurring_options)
+      assert_not_equal profile.updated_at, (profile2 = RecurringPaymentProfile.find_by_gateway_reference(billing_id)).updated_at #meaning the profile hadn't been updated
+      assert_equal profile2.amount, Money.us_dollar(another_token_sum).cents
+
+
+      @gw.update(billing_id, Money.us_dollar(new_token_sum), @card_bogus, {}, {})
+      assert_equal profile2.updated_at, RecurringPaymentProfile.find_by_gateway_reference(billing_id).updated_at #meaning the profile hadn't been updated
+  end
+
+  def test_update_or_create
+    payment_options = {
+          :subscription_name => 'Random subscription',
+          :order => {:invoice_number => 'ODMX31337'}
+          }
+    recurring_options = {
+          :start_date => Date.today,
+          :occurrences => 10,
+          :interval => '10 w'
+          }
+
+    sum = rand(50000)+120
+    billing_id = @gw.create(Money.us_dollar(sum), @card, payment_options, recurring_options)
+    assert @gw.last_response.success?
+
+    another_sum = rand(50000)+120
+    @gw.update_or_recreate(billing_id, {:card => @card2, :occurrences => 20})
+    assert @gw.last_response.success?
+  end
+
+end

data/tracker/test/test_helper.rb

@@ -0,0 +1,87 @@
+#!/usr/bin/env ruby
+
+require 'rubygems'
+require 'test/unit'
+require 'activesupport'
+
+silence_warnings do
+  require 'active_merchant'
+end
+
+require File.dirname(__FILE__) + "/connection"
+
+$: << File.dirname(__FILE__) + "/../" # Tracker root
+
+require 'tracker'
+
+# Turn off invalid certificate crashes
+require 'openssl'
+silence_warnings do
+  OpenSSL::SSL::VERIFY_PEER = OpenSSL::SSL::VERIFY_NONE
+end
+
+ActiveMerchant::Billing::Base.mode = :test
+
+module Test
+  module Unit
+    class TestCase
+
+
+      DEFAULT_CREDENTIALS = File.dirname(__FILE__) + '/fixtures.yml'
+
+      private
+      def credit_card(number = '4242424242424242', options = {})
+        defaults = {
+          :number => number,
+          :month => 9,
+          :year => Time.now.year + 1,
+          :first_name => 'John',
+          :last_name => 'Doe',
+          :verification_value => '123',
+          :type => 'visa'
+        }.update(options)
+
+        ActiveMerchant::Billing::CreditCard.new(defaults)
+      end
+
+      def address(options = {})
+        {
+          :name => 'John Doe',
+          :address1 => '1234 My Street',
+          :address2 => 'Apt 1',
+          :company => 'Widgets Inc',
+          :city => 'Ottawa',
+          :state => 'ON',
+          :zip => 'K1C2N6',
+          :country => 'CA',
+          :phone => '(555)555-5555'
+        }.update(options)
+      end
+
+      def all_fixtures
+        @@fixtures ||= load_fixtures
+      end
+
+      def fixtures(key)
+        data = all_fixtures[key] || raise(StandardError, "No fixture data was found for '#{key}'")
+
+        data.dup
+      end
+
+      def load_fixtures
+        file = DEFAULT_CREDENTIALS
+        yaml_data = YAML.load(File.read(file))
+        symbolize_keys(yaml_data)
+
+        yaml_data
+      end
+
+      def symbolize_keys(hash)
+        return unless hash.is_a?(Hash)
+
+        hash.symbolize_keys!
+        hash.each{|k,v| symbolize_keys(v)}
+      end
+    end
+  end
+end

data/tracker/test/unit/recurring_payment_profile_test.rb

@@ -0,0 +1,62 @@
+require File.dirname(__FILE__) + '/../test_helper'
+
+require 'money'
+
+class RecurringPaymentProfileTest < Test::Unit::TestCase
+
+  def setup
+    @profile = ::RecurringPaymentProfile.new
+  end
+
+  def test_net_money_assigns
+    @profile.net_money=Money.new(333, currency='CAD')
+    assert_equal 333, @profile.net_amount
+    assert_equal 'CAD', @profile.currency
+  end
+
+  def test_taxes_money_assigns
+    @profile.taxes_money=Money.new(444, currency='RUR')
+    assert_equal 444, @profile.taxes_amount
+    assert_equal 'RUR', @profile.currency
+  end
+
+  def test_net_money_fails
+    @profile.taxes_money=Money.new(333, currency='CAD')
+    assert_raise ArgumentError do; @profile.net_money=Money.new(444, currency='RUR'); end
+  end
+
+  def test_taxes_money_fails
+    @profile.net_money=Money.new(333, currency='CAD')
+    assert_raise ArgumentError do; @profile.taxes_money=Money.new(444, currency='RUR'); end
+  end
+
+  def test_mask_card_number
+    assert_equal 'abba', @profile.mask_card_number('abba')
+    assert_equal 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXched', @profile.mask_card_number('whatisthethingthatcannotbetouched')
+  end
+
+  def test_parse_and_set_card
+    card = credit_card(number='1111111111', options={:type => 'master', :year => 2003, :month => 3, :first_name => 'Name', :last_name => 'Surname'})
+    @profile.parse_and_set_card(card)
+    assert_equal 'master', @profile.card_type
+    assert_equal 'Name Surname, MASTER, XXXXXX1111, exp. 2003-03', @profile.card_owner_memo
+  end
+
+  def test_parse_and_set_card_with_hint
+    card = credit_card(number='1111111111', options={:type => 'master'})
+    @profile.parse_and_set_card(card, 'this is my hint')
+    assert_equal 'master', @profile.card_type
+    assert_equal 'this is my hint', @profile.card_owner_memo
+  end
+
+  def test_card_exp_date
+    card = credit_card(number='4242424242424242', options={:year => 2001, :month => 1})
+    assert_equal '2001-01', @profile.card_exp_date(card)
+  end
+
+  def test_no_obsolete_fields
+    assert_raise NoMethodError do; @profile.payment_offset = 0; end
+    assert_raise NoMethodError do; @profile.payments_start_on = Date.today; end
+  end
+
+end

data/tracker/tracker.rb

@@ -0,0 +1,10 @@
+#TODO: Use auto-loading from activesupport
+
+require 'rubygems'
+require 'activerecord'
+
+$: << File.dirname(__FILE__) + "/../vendor/money-1.7.1/lib"
+
+require File.dirname(__FILE__) + '/lib/models/recurring_payment_profile'
+require File.dirname(__FILE__) + '/lib/models/transaction'
+require File.dirname(__FILE__) + '/lib/recurring_billing_extension'

data/vendor/money-1.7.1/MIT-LICENSE

@@ -0,0 +1,20 @@
+Copyright (c) 2005 Tobias Lutke
+
+Permission is hereby granted, free of charge, to any person obtaining
+a copy of this software and associated documentation files (the
+"Software"), to deal in the Software without restriction, including
+without limitation the rights to use, copy, modify, merge, publish,
+distribute, sublicense, and/or sell copies of the Software, and to
+permit persons to whom the Software is furnished to do so, subject to
+the following conditions:
+
+The above copyright notice and this permission notice shall be
+included in all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

data/vendor/money-1.7.1/README

@@ -0,0 +1,75 @@
+== Money class
+
+This money class is based on the example from the ActiveRecord doc:
+http://api.rubyonrails.org/classes/ActiveRecord/Aggregations/ClassMethods.html
+
+Its in production use at http://www.snowdevil.ca and I haven't found any major issues
+so far. 
+The main reason to open source it is because It might be useful to other people and 
+I hope i'll get some feedback on how to improve the class. 
+
+I bundled the exporter with the money class since some tests depend on it and I figured
+that most applications which need to deal with Money also need to deal with proper 
+exporting. 
+
+== Download
+
+Preferred method of installation is gem: 
+
+  gem install --source http://dist.leetsoft.com money 
+
+Alternatively you can get the library packed
+  
+  http://dist.leetsoft.com/pkg/
+
+== Usage
+
+Use the compose_of helper to let active record deal with embedding the money
+object in your models. The following example requires a cents and a currency field.
+
+  class ProductUnit < ActiveRecord::Base
+    belongs_to :product
+    composed_of :price, :class_name => "Money", :mapping => [%w(cents cents) %(currency currency)]
+
+    private        
+      validate :cents_not_zero
+    
+      def cents_not_zero
+        errors.add("cents", "cannot be zero or less") unless cents > 0
+      end
+    
+      validates_presence_of :sku, :currency
+      validates_uniqueness_of :sku        
+  end
+  
+== Class configuration
+
+Two const class variables are available to tailor Money to your needs. 
+If you don't need currency exchange at all, just ignore those.
+
+=== Default Currency
+
+By default Money defaults to USD as its currency. This can be overwritten using
+
+  Money.default_currency = "CAD"
+  
+If you use rails, the environment.rb is a very good place to put this. 
+
+=== Currency Exchange
+
+The second parameter is a bit more complex. It lets you provide your own implementation of the 
+currency exchange service. By default Money throws an exception when trying to call .exchange_to. 
+
+A second minimalist implementation is provided which lets you supply custom exchange rates:
+
+  Money.bank = VariableExchangeBank.new 
+  Money.bank.add_rate("USD", "CAD", 1.24515)
+  Money.bank.add_rate("CAD", "USD", 0.803115)
+  Money.us_dollar(100).exchange_to("CAD") => Money.ca_dollar(124)
+  Money.ca_dollar(100).exchange_to("USD") => Money.us_dollar(80)
+
+There is nothing stopping you from creating bank objects which scrape www.xe.com for the current rates or just return rand(2)
+  
+== Code
+
+If you have any improvements please email them to tobi [at] leetsoft.com