samlown-money 2.3.3.2

data/lib/money/variable_exchange_bank.rb

@@ -0,0 +1,101 @@
+require 'money/errors'
+require 'net/http'
+require 'rubygems'
+require 'hpricot'
+
+# Class for aiding in exchanging money between different currencies.
+# By default, the Money class uses an object of this class (accessible through
+# Money#bank) for performing currency exchanges.
+#
+# By default, VariableExchangeBank has no knowledge about conversion rates.
+# One must manually specify them with +add_rate+, after which one can perform
+# exchanges with +exchange+. For example:
+#
+#  bank = Money::VariableExchangeBank.new
+#  bank.add_rate("CAD", 0.803115)
+#  bank.add_rate("USD", 1.24515)
+#  
+#  # Exchange 100 CAD to USD:
+#  bank.exchange(100_00, "CAD", "USD")  # => 15504
+#  # Exchange 100 USD to CAD:
+#  bank.exchange(100_00, "USD", "CAD")  # => 6450
+class Money
+  class VariableExchangeBank
+    # Returns the singleton instance of VariableExchangeBank.
+    #
+    # By default, <tt>Money.default_bank</tt> returns the same object.
+    def self.instance
+      @@singleton
+    end
+    
+    def initialize
+      @rates = {}
+      @rates["USD"] = 1.0
+    end
+
+    def add_rate(currency, rate)
+      @rates[currency.upcase] = (currency.upcase != Money.default_currency) ? (rate * @rates[Money.default_currency]) : rate
+    end
+
+    def get_rate(currency = nil)
+      return nil unless @rates[currency]
+      (currency != Money.default_currency) ? @rates[currency.upcase] / @rates[Money.default_currency] : @rates[currency.upcase]
+    end
+    
+    # Given two currency names, checks whether they're both the same currency.
+    #
+    #   bank = VariableExchangeBank.new
+    #   bank.same_currency?("usd", "USD")   # => true
+    #   bank.same_currency?("usd", "EUR")   # => false
+    def same_currency?(currency1, currency2)
+      currency1.upcase == currency2.upcase
+    end
+    
+    # Exchange the given amount of cents in +from_currency+ to +to_currency+.
+    # Returns the amount of cents in +to_currency+ as an integer, rounded down.
+    #
+    # If the conversion rate is unknown, then Money::UnknownRate will be raised.
+    def exchange(cents, from_currency, to_currency)
+      from_currency.upcase!
+      to_currency.upcase!
+      if !@rates[from_currency] or !@rates[to_currency]        
+        raise Money::UnknownRate, "No conversion rate known for '#{from_currency}' -> '#{to_currency}'"
+      end
+      ((cents / @rates[from_currency]) * @rates[to_currency]).round
+    end
+
+    # Fetch rates
+    def fetch_rates
+      xml = Hpricot.XML(
+        Net::HTTP.get(
+          URI.parse('http://www.ecb.int/stats/eurofxref/eurofxref-daily.xml')
+                     )
+             )
+
+      @rates["EUR"] = 1.0
+      (xml/:Cube).each do |ele|
+        @rates[ele['currency'].upcase] = ele['rate'].to_f if ele['currency']
+      end
+    end
+
+
+    # Auto fetch the currencies every X seconds
+    # if no time is give, will fetch every hour
+    def auto_fetch(time = 60*60)
+      @auto_fetch.kill if (@auto_fetch && @auto_fetch.alive?)
+      @auto_fetch = Thread.new {
+        loop do
+          self.fetch_rates
+          sleep time
+        end
+      }
+    end
+
+    # stop auto fetch
+    def stop_fetch
+      @auto_fetch.kill if (@auto_fetch && @auto_fetch.alive?)
+    end
+    
+    @@singleton = VariableExchangeBank.new
+  end
+end

data/money.gemspec

@@ -0,0 +1,37 @@
+# -*- encoding: utf-8 -*-
+
+Gem::Specification.new do |s|
+  s.name = %q{money}
+  s.version = "2.3.3.2"
+
+  s.required_rubygems_version = Gem::Requirement.new(">= 0") if s.respond_to? :required_rubygems_version=
+  s.authors = ["Money Team"]
+  s.date = %q{2009-05-14}
+  s.description = %q{This library aids one in handling money and different currencies.}
+  s.email = ["see@readme"]
+  s.extra_rdoc_files = ["History.txt", "Manifest.txt", "README.rdoc"]
+  s.files = ["History.txt", "MIT-LICENSE", "Manifest.txt", "README.rdoc", "Rakefile", "lib/money.rb", "lib/money/acts_as_money.rb", "lib/money/core_extensions.rb", "lib/money/errors.rb", "lib/money/money.rb", "lib/money/variable_exchange_bank.rb", "money.gemspec", "rails/init.rb", "script/console", "script/destroy", "script/generate", "spec/db/database.yml", "spec/db/schema.rb", "spec/money/acts_as_money_spec.rb", "spec/money/core_extensions_spec.rb", "spec/money/exchange_bank_spec.rb", "spec/money/money_spec.rb", "spec/spec.opts", "spec/spec_helper.rb" ]
+  s.has_rdoc = true
+  s.homepage = %q{http://github.com/samlown/money}
+  s.rdoc_options = ["--main", "README.rdoc"]
+  s.require_paths = ["lib"]
+  s.rubyforge_project = %q{money}
+  s.rubygems_version = %q{1.3.1}
+  s.summary = %q{This library aids one in handling money and different currencies.}
+
+  if s.respond_to? :specification_version then
+    current_version = Gem::Specification::CURRENT_SPECIFICATION_VERSION
+    s.specification_version = 2
+
+    if Gem::Version.new(Gem::RubyGemsVersion) >= Gem::Version.new('1.2.0') then
+      s.add_development_dependency(%q<newgem>, [">= 1.3.0"])
+      s.add_development_dependency(%q<hoe>, [">= 1.8.0"])
+    else
+      s.add_dependency(%q<newgem>, [">= 1.3.0"])
+      s.add_dependency(%q<hoe>, [">= 1.8.0"])
+    end
+  else
+    s.add_dependency(%q<newgem>, [">= 1.3.0"])
+    s.add_dependency(%q<hoe>, [">= 1.8.0"])
+  end
+end

data/rails/init.rb

@@ -0,0 +1,3 @@
+require 'money/acts_as_money'
+
+ActiveRecord::Base.send :include, ActsAsMoney

data/script/console

@@ -0,0 +1,10 @@
+#!/usr/bin/env ruby
+# File: script/console
+irb = RUBY_PLATFORM =~ /(:?mswin|mingw)/ ? 'irb.bat' : 'irb'
+
+libs =  " -r irb/completion"
+# Perhaps use a console_lib to store any extra methods I may want available in the cosole
+# libs << " -r #{File.dirname(__FILE__) + '/../lib/console_lib/console_logger.rb'}"
+libs <<  " -r #{File.dirname(__FILE__) + '/../lib/postgis_adapter.rb'}"
+puts "Loading postgis_adapter gem"
+exec "#{irb} #{libs} --simple-prompt"

data/script/destroy

@@ -0,0 +1,14 @@
+#!/usr/bin/env ruby
+APP_ROOT = File.expand_path(File.join(File.dirname(__FILE__), '..'))
+
+begin
+  require 'rubigen'
+rescue LoadError
+  require 'rubygems'
+  require 'rubigen'
+end
+require 'rubigen/scripts/destroy'
+
+ARGV.shift if ['--help', '-h'].include?(ARGV[0])
+RubiGen::Base.use_component_sources! [:rubygems, :newgem, :newgem_theme, :test_unit]
+RubiGen::Scripts::Destroy.new.run(ARGV)

data/script/generate

@@ -0,0 +1,14 @@
+#!/usr/bin/env ruby
+APP_ROOT = File.expand_path(File.join(File.dirname(__FILE__), '..'))
+
+begin
+  require 'rubigen'
+rescue LoadError
+  require 'rubygems'
+  require 'rubigen'
+end
+require 'rubigen/scripts/generate'
+
+ARGV.shift if ['--help', '-h'].include?(ARGV[0])
+RubiGen::Base.use_component_sources! [:rubygems, :newgem, :newgem_theme, :test_unit]
+RubiGen::Scripts::Generate.new.run(ARGV)

data/spec/db/database.yml

@@ -0,0 +1,4 @@
+adapter: sqlite3
+database: tmp/acts_as_money.sqlite3
+pool: 5
+timeout: 5000

data/spec/db/schema.rb

@@ -0,0 +1,14 @@
+ActiveRecord::Schema.define() do
+
+  create_table :accounts, :force => true do |t|
+    t.integer :value_cents, :total_cents
+    t.string  :value_currency, :total_currency
+  end
+
+  create_table :products, :force => true do |t|
+    t.integer :value_cents, :tax_pennys
+    t.string  :value_currency
+  end
+
+
+end

data/spec/money/acts_as_money_spec.rb

@@ -0,0 +1,95 @@
+require File.dirname(__FILE__) + '/../spec_helper.rb'
+require File.dirname(__FILE__) + '/../../rails/init.rb'
+
+class Account < ActiveRecord::Base
+  has_money :value, :total, :allow_nil => true
+end
+
+class Product < ActiveRecord::Base
+  has_money :value, :allow_nil => false
+  has_money :tax, :cents => "pennys", :with_currency => false
+
+  validates_numericality_of :value_cents, :greater_than => 0
+end
+
+describe "Acts as Money" do
+
+
+  it "should accept nil" do
+    @account = Account.create(:value => nil)
+    @account.should be_valid
+    @account.value.should be_nil
+  end
+
+  it "should require money" do
+    @product = Product.create(:value => nil)
+    @product.should have(1).errors
+    @product.value.should == Money.new(0)
+  end
+
+  it "should require money" do
+    @product_fake = Product.create(:value => nil)
+    @product_fake.value_cents.should eql(0)
+  end
+
+  it "should create" do
+    @account = Account.create!(:value => 10, :total => "20 BRL")
+    @account.should be_valid
+  end
+
+  it "should write to the db" do
+    lambda do
+      @account = Account.create!(:value => 10, :total => "20 BRL")
+    end.should change(Account, :count).by(1)
+    Account.last.total.format.should eql("R$20,00")
+  end
+
+
+
+  describe "Account" do
+
+    before(:each) do
+      @account = Account.create!(:value => 10, :total => "20 BRL")
+    end
+
+    it "should return an instance of Money" do
+      @account.value.should be_instance_of(Money)
+    end
+
+    it "should format out nicely" do
+      @account.value.format.should eql("$10.00")
+    end
+
+    it "should include nicely" do
+      @account.value.to_s.should eql("10.00")
+      @account.total.to_s.should eql("20.00")
+    end
+
+    it "should map cents" do
+      @account.value_cents.to_s.should eql("1000")
+    end
+
+    it "should map currency" do
+      @account.value_currency.should eql("USD")
+      @account.total_currency.should eql("BRL")
+    end
+
+  end
+
+  describe "Product" do
+
+    before(:each) do
+      @product = Product.create(:value => 10, :tax => 2)
+    end
+
+    it "should map attributes" do
+      @product.pennys.should eql(200)
+    end
+
+    it "should map currency on tax" do
+      @product.should_not respond_to(:tax_currency)
+    end
+
+  end
+
+end

data/spec/money/core_extensions_spec.rb

@@ -0,0 +1,44 @@
+require File.dirname(__FILE__) + '/../spec_helper.rb'
+
+describe "Money core extensions" do
+  describe "Numberic#to_money works" do
+    it "should convert integer to money" do
+      money = 1234.to_money
+      money.cents.should == 1234_00
+      money.currency.should == Money.default_currency
+    end
+
+    it "should convert float to money" do
+      money = 100.37.to_money
+      money.cents.should == 100_37
+      money.currency.should == Money.default_currency
+    end
+  end
+
+  describe "String#to_money works" do
+    it { "100".to_money.should == Money.new(100_00) }
+    it { "100.37".to_money.should == Money.new(100_37) }
+    it { "100,37".to_money.should == Money.new(100_37) }
+    it { "100 000".to_money.should == Money.new(100_000_00) }
+    it { "100.000,45".to_money.should == Money.new(100_000_45) }
+    it { "-100.100,45".to_money.should == Money.new(-100_100_45) }
+
+    it { "100 USD".to_money.should == Money.new(100_00, "USD") }
+    it { "-100 USD".to_money.should == Money.new(-100_00, "USD") }
+    it { "100 EUR".to_money.should == Money.new(100_00, "EUR") }
+    it { "100.37 EUR".to_money.should == Money.new(100_37, "EUR") }
+    it { "100,37 EUR".to_money.should == Money.new(100_37, "EUR") }
+
+    it { "USD 100".to_money.should == Money.new(100_00, "USD") }
+    it { "EUR 100".to_money.should == Money.new(100_00, "EUR") }
+    it { "EUR 100.37".to_money.should == Money.new(100_37, "EUR") }
+    it { "CAD -100.37".to_money.should == Money.new(-100_37, "CAD") }
+    it { "EUR 100,37".to_money.should == Money.new(100_37, "EUR") }
+    it { "EUR -100,37".to_money.should == Money.new(-100_37, "EUR") }
+
+    it { "BRL 100,37".to_money.should == Money.new(100_37, "BRL") }
+    it { "BRL -100,37".to_money.should == Money.new(-100_37, "BRL") }
+
+    it {"$100 USD".to_money.should == Money.new(100_00, "USD") }
+  end
+end

data/spec/money/exchange_bank_spec.rb

@@ -0,0 +1,46 @@
+require File.dirname(__FILE__) + '/../spec_helper.rb'
+
+describe Money::VariableExchangeBank do
+  before :each do
+    @bank = Money::VariableExchangeBank.new
+  end
+
+  it "returns the previously specified conversion rate" do
+    @bank.add_rate("USD", 0.788332676)
+    @bank.add_rate("EUR", 122.631477)
+    @bank.get_rate("USD").should == 0.788332676
+    @bank.get_rate("EUR").should == 122.631477
+  end
+
+  it "treats currency names case-insensitively" do
+    @bank.add_rate("usd", 1)
+    @bank.get_rate("USD").should == 1
+    @bank.same_currency?("USD", "usd").should be_true
+    @bank.same_currency?("EUR", "usd").should be_false
+  end
+
+  it "returns nil if the conversion rate is unknown" do
+    @bank.get_rate("American Pesos").should be_nil
+  end
+
+  it "exchanges money from one currency to another according to the specified conversion rates" do
+    @bank.add_rate("USD", 1.0)
+    @bank.add_rate("EUR", 0.5)
+    @bank.add_rate("YEN", 5)
+    @bank.exchange(10_00, "USD", "EUR").should == 5_00
+    @bank.exchange(500_00, "EUR", "YEN").should == 5000_00
+  end
+
+  it "rounds the exchanged result down" do
+    @bank.add_rate("USD", 1.0)
+    @bank.add_rate("EUR", 0.788332676)
+    @bank.add_rate("YEN", 122.631477)
+    @bank.exchange(10_00, "USD", "EUR").should == 788
+    @bank.exchange(500_00, "EUR", "YEN").should == 7777901
+  end
+
+  it "raises Money::UnknownRate upon conversion if the conversion rate is unknown" do
+    block = lambda { @bank.exchange(10, "USD", "ABC") }
+    block.should raise_error(Money::UnknownRate)
+  end
+end

data/spec/money/money_spec.rb

@@ -0,0 +1,266 @@
+# -*- coding: utf-8 -*-
+require File.dirname(__FILE__) + '/../spec_helper.rb'
+
+describe Money do
+
+  it {  Money.new(10_00).to_f.should eql(10.0) }
+  it {  Money.new(10_00).to_s.should eql("10.00") }
+
+  it "is associated to the singleton instance of VariableExchangeBank by default" do
+    Money.new(0).bank.object_id.should == Money::VariableExchangeBank.instance.object_id
+  end
+
+  it "should return the amount of cents passed to the constructor" do
+    Money.new(200_00, "USD").cents.should == 200_00
+  end
+
+  it "should rounds the given cents to an integer" do
+    Money.new(1.0, "USD").cents.should == 1
+    Money.new(1.01, "USD").cents.should == 1
+  end
+
+  it "should use the floor method" do
+    Money.new(1.50, "USD").cents.should == 1
+    Money.new(1.99, "USD").cents.should == 1
+  end
+
+  it "#currency returns the currency passed to the constructor" do
+    Money.new(200_00, "USD").currency.should == "USD"
+  end
+
+  it "#zero? returns whether the amount is 0" do
+    Money.new(0, "USD").should be_zero
+    Money.new(0, "EUR").should be_zero
+    Money.new(1, "USD").should_not be_zero
+    Money.new(10, "YEN").should_not be_zero
+    Money.new(-1, "EUR").should_not be_zero
+  end
+
+  it "should exchange_to exchanges the amount via its exchange bank" do
+    money = Money.new(100_00, "USD")
+    money.bank.should_receive(:exchange).with(100_00, "USD", "EUR").and_return(200_00)
+    money.exchange_to("EUR")
+  end
+
+  it "should exchange_to exchanges the amount properly" do
+    money = Money.new(100_00, "USD")
+    money.bank.should_receive(:exchange).with(100_00, "USD", "EUR").and_return(200_00)
+    money.exchange_to("EUR").should == Money.new(200_00, "EUR")
+  end
+
+  it "should returns true if and only if their amount and currency are equal" do
+    Money.new(1_00, "USD").should == Money.new(1_00, "USD")
+  end
+
+  it "should add retaining the currency" do
+    (Money.new(1_00, "USD") + 10).should == Money.new(1_10, "USD")
+  end
+
+  it "should substract retaining the currency" do
+    (Money.new(1_00, "USD") - 10).should == Money.new(90, "USD")
+  end
+
+  it "should multiply while retaining the currency" do
+    (Money.new(1_00, "USD") * 10).should == Money.new(10_00, "USD")
+  end
+
+  it "should divides while retaining the currency" do
+    (Money.new(10_00, "USD") / 10).should == Money.new(1_00, "USD")
+  end
+
+  it "should create a new Money object of 0 cents if empty" do
+    Money.empty.should == Money.new(0)
+  end
+
+  it "Money.ca_dollar creates a new Money object of the given value in CAD" do
+    Money.ca_dollar(50).should == Money.new(50, "CAD")
+  end
+
+  it "Money.us_dollar creates a new Money object of the given value in USD" do
+    Money.us_dollar(50).should == Money.new(50, "USD")
+  end
+
+  it "Money.euro creates a new Money object of the given value in EUR" do
+    Money.euro(50).should == Money.new(50, "EUR")
+  end
+
+  it "Money.real creates a new Money object of the given value in BRL" do
+    Money.real(50).should == Money.new(50, "BRL")
+  end
+
+  describe "Installments" do
+
+    it "# divides the money ammout in installments add first" do
+      @money = Money.new(10_00).split_in_installments(3)
+      @money[0].cents.should eql(334)
+      @money[1].cents.should eql(333)
+      @money[2].cents.should eql(333)
+    end
+
+    it "# divides the money ammout in installments add last" do
+      @money = Money.new(10_00).split_in_installments(3,true)
+      @money.to_s.should eql(["3.33", "3.33", "3.34"])
+    end
+
+    it "# divides the money ammout in installments base on payment" do
+      money = Money.new(3_00)
+      Money.new(10_00).in_installments_of(money)[0].cents.should eql(334)
+      Money.new(10_00).in_installments_of(money)[1].cents.should eql(333)
+      Money.new(10_00).in_installments_of(money)[2].cents.should eql(333)
+    end
+
+    it "shuld sum array" do
+      Money.new(10_00).split_in_installments(3).sum.cents.should eql(1000)
+    end
+
+    it "should calculate tax" do
+      Money.new(100).add_tax(20).cents.should eql(120)
+      Money.new(100).add_tax(-20).cents.should eql(80)
+    end
+
+    it "shuld to_s wallet" do
+      @money = Money.new(10_00)
+      @money.split_in_installments(3).to_s.should eql(["3.34", "3.33", "3.33"])
+    end
+
+    it "shuld sum array" do
+      @money = Money.new(10_00).add_tax(10)
+      @money.split_in_installments(3).sum.cents.should eql(1100)
+    end
+
+  end
+
+  describe "Taxes and Interest" do
+
+    it "Money.add_rate works" do
+      Money.add_rate("USD", 1.0)
+      Money.add_rate("EUR", 10)
+      Money.new(10_00, "EUR").exchange_to("USD").should == Money.new(1_00, "USD")
+    end
+
+    it "Money method missing exchange" do
+      Money.add_rate("EUR", 1.0)
+      Money.add_rate("BRL", 10)
+      Money.new(10_00, "EUR").as_brl.should == Money.new(100_00, "BRL")
+    end
+
+    it "should calculate compound tax" do
+      m = Money.new(1000_00)
+      m.compound_interest(12.99,12).to_s.should eql("137.91")
+    end
+
+    it "should simple interest" do
+      m = Money.new(1000_00)
+      m.simple_interest(12.99,12).to_s.should eql("129.90")
+    end
+
+    it "should calculate compound interest" do
+      m = Money.new(2500_00)
+      m.compound_interest(12.99,3).to_s.should eql("82.06")
+    end
+
+    it "should calculate compound interest" do
+      m = Money.new(2500_00)
+      m.compound_interest(12.99,3,6).to_s.should eql("165.91")
+    end
+
+  end
+
+  describe "Format out " do
+
+    describe "Options" do
+      before(:each) do
+        @cash =  Money.new(2_00, "JPY")
+      end
+
+      it { @cash.format.should eql("¥2.00") }
+      it { @cash.format(:symbol => "R$ ").should eql("R$ 2.00") }
+      it { @cash.format(:no_cents => true).should eql("¥2") }
+      it { @cash.format(:no_cents => true, :symbol => "R$ ").should eql("R$ 2") }
+      it { @cash.format(:html => true).should eql("¥2.00") }
+
+    end
+
+    it { Money.new(0).format.should eql("$0.00") }
+    it { Money.new(0).format(:display_free => true).should eql("free") }
+    it { Money.new(0).format(:display_free => "GRATIS").should eql("GRATIS") }
+
+    it { Money.new(9).format.should eql("$0.09") }
+    it { Money.new(99).format.should eql("$0.99") }
+    it { Money.new(800).format.should eql("$8.00") }
+    it { Money.new(-8000).format(:no_cents => true).should eql("$-80") }
+    it { Money.new(80000).format.should eql("$800.00") }
+    it { Money.new(800000).format.should eql("$8,000.00") }
+    it { Money.new(-8000000, "JPY").format(:no_cents => true).should eql("¥-80.000") }
+    it { Money.new(87654321, "BRL").format.should eql("R$876.543,21") }
+    it { Money.new(800000000, "BRL").format.should eql("R$8.000.000,00") }
+    it { Money.new(8000000000, "BRL").format.should eql("R$80.000.000,00") }
+    it { Money.new(80000000000, "CAD").format.should eql("$800,000,000.00") }
+    it { Money.new(880000000000, "GBP").format(:no_cents => true).should eql("£8,800,000,000") }
+    it { Money.new(8800000000088, "EUR").format.should eql("€88,000,000,000.88") }
+
+  end
+
+
+  describe "Actions involving two Money objects" do
+    describe "if the other Money object has the same currency" do
+      it "#<=> compares the two objects' amounts" do
+        (Money.new(1_00, "USD") <=> Money.new(1_00, "USD")).should == 0
+        (Money.new(1_00, "USD") <=> Money.new(99, "USD")).should > 0
+        (Money.new(1_00, "USD") <=> Money.new(2_00, "USD")).should < 0
+      end
+
+      it "#+ adds the other object's amount to the current object's amount while retaining the currency" do
+        (Money.new(10_00, "USD") + Money.new(90, "USD")).should == Money.new(10_90, "USD")
+      end
+
+      it "#- substracts the other object's amount from the current object's amount while retaining the currency" do
+        (Money.new(10_00, "USD") - Money.new(90, "USD")).should == Money.new(9_10, "USD")
+      end
+    end
+
+    describe "if the other Money object has a different currency" do
+      it "#<=> compares the two objects' amount after converting the other object's amount to its own currency" do
+        target = Money.new(200_00, "EUR")
+        target.should_receive(:exchange_to).with("USD").and_return(Money.new(300_00, "USD"))
+        (Money.new(100_00, "USD") <=> target).should < 0
+
+        target = Money.new(200_00, "EUR")
+        target.should_receive(:exchange_to).with("USD").and_return(Money.new(100_00, "USD"))
+        (Money.new(100_00, "USD") <=> target).should == 0
+
+        target = Money.new(200_00, "EUR")
+        target.should_receive(:exchange_to).with("USD").and_return(Money.new(99_00, "USD"))
+        (Money.new(100_00, "USD") <=> target).should > 0
+      end
+
+      it "#+ adds the other object's amount, converted to this object's currency, to this object's amount while retaining its currency" do
+        other = Money.new(90, "EUR")
+        other.should_receive(:exchange_to).with("USD").and_return(Money.new(9_00, "USD"))
+        (Money.new(10_00, "USD") + other).should == Money.new(19_00, "USD")
+      end
+
+      it "#- substracts the other object's amount, converted to this object's currency, from this object's amount while retaining its currency" do
+        other = Money.new(90, "EUR")
+        other.should_receive(:exchange_to).with("USD").and_return(Money.new(9_00, "USD"))
+        (Money.new(10_00, "USD") - other).should == Money.new(1_00, "USD")
+      end
+    end
+  end
+
+  describe "Comparisons involving Numeric objects" do
+    it "#<=> compares integer amounts" do
+      (Money.new(1_00) <=> 1).should == 0
+      (Money.new(1_00) <=> 2).should == -1
+      (Money.new(1_00) <=> -1).should == 1
+      (Money.new(10_01) <=> 10).should == 1
+    end
+
+    it "#<=> compares float amounts" do
+      (Money.new(1_00) <=> 1.0).should == 0
+      (Money.new(1_00) <=> 2.0).should == -1
+      (Money.new(1_00) <=> 0.5).should == 1
+      (Money.new(10_01) <=> 10.0).should == 1 
+    end
+  end
+end