money-joshm1 5.1.2

data/spec/money/parsing_spec.rb

@@ -0,0 +1,309 @@
+# encoding: utf-8
+
+require "spec_helper"
+
+describe Money, "parsing" do
+
+  bar = '{ "priority": 1, "iso_code": "BAR", "iso_numeric": "840", "name": "Dollar with 4 decimal places", "symbol": "$", "subunit": "Cent", "subunit_to_unit": 10000, "symbol_first": true, "html_entity": "$", "decimal_mark": ".", "thousands_separator": "," }'
+  eu4 = '{ "priority": 1, "iso_code": "EU4", "iso_numeric": "841", "name": "Euro with 4 decimal places", "symbol": "€", "subunit": "Cent", "subunit_to_unit": 10000, "symbol_first": true, "html_entity": "€", "decimal_mark": ",", "thousands_separator": "." }'
+
+  describe ".parse" do
+    it "parses european-formatted inputs under 10EUR" do
+      five_ninety_five = Money.new(595, 'EUR')
+
+      Money.parse('EUR 5,95').should    == five_ninety_five
+      #TODO: try and handle these
+      #Money.parse('€5,95').should       == five_ninety_five
+      #Money.parse('$5.95').should  == five_ninety_five
+    end
+
+    it "parses european-formatted inputs with multiple thousands-seperators" do
+      Money.parse('EUR 1.234.567,89').should     == Money.new(123456789, 'EUR')
+      Money.parse('EUR 1.111.234.567,89').should == Money.new(111123456789, 'EUR')
+    end
+
+    describe 'currency assumption' do
+      context 'opted in' do
+        before do
+          Money.assume_from_symbol = true
+        end
+        it "parses formatted inputs with the currency passed as a symbol" do 
+          with_default_currency("EUR") do
+            Money.parse("$5.95").should == Money.new(595, 'USD')
+          end
+          Money.parse("€5.95").should == Money.new(595, 'EUR')
+          Money.parse(" €5.95 ").should == Money.new(595, 'EUR')
+          Money.parse("£9.99").should == Money.new(999, 'GBP')
+        end
+        it 'should assume default currency if not a recognised symbol' do
+          Money.parse("L9.99").should == Money.new(999, 'USD')
+        end
+       end
+      context 'opted out' do
+        before do
+          Money.assume_from_symbol = false
+        end
+        it "parses formatted inputs with the currency passed as a symbol but ignores the symbol" do
+          Money.parse("$5.95").should == Money.new(595, 'USD')
+          Money.parse("€5.95").should == Money.new(595, 'USD')
+          Money.parse(" €5.95 ").should == Money.new(595, 'USD')
+          Money.parse("£9.99").should == Money.new(999, 'USD')
+
+        end
+      end
+      it 'should opt out by default' do
+        Money.assume_from_symbol.should be_false
+      end
+    end
+
+    it "parses USD-formatted inputs under $10" do
+      five_ninety_five = Money.new(595, 'USD')
+
+      Money.parse(5.95).should          == five_ninety_five
+      Money.parse('5.95').should        == five_ninety_five
+      Money.parse('$5.95').should       == five_ninety_five
+      Money.parse("\n $5.95 \n").should == five_ninety_five
+      Money.parse('$ 5.95').should      == five_ninety_five
+      Money.parse('$5.95 ea.').should   == five_ninety_five
+      Money.parse('$5.95, each').should == five_ninety_five
+    end
+
+    it "parses USD-formatted inputs with multiple thousands-seperators" do
+      Money.parse('1,234,567.89').should     == Money.new(123456789, 'USD')
+      Money.parse('1,111,234,567.89').should == Money.new(111123456789, 'USD')
+    end
+
+    it "does not return a price if there is a price range" do
+      expect { Money.parse('$5.95-10.95') }.to    raise_error ArgumentError
+      expect { Money.parse('$5.95 - 10.95') }.to  raise_error ArgumentError
+      expect { Money.parse('$5.95 - $10.95') }.to raise_error ArgumentError
+    end
+
+    it "does not return a price for completely invalid input" do
+      # TODO: shouldn't these throw an error instead of being considered
+      # equal to $0.0?
+      empty_price = Money.new(0, 'USD')
+
+      Money.parse(nil).should             == empty_price
+      Money.parse('hellothere').should    == empty_price
+      Money.parse('').should              == empty_price
+    end
+
+    it "handles negative inputs" do
+      five_ninety_five = Money.new(595, 'USD')
+
+      Money.parse("$-5.95").should == -five_ninety_five
+      Money.parse("-$5.95").should == -five_ninety_five
+      Money.parse("$5.95-").should == -five_ninety_five
+    end
+
+    it "raises ArgumentError when unable to detect polarity" do
+      expect { Money.parse('-$5.95-') }.to raise_error ArgumentError
+    end
+
+    it "parses correctly strings with exactly 3 decimal digits" do
+      Money.parse("6,534", "EUR").should == Money.new(653, "EUR")
+    end
+
+    context "custom currencies with 4 decimal places" do
+      before :each do
+        Money::Currency.register(JSON.parse(bar, :symbolize_names => true))
+        Money::Currency.register(JSON.parse(eu4, :symbolize_names => true))
+      end
+
+      # String#to_money(Currency) is equivalent to Money.parse(String, Currency)
+      it "parses strings respecting subunit to unit, decimal and thousands separator" do
+        "$0.4".to_money("BAR").should == Money.new(4000, "BAR")
+        "€0,4".to_money("EU4").should == Money.new(4000, "EU4")
+
+        "$0.04".to_money("BAR").should == Money.new(400, "BAR")
+        "€0,04".to_money("EU4").should == Money.new(400, "EU4")
+
+        "$0.004".to_money("BAR").should == Money.new(40, "BAR")
+        "€0,004".to_money("EU4").should == Money.new(40, "EU4")
+
+        "$0.0004".to_money("BAR").should == Money.new(4, "BAR")
+        "€0,0004".to_money("EU4").should == Money.new(4, "EU4")
+
+        "$0.0024".to_money("BAR").should == Money.new(24, "BAR")
+        "€0,0024".to_money("EU4").should == Money.new(24, "EU4")
+
+        "$0.0324".to_money("BAR").should == Money.new(324, "BAR")
+        "€0,0324".to_money("EU4").should == Money.new(324, "EU4")
+
+        "$0.5324".to_money("BAR").should == Money.new(5324, "BAR")
+        "€0,5324".to_money("EU4").should == Money.new(5324, "EU4")
+
+        "$6.5324".to_money("BAR").should == Money.new(65324, "BAR")
+        "€6,5324".to_money("EU4").should == Money.new(65324, "EU4")
+
+        "$86.5324".to_money("BAR").should == Money.new(865324, "BAR")
+        "€86,5324".to_money("EU4").should == Money.new(865324, "EU4")
+
+        "$186.5324".to_money("BAR").should == Money.new(1865324, "BAR")
+        "€186,5324".to_money("EU4").should == Money.new(1865324, "EU4")
+
+        "$3,331.0034".to_money("BAR").should == Money.new(33310034, "BAR")
+        "€3.331,0034".to_money("EU4").should == Money.new(33310034, "EU4")
+
+        "$8,883,331.0034".to_money("BAR").should == Money.new(88833310034, "BAR")
+        "€8.883.331,0034".to_money("EU4").should == Money.new(88833310034, "EU4")
+      end
+    end
+  end
+
+  describe ".from_string" do
+    it "converts given amount to cents" do
+      Money.from_string("1").should == Money.new(1_00)
+      Money.from_string("1").should == Money.new(1_00, "USD")
+      Money.from_string("1", "EUR").should == Money.new(1_00, "EUR")
+    end
+
+    it "respects :subunit_to_unit currency property" do
+      Money.from_string("1", "USD").should == Money.new(1_00,  "USD")
+      Money.from_string("1", "TND").should == Money.new(1_000, "TND")
+      Money.from_string("1", "CLP").should == Money.new(1,     "CLP")
+    end
+
+    it "accepts a currency options" do
+      m = Money.from_string("1")
+      m.currency.should == Money.default_currency
+
+      m = Money.from_string("1", Money::Currency.wrap("EUR"))
+      m.currency.should == Money::Currency.wrap("EUR")
+
+      m = Money.from_string("1", "EUR")
+      m.currency.should == Money::Currency.wrap("EUR")
+    end
+  end
+
+  describe ".from_fixnum" do
+    it "converts given amount to cents" do
+      Money.from_fixnum(1).should == Money.new(1_00)
+      Money.from_fixnum(1).should == Money.new(1_00, "USD")
+      Money.from_fixnum(1, "EUR").should == Money.new(1_00, "EUR")
+    end
+
+    it "should respect :subunit_to_unit currency property" do
+      Money.from_fixnum(1, "USD").should == Money.new(1_00,  "USD")
+      Money.from_fixnum(1, "TND").should == Money.new(1_000, "TND")
+      Money.from_fixnum(1, "CLP").should == Money.new(1,     "CLP")
+    end
+
+    it "accepts a currency options" do
+      m = Money.from_fixnum(1)
+      m.currency.should == Money.default_currency
+
+      m = Money.from_fixnum(1, Money::Currency.wrap("EUR"))
+      m.currency.should == Money::Currency.wrap("EUR")
+
+      m = Money.from_fixnum(1, "EUR")
+      m.currency.should == Money::Currency.wrap("EUR")
+    end
+  end
+
+  describe ".from_float" do
+    it "converts given amount to cents" do
+      Money.from_float(1.2).should == Money.new(1_20)
+      Money.from_float(1.2).should == Money.new(1_20, "USD")
+      Money.from_float(1.2, "EUR").should == Money.new(1_20, "EUR")
+    end
+
+    it "respects :subunit_to_unit currency property" do
+      Money.from_float(1.2, "USD").should == Money.new(1_20,  "USD")
+      Money.from_float(1.2, "TND").should == Money.new(1_200, "TND")
+      Money.from_float(1.2, "CLP").should == Money.new(1,     "CLP")
+    end
+
+    it "accepts a currency options" do
+      m = Money.from_float(1.2)
+      m.currency.should == Money.default_currency
+
+      m = Money.from_float(1.2, Money::Currency.wrap("EUR"))
+      m.currency.should == Money::Currency.wrap("EUR")
+
+      m = Money.from_float(1.2, "EUR")
+      m.currency.should == Money::Currency.wrap("EUR")
+    end
+  end
+
+  describe ".from_bigdecimal" do
+    it "converts given amount to cents" do
+      Money.from_bigdecimal(BigDecimal.new("1")).should == Money.new(1_00)
+      Money.from_bigdecimal(BigDecimal.new("1")).should == Money.new(1_00, "USD")
+      Money.from_bigdecimal(BigDecimal.new("1"), "EUR").should == Money.new(1_00, "EUR")
+    end
+
+    it "respects :subunit_to_unit currency property" do
+      Money.from_bigdecimal(BigDecimal.new("1"), "USD").should == Money.new(1_00,  "USD")
+      Money.from_bigdecimal(BigDecimal.new("1"), "TND").should == Money.new(1_000, "TND")
+      Money.from_bigdecimal(BigDecimal.new("1"), "CLP").should == Money.new(1,     "CLP")
+    end
+
+    it "accepts a currency options" do
+      m = Money.from_bigdecimal(BigDecimal.new("1"))
+      m.currency.should == Money.default_currency
+
+      m = Money.from_bigdecimal(BigDecimal.new("1"), Money::Currency.wrap("EUR"))
+      m.currency.should == Money::Currency.wrap("EUR")
+
+      m = Money.from_bigdecimal(BigDecimal.new("1"), "EUR")
+      m.currency.should == Money::Currency.wrap("EUR")
+    end
+  end
+
+  describe ".from_numeric" do
+    it "converts given amount to cents" do
+      Money.from_numeric(1).should == Money.new(1_00)
+      Money.from_numeric(1.0).should == Money.new(1_00)
+      Money.from_numeric(BigDecimal.new("1")).should == Money.new(1_00)
+    end
+
+    it "raises ArgumentError with unsupported argument" do
+      expect { Money.from_numeric("100") }.to raise_error(ArgumentError)
+    end
+
+    it "optimizes workload" do
+      Money.should_receive(:from_fixnum).with(1, "USD").and_return(Money.new(1_00,  "USD"))
+      Money.from_numeric(1, "USD").should == Money.new(1_00,  "USD")
+      Money.should_receive(:from_bigdecimal).with(BigDecimal.new("1.0"), "USD").and_return(Money.new(1_00,  "USD"))
+      Money.from_numeric(1.0, "USD").should == Money.new(1_00,  "USD")
+    end
+
+    it "respects :subunit_to_unit currency property" do
+      Money.from_numeric(1, "USD").should == Money.new(1_00,  "USD")
+      Money.from_numeric(1, "TND").should == Money.new(1_000, "TND")
+      Money.from_numeric(1, "CLP").should == Money.new(1,     "CLP")
+    end
+
+    it "accepts a bank option" do
+      Money.from_numeric(1).should == Money.new(1_00)
+      Money.from_numeric(1).should == Money.new(1_00, "USD")
+      Money.from_numeric(1, "EUR").should == Money.new(1_00, "EUR")
+    end
+
+    it "accepts a currency options" do
+      m = Money.from_numeric(1)
+      m.currency.should == Money.default_currency
+
+      m = Money.from_numeric(1, Money::Currency.wrap("EUR"))
+      m.currency.should == Money::Currency.wrap("EUR")
+
+      m = Money.from_numeric(1, "EUR")
+      m.currency.should == Money::Currency.wrap("EUR")
+    end
+  end
+
+  describe ".extract_cents" do
+    it "correctly treats pipe marks '|' in input (regression test)" do
+      Money.extract_cents('100|0').should == Money.extract_cents('100!0')
+    end
+  end
+
+  context "given the same inputs to .parse and .from_*" do
+    it "gives the same results" do
+      4.635.to_money.should == "4.635".to_money
+    end
+  end
+
+end

data/spec/money_spec.rb

@@ -0,0 +1,497 @@
+# encoding: utf-8
+
+require "spec_helper"
+
+describe Money do
+  describe ".new" do
+    it "rounds the given cents to an integer" do
+      Money.new(1.00, "USD").cents.should == 1
+      Money.new(1.01, "USD").cents.should == 1
+      Money.new(1.50, "USD").cents.should == 2
+    end
+
+    it "is associated to the singleton instance of Bank::VariableExchange by default" do
+      Money.new(0).bank.should be(Money::Bank::VariableExchange.instance)
+    end
+
+    it "handles Rationals" do
+      n = Rational(1)
+      Money.new(n).cents.should == 1
+    end
+
+    it "handles Floats" do
+      n = Float("1")
+      Money.new(n).cents.should == 1
+    end
+
+    context "infinite_precision = true" do
+      before do
+        Money.infinite_precision = true
+      end
+
+      after do
+        Money.infinite_precision = false
+      end
+
+      it "doesn't round cents" do
+        Money.new(1.01, "USD").cents.should == BigDecimal("1.01")
+        Money.new(1.50, "USD").cents.should == BigDecimal("1.50")
+      end
+    end
+  end
+
+  describe ".new_with_dollars" do
+    it "is synonym of #new_with_amount" do
+      MoneyExpectation = Class.new(Money)
+      def MoneyExpectation.new_with_amount *args
+        args
+      end
+      MoneyExpectation.new_with_dollars("expectation").should == ["expectation"]
+    end
+  end
+
+  describe ".new_with_amount" do
+    it "converts given amount to cents" do
+      Money.new_with_amount(1).should == Money.new(100)
+      Money.new_with_amount(1, "USD").should == Money.new(100, "USD")
+      Money.new_with_amount(1, "EUR").should == Money.new(100, "EUR")
+    end
+
+    it "respects :subunit_to_unit currency property" do
+      Money.new_with_amount(1, "USD").should == Money.new(1_00,  "USD")
+      Money.new_with_amount(1, "TND").should == Money.new(1_000, "TND")
+      Money.new_with_amount(1, "CLP").should == Money.new(1,     "CLP")
+    end
+
+    it "does not loose precision" do
+      Money.new_with_amount(1234).cents.should == 1234_00
+      Money.new_with_amount(100.37).cents.should == 100_37
+      Money.new_with_amount(BigDecimal.new('1234')).cents.should == 1234_00
+    end
+
+    it "accepts optional currency" do
+      m = Money.new_with_amount(1)
+      m.currency.should == Money.default_currency
+
+      m = Money.new_with_amount(1, Money::Currency.wrap("EUR"))
+      m.currency.should == Money::Currency.wrap("EUR")
+
+      m = Money.new_with_amount(1, "EUR")
+      m.currency.should == Money::Currency.wrap("EUR")
+    end
+
+    it "accepts optional bank" do
+      m = Money.new_with_amount(1)
+      m.bank.should == Money.default_bank
+
+      m = Money.new_with_amount(1, "EUR", bank = Object.new)
+      m.bank.should == bank
+    end
+
+    it "is associated to the singleton instance of Bank::VariableExchange by default" do
+      Money.new_with_amount(0).bank.should be(Money::Bank::VariableExchange.instance)
+    end
+  end
+
+  describe ".empty" do
+    it "creates a new Money object of 0 cents" do
+      Money.empty.should == Money.new(0)
+    end
+  end
+
+  describe ".ca_dollar" do
+    it "creates a new Money object of the given value in CAD" do
+      Money.ca_dollar(50).should == Money.new(50, "CAD")
+    end
+  end
+
+  describe ".us_dollar" do
+    it "creates a new Money object of the given value in USD" do
+      Money.us_dollar(50).should == Money.new(50, "USD")
+    end
+  end
+
+  describe ".euro" do
+    it "creates a new Money object of the given value in EUR" do
+      Money.euro(50).should == Money.new(50, "EUR")
+    end
+  end
+
+  describe ".add_rate" do
+    before do
+      @default_bank = Money.default_bank
+      Money.default_bank = Money::Bank::VariableExchange.new
+    end
+
+    after do
+      Money.default_bank = @default_bank
+    end
+
+    it "saves rate into current bank" do
+      Money.add_rate("EUR", "USD", 10)
+      Money.new(10_00, "EUR").exchange_to("USD").should == Money.new(100_00, "USD")
+    end
+  end
+
+  describe "#cents" do
+    it "is a synonym of #fractional" do
+      expectation = Money.new(0)
+      def expectation.fractional
+        "expectation"
+      end
+      expectation.cents.should == "expectation"
+    end
+  end
+
+  describe "#fractional" do
+    it "returns the amount in fractional unit" do
+      Money.new(1_00).fractional.should == 1_00
+      Money.new_with_amount(1).fractional.should == 1_00
+    end
+
+    it "stores fractional as an integer regardless of what is passed into the constructor" do
+      [ Money.new(100), 1.to_money, 1.00.to_money, BigDecimal('1.00').to_money ].each do |m|
+        m.fractional.should == 100
+        m.fractional.should be_a(Fixnum)
+      end
+    end
+    
+    context "loading a serialized Money via YAML" do
+      it "uses BigDecimal when rounding" do
+        serialized = <<YAML
+!ruby/object:Money
+  fractional: 249.5
+  currency: !ruby/object:Money::Currency
+    id: :eur
+    priority: 2
+    iso_code: EUR
+    name: Euro
+    symbol: €
+    alternate_symbols: []
+    subunit: Cent
+    subunit_to_unit: 100
+    symbol_first: true
+    html_entity: ! '&#x20AC;'
+    decimal_mark: ! ','
+    thousands_separator: .
+    iso_numeric: '978'
+    mutex: !ruby/object:Mutex {}
+    last_updated: 2012-11-23 20:41:47.454438399 +02:00
+YAML
+        m = YAML::load serialized
+        m.should be_a(Money)
+        m.class.infinite_precision.should == false
+        m.fractional.should == 250 # 249.5 rounded up
+        m.fractional.should be_a(Integer)
+      end
+    end
+
+    context "user changes rounding_mode" do
+      after do
+        Money.rounding_mode = BigDecimal::ROUND_HALF_EVEN
+      end
+
+      it "respects the rounding_mode" do
+        Money.rounding_mode = BigDecimal::ROUND_DOWN
+        Money.new(1.9).fractional.should == 1
+
+        Money.rounding_mode = BigDecimal::ROUND_UP
+        Money.new(1.1).fractional.should == 2
+      end
+    end
+
+    context "infinite_precision = true" do
+      before do
+        Money.infinite_precision = true
+      end
+
+      after do
+        Money.infinite_precision = false
+      end
+
+      it "returns the amount in fractional unit" do
+        Money.new(1_00).fractional.should == BigDecimal("100")
+        Money.new_with_amount(1).fractional.should == BigDecimal("100")
+      end
+
+      it "stores in fractional unit as an integer regardless of what is passed into the constructor" do
+        [ Money.new(100), 1.to_money, 1.00.to_money, BigDecimal('1.00').to_money ].each do |m|
+          m.fractional.should == BigDecimal("100")
+          m.fractional.should be_a(BigDecimal)
+        end
+      end
+    end
+  end
+
+  describe "#amount" do
+    it "returns the amount of cents as dollars" do
+      Money.new(1_00).amount.should == 1
+      Money.new_with_amount(1).amount.should == 1
+    end
+
+    it "respects :subunit_to_unit currency property" do
+      Money.new(1_00,  "USD").amount.should == 1
+      Money.new(1_000, "TND").amount.should == 1
+      Money.new(1,     "CLP").amount.should == 1
+    end
+
+    it "does not loose precision" do
+      Money.new(100_37).amount.should == 100.37
+      Money.new_with_amount(100.37).amount.should == 100.37
+    end
+  end
+
+  describe "#dollars" do
+    it "is synonym of #amount" do
+      m = Money.new(0)
+
+      # Make a small expectation
+      def m.amount
+        5
+      end
+      
+      m.dollars.should == 5
+    end
+  end
+
+  describe "#currency" do
+    it "returns the currency object" do
+      Money.new(1_00, "USD").currency.should == Money::Currency.new("USD")
+    end
+  end
+
+  describe "#currency_as_string" do
+    it "returns the iso_code of the currency object" do
+      Money.new(1_00, "USD").currency_as_string.should == "USD"
+      Money.new(1_00, "EUR").currency_as_string.should == "EUR"
+    end
+  end
+
+  describe "#currency_as_string=" do
+    it "sets the currency object using the provided string" do
+      money = Money.new(100_00, "USD")
+      money.currency_as_string = "EUR"
+      money.currency.should == Money::Currency.new("EUR")
+      money.currency_as_string = "YEN"
+      money.currency.should == Money::Currency.new("YEN")
+    end
+  end
+
+  describe "#hash=" do
+    it "returns the same value for equal objects" do
+      Money.new(1_00, "EUR").hash.should == Money.new(1_00, "EUR").hash
+      Money.new(2_00, "USD").hash.should == Money.new(2_00, "USD").hash
+      Money.new(1_00, "EUR").hash.should_not == Money.new(2_00, "EUR").hash
+      Money.new(1_00, "EUR").hash.should_not == Money.new(1_00, "USD").hash
+      Money.new(1_00, "EUR").hash.should_not == Money.new(2_00, "USD").hash
+    end
+
+    it "can be used to return the intersection of Money object arrays" do
+      intersection = [Money.new(1_00, "EUR"), Money.new(1_00, "USD")] & [Money.new(1_00, "EUR")]
+      intersection.should == [Money.new(1_00, "EUR")]
+    end
+  end
+
+  describe "#symbol" do
+    it "works as documented" do
+      currency = Money::Currency.new("EUR")
+      currency.should_receive(:symbol).and_return("€")
+      Money.empty(currency).symbol.should == "€"
+
+      currency = Money::Currency.new("EUR")
+      currency.should_receive(:symbol).and_return(nil)
+      Money.empty(currency).symbol.should == "¤"
+    end
+  end
+
+  describe "#to_s" do
+    it "works as documented" do
+      Money.new(10_00).to_s.should == "10.00"
+      Money.new(400_08).to_s.should == "400.08"
+      Money.new(-237_43).to_s.should == "-237.43"
+    end
+
+    it "respects :subunit_to_unit currency property" do
+      Money.new(10_00, "BHD").to_s.should == "1.000"
+      Money.new(10_00, "CNY").to_s.should == "10.00"
+    end
+
+    it "does not have decimal when :subunit_to_unit == 1" do
+      Money.new(10_00, "CLP").to_s.should == "1000"
+    end
+
+    it "does not work when :subunit_to_unit == 5" do
+      Money.new(10_00, "MGA").to_s.should == "200.0"
+    end
+
+    it "respects :decimal_mark" do
+      Money.new(10_00, "BRL").to_s.should == "10,00"
+    end
+
+    context "infinite_precision = true" do
+      before do
+        Money.infinite_precision = true
+      end
+
+      after do
+        Money.infinite_precision = false
+      end
+
+      it "shows fractional cents" do
+        Money.new(1.05, "USD").to_s.should == "0.0105"
+      end
+
+      it "suppresses fractional cents when there is none" do
+        Money.new(1.0, "USD").to_s.should == "0.01"
+      end
+    end
+  end
+
+  describe "#to_d" do
+    it "works as documented" do
+      decimal = Money.new(10_00).to_d
+      decimal.should be_a(BigDecimal)
+      decimal.should == 10.0
+    end
+
+    it "respects :subunit_to_unit currency property" do
+      decimal = Money.new(10_00, "BHD").to_d
+      decimal.should be_a(BigDecimal)
+      decimal.should == 1.0
+    end
+
+    it "works with float :subunit_to_unit currency property" do
+      money = Money.new(10_00, "BHD")
+      money.currency.stub(:subunit_to_unit).and_return(1000.0)
+
+      decimal = money.to_d
+      decimal.should be_a(BigDecimal)
+      decimal.should == 1.0
+    end
+  end
+
+  describe "#to_f" do
+    it "works as documented" do
+      Money.new(10_00).to_f.should == 10.0
+    end
+
+    it "respects :subunit_to_unit currency property" do
+      Money.new(10_00, "BHD").to_f.should == 1.0
+    end
+  end
+
+  describe "#to_money" do
+    it "works as documented" do
+      money = Money.new(10_00, "DKK")
+      money.should == money.to_money
+      money.should == money.to_money("DKK")
+      money.bank.should_receive(:exchange_with).with(Money.new(10_00, Money::Currency.new("DKK")), Money::Currency.new("EUR")).and_return(Money.new(200_00, Money::Currency.new('EUR')))
+      money.to_money("EUR").should == Money.new(200_00, "EUR")
+    end
+  end
+
+  describe "#exchange_to" do
+    it "exchanges the amount via its exchange bank" do
+      money = Money.new(100_00, "USD")
+      money.bank.should_receive(:exchange_with).with(Money.new(100_00, Money::Currency.new("USD")), Money::Currency.new("EUR")).and_return(Money.new(200_00, Money::Currency.new('EUR')))
+      money.exchange_to("EUR")
+    end
+
+    it "exchanges the amount properly" do
+      money = Money.new(100_00, "USD")
+      money.bank.should_receive(:exchange_with).with(Money.new(100_00, Money::Currency.new("USD")), Money::Currency.new("EUR")).and_return(Money.new(200_00, Money::Currency.new('EUR')))
+      money.exchange_to("EUR").should == Money.new(200_00, "EUR")
+    end
+  end
+
+  describe "#allocate" do
+    it "takes no action when one gets all" do
+      Money.us_dollar(005).allocate([1.0]).should == [Money.us_dollar(5)]
+    end
+
+    it "keeps currencies intact" do
+      Money.ca_dollar(005).allocate([1]).should == [Money.ca_dollar(5)]
+    end
+
+    it "does not loose pennies" do
+      moneys = Money.us_dollar(5).allocate([0.3, 0.7])
+      moneys[0].should == Money.us_dollar(2)
+      moneys[1].should == Money.us_dollar(3)
+    end
+
+    it "does not loose pennies" do
+      moneys = Money.us_dollar(100).allocate([0.333, 0.333, 0.333])
+      moneys[0].cents.should == 34
+      moneys[1].cents.should == 33
+      moneys[2].cents.should == 33
+    end
+
+    it "requires total to be less then 1" do
+      expect { Money.us_dollar(0.05).allocate([0.5, 0.6]) }.to raise_error(ArgumentError)
+    end
+
+    context "infinite_precision = true" do
+      before do
+        Money.infinite_precision = true
+      end
+
+      after do
+        Money.infinite_precision = false
+      end
+
+      it "allows for fractional cents allocation" do
+        one_third = BigDecimal("1") / BigDecimal("3")
+
+        moneys = Money.new(100).allocate([one_third, one_third, one_third])
+        moneys[0].cents.should == one_third * BigDecimal("100")
+        moneys[1].cents.should == one_third * BigDecimal("100")
+        moneys[2].cents.should == one_third * BigDecimal("100")
+      end
+    end
+  end
+
+  describe "#split" do
+    it "needs at least one party" do
+      expect { Money.us_dollar(1).split(0) }.to raise_error(ArgumentError)
+      expect { Money.us_dollar(1).split(-1) }.to raise_error(ArgumentError)
+    end
+
+    it "gives 1 cent to both people if we start with 2" do
+      Money.us_dollar(2).split(2).should == [Money.us_dollar(1), Money.us_dollar(1)]
+    end
+
+    it "may distribute no money to some parties if there isnt enough to go around" do
+      Money.us_dollar(2).split(3).should == [Money.us_dollar(1), Money.us_dollar(1), Money.us_dollar(0)]
+    end
+
+    it "does not lose pennies" do
+      Money.us_dollar(5).split(2).should == [Money.us_dollar(3), Money.us_dollar(2)]
+    end
+
+    it "splits a dollar" do
+      moneys = Money.us_dollar(100).split(3)
+      moneys[0].cents.should == 34
+      moneys[1].cents.should == 33
+      moneys[2].cents.should == 33
+    end
+
+    context "infinite_precision = true" do
+      before do
+        Money.infinite_precision = true
+      end
+
+      after do
+        Money.infinite_precision = false
+      end
+
+      it "allows for splitting by fractional cents" do
+        thirty_three_and_one_third = BigDecimal("100") / BigDecimal("3")
+
+        moneys = Money.new(100).split(3)
+        moneys[0].cents.should == thirty_three_and_one_third
+        moneys[1].cents.should == thirty_three_and_one_third
+        moneys[2].cents.should == thirty_three_and_one_third
+      end
+    end
+  end
+end