currency 0.3.3 → 0.4.0

data/test/macro_test.rb

@@ -0,0 +1,109 @@
+# Copyright (C) 2006-2007 Kurt Stephens <ruby-currency(at)umleta.com>
+# See LICENSE.txt for details.
+
+require 'test/test_base'
+require 'currency'
+require 'currency/macro'
+
+module Currency
+
+class MacroTest < TestBase
+  class Record
+    include ::Currency::Macro
+
+    attr_accessor :date
+    attr_accessor :gross
+    attr_accessor :tax
+    attr_accessor :net
+    attr_accessor :currency
+
+    attr_money :gross_money, :value => :gross, :time => :date, :currency => :currency
+    attr_money :tax_money,   :value => :tax,   :time => :date, :currency => :currency
+    attr_money :net_money,   :value => :net,   :time => :date, :currency => :currency
+
+    def initialize
+      self.date = Time.now
+      self.currency = :USD
+    end
+
+    def compute_net
+      self.net = self.gross - self.tax
+    end
+
+    def compute_net_money
+      self.net_money = self.gross_money - self.tax_money
+    end
+
+  end
+
+  def setup
+    super
+  end
+
+  ############################################
+  # Tests
+  #
+
+  def test_read_money
+    assert_kind_of  Record, r = Record.new
+    assert_not_nil  r.gross = 10.00
+    assert_equal    r.gross_money.to_f, r.gross
+    assert_equal    r.gross_money.currency.code, r.currency
+    assert_equal    r.gross_money.time, r.date
+
+    r
+  end
+
+
+  def test_write_money_rep
+    assert_kind_of  Record, r = Record.new
+    assert_not_nil  r.gross_money = 10.00
+    assert_equal    r.gross_money.to_f, r.gross
+    assert_equal    r.gross_money.currency.code, r.currency
+    assert_equal    r.gross_money.time, r.date
+
+    r
+  end
+
+
+  def test_money_cache
+    r = test_read_money
+
+    assert_not_nil  r_gross = r.gross
+    assert          r_gross.object_id == r.gross.object_id
+
+    # Cache flush
+    assert_not_nil r.gross = 12.00
+    assert_equal   r.gross_money.to_f, r.gross
+    assert         r_gross.object_id != r.gross.object_id
+  end
+
+
+  def test_currency
+    r = test_read_money
+
+    assert_not_nil  r.gross_money.currency
+    assert_equal    r.gross_money.currency.code, r.currency
+    
+  end
+
+
+  def test_compute
+    assert_kind_of  Record, r = Record.new
+    assert_not_nil  r.gross = 10.00
+    assert_not_nil  r.tax = 1.50
+    r.compute_net
+
+    assert_equal    8.50, r.net
+    assert_equal    r.net, r.net_money.to_f
+
+    r.compute_net_money
+
+    assert_equal    8.50, r.net
+    assert_equal    r.net, r.net_money.to_f
+  end
+
+end # class
+
+end # module
+

data/test/money_test.rb

@@ -1,5 +1,4 @@
 
-#require File.dirname(__FILE__) + '/../test_helper'
 
 require 'test/test_base'
 require 'currency'
@@ -35,6 +34,10 @@ class MoneyTest < TestBase
     assert_kind_of Money, m = "13.98".money(:CAD)
     assert_equal m.currency.code, :CAD
     assert_equal m.rep, 1398
+
+    assert_kind_of Money, m = "45.99".money(:EUR)
+    assert_equal m.currency.code, :EUR
+    assert_equal m.rep, 4599
   end
 
   def test_zero
@@ -167,10 +170,10 @@ class MoneyTest < TestBase
     assert_not_nil cad = Money.new(123.45, :CAD)
 
     # - Money => Money
-    assert_equal -12345, (- usd).rep
+    assert_equal(-12345, (- usd).rep)
     assert_equal :USD, (- usd).currency.code
 
-    assert_equal -12345, (- cad).rep
+    assert_equal(-12345, (- cad).rep)
     assert_equal :CAD, (- cad).currency.code
 
     # Money + Money => Money
@@ -214,9 +217,29 @@ class MoneyTest < TestBase
     assert_equal_float 3.0, m
     
     assert_kind_of Numeric, m = (usd / cad)
-    assert_equal_float Exchange::Test.USD_CAD, m, 0.0001
+    assert_equal_float Exchange::Rate::Source::Test.USD_CAD, m, 0.0001
+  end
+
+
+  def test_pivot_conversions
+    # Using default get_rate
+    assert_not_nil cad = Money.new(123.45, :CAD)
+    assert_not_nil eur = cad.convert(:EUR)
+    assert_kind_of Numeric, m = (eur.to_f / cad.to_f)
+    m_expected = (1.0 / Exchange::Rate::Source::Test.USD_CAD) * Exchange::Rate::Source::Test.USD_EUR
+    # $stderr.puts "m = #{m}, expected = #{m_expected}"
+    assert_equal_float m_expected, m, 0.001
+
+
+    assert_not_nil gbp = Money.new(123.45, :GBP)
+    assert_not_nil eur = gbp.convert(:EUR)
+    assert_kind_of Numeric, m = (eur.to_f / gbp.to_f)
+    m_expected = (1.0 / Exchange::Rate::Source::Test.USD_GBP) * Exchange::Rate::Source::Test.USD_EUR
+    # $stderr.puts "m = #{m}, expected = #{m_expected}"
+    assert_equal_float m_expected, m, 0.001
   end
 
+
   def test_invalid_currency_code
     assert_raise Exception::InvalidCurrencyCode do
       Money.new(123, :asdf)
@@ -225,6 +248,51 @@ class MoneyTest < TestBase
       Money.new(123, 5)
     end
   end
+
+
+  def test_time_default
+    Money.default_time = nil
+
+    assert_not_nil usd = Money.new(123.45, :USD)
+    assert_nil usd.time
+
+    Money.default_time = Time.now
+    assert_not_nil usd = Money.new(123.45, :USD)
+    assert_equal usd.time, Money.default_time
+  end
+
+
+  def test_time_now
+    # Test
+    Money.default_time = :now
+
+    assert_not_nil usd = Money.new(123.45, :USD)
+    assert_not_nil usd.time
+
+    sleep 1
+
+    assert_not_nil usd2 = Money.new(123.45, :USD)
+    assert_not_nil usd2.time
+    assert usd.time != usd2.time
+
+    Money.default_time = nil
+  end
+
+
+  def test_time_fixed
+    # Test for fixed time.
+    Money.default_time = Time.new
+
+    assert_not_nil usd = Money.new(123.45, :USD)
+    assert_not_nil usd.time
+
+    sleep 1
+
+    assert_not_nil usd2 = Money.new(123.45, :USD)
+    assert_not_nil usd2.time
+    assert usd.time == usd2.time
+  end
+
 end
 
 end # module

data/test/new_york_fed_test.rb

@@ -0,0 +1,57 @@
+# Copyright (C) 2006-2007 Kurt Stephens <ruby-currency(at)umleta.com>
+# See LICENSE.txt for details.
+
+require 'test/test_base'
+
+require 'currency' # For :type => :money
+require 'currency/exchange/rate/source/new_york_fed'
+
+module Currency
+
+class NewYorkFedTest < TestBase
+  def setup
+    super
+  end
+
+
+  def get_rate_source
+    # Force XE Exchange.
+    verbose = false
+    source = Exchange::Rate::Source::NewYorkFed.new(:verbose => verbose)
+    deriver = Exchange::Rate::Deriver.new(:source => source, :verbose => source.verbose)
+  end
+
+
+
+  def test_usd_cad
+    assert_not_nil rates = Exchange::Rate::Source.default.source.raw_rates
+    assert_not_nil rates[:USD]
+    assert_not_nil usd_cad = rates[:USD][:CAD]
+
+    assert_not_nil usd = Money.new(123.45, :USD)
+    assert_not_nil cad = usd.convert(:CAD)
+
+    assert_kind_of Numeric, m = (cad.to_f / usd.to_f)
+    # $stderr.puts "m = #{m}"
+    assert_equal_float usd_cad, m, 0.001
+  end
+
+
+  def test_cad_eur
+    assert_not_nil rates = Exchange::Rate::Source.default.source.raw_rates
+    assert_not_nil rates[:USD]
+    assert_not_nil usd_cad = rates[:USD][:CAD]
+    assert_not_nil usd_eur = rates[:USD][:EUR]
+
+    assert_not_nil cad = Money.new(123.45, :CAD)
+    assert_not_nil eur = cad.convert(:EUR)
+
+    assert_kind_of Numeric, m = (eur.to_f / cad.to_f)
+    # $stderr.puts "m = #{m}"
+    assert_equal_float (1.0 / usd_cad) * usd_eur, m, 0.001
+  end
+
+end
+
+end # module
+

data/test/parser_test.rb

@@ -0,0 +1,60 @@
+# Copyright (C) 2006-2007 Kurt Stephens <ruby-currency(at)umleta.com>
+# See LICENSE.txt for details.
+
+require 'test/test_base'
+require 'currency'
+
+module Currency
+
+class ParserTest < TestBase
+  def setup
+    super
+    @parser = ::Currency::Currency.USD.parser_or_default
+  end
+
+  ############################################
+  # Simple stuff.
+  #
+
+  def test_default
+    
+  end
+
+
+  def test_thousands
+    assert_equal 123456789, @parser.parse("1234567.89").rep
+    assert_equal 123456789, @parser.parse("1,234,567.89").rep
+  end
+
+
+  def test_cents
+    assert_equal  123456789, @parser.parse("1234567.89").rep
+    assert_equal  123456700, @parser.parse("1234567").rep
+    assert_equal  123456700, @parser.parse("1234567.").rep
+    assert_equal  123456780, @parser.parse("1234567.8").rep
+    assert_equal  123456789, @parser.parse("1234567.891").rep
+    assert_equal -123456700, @parser.parse("-1234567").rep
+    assert_equal  123456700, @parser.parse("+1234567").rep
+  end
+
+
+  def test_misc
+    assert_not_nil m = "123.45 USD".money + "100 CAD"
+    assert ! (m.rep == 200.45)
+  end
+
+
+  def test_round_trip
+    ::Currency::Currency.default = :USD
+    assert_not_nil m = ::Currency::Money("1234567.89", :CAD)
+    assert_not_nil m2 = ::Currency::Money(m.inspect)
+    assert_equal m.rep, m2.rep
+    assert_equal m.currency, m2.currency
+    assert_nil   m2.time
+    assert_equal m.inspect, m2.inspect
+  end
+
+end
+
+end # module
+

data/test/test_base.rb

@@ -1,16 +1,25 @@
+# Copyright (C) 2006-2007 Kurt Stephens <ruby-currency(at)umleta.com>
+# See LICENSE.txt for details.
+
 # Base Test class
 
 require 'test/unit'
 require 'currency'
-require 'currency/exchange/test'
+require 'currency/exchange/rate/source/test'
 
 module Currency
 
 class TestBase < Test::Unit::TestCase
   def setup
     super
-    # Force Test Exchange.
-    Exchange.default = Exchange::Test.instance
+    @rate_source ||= get_rate_source
+    Exchange::Rate::Source.default = @rate_source
+  end
+
+
+  def get_rate_source
+    source = Exchange::Rate::Source::Test.instance
+    deriver = Exchange::Rate::Deriver.new(:source => source)
   end
 
   # Avoid "No test were specified" error.
@@ -18,6 +27,7 @@ class TestBase < Test::Unit::TestCase
     assert true
   end
 
+
   # Helpers.
   def assert_equal_float(x, y, eps = 1.0e-8)
     d = (x * eps).abs

data/test/time_quantitizer_test.rb

@@ -0,0 +1,136 @@
+# Copyright (C) 2006-2007 Kurt Stephens <ruby-currency(at)umleta.com>
+# See LICENSE.txt for details.
+
+#require File.dirname(__FILE__) + '/../test_helper'
+
+require 'test/test_base'
+require 'currency/exchange/time_quantitizer'
+
+module Currency
+module Exchange
+
+class TimeQuantitizerTest < TestBase
+  def setup
+    super
+  end
+
+  ############################################
+  # 
+  #
+
+  def test_create
+    assert_kind_of TimeQuantitizer, tq = TimeQuantitizer.new()
+    assert_equal 60 * 60 * 24, tq.time_quant_size
+    assert_nil tq.quantitize_time(nil)
+
+    tq
+  end
+
+
+  def test_localtime
+    t1 = assert_test_day(t0 = Time.new)
+    assert_equal t0.utc_offset, t1.utc_offset
+    assert_equal Time.now.utc_offset, t1.utc_offset
+  end
+
+
+  def test_utc
+    t1 = assert_test_day(t0 = Time.new.utc)
+    assert_equal t0.utc_offset, t1.utc_offset
+  end
+
+
+  def test_random
+    (1 .. 1000).each do
+      t0 = Time.at(rand(1234567901).to_i)
+      assert_test_day(t0)
+      assert_test_hour(t0)
+      # Problem year?
+      t0 = Time.parse('1977/01/01') + rand(60 * 60 * 24 * 7 * 52).to_i
+      assert_test_day(t0)
+      assert_test_hour(t0)
+      # Problem year?
+      t0 = Time.parse('1995/01/01') + rand(60 * 60 * 24 * 7 * 52).to_i
+      assert_test_day(t0)
+      assert_test_hour(t0)     
+    end
+
+   
+  end
+
+
+  def assert_test_day(t0)
+    tq = test_create
+
+    begin
+      assert_not_nil t1 = tq.quantitize_time(t0)
+      #$stderr.puts "t0 = #{t0}"
+      #$stderr.puts "t1 = #{t1}"
+      
+      assert_equal t0.year, t1.year
+      assert_equal t0.month, t1.month
+      assert_equal t0.day, t1.day
+      assert_time_beginning_of_day(t1)
+    rescue Object => err
+      raise("#{err}\nDuring quantitize_time(#{t0} (#{t0.to_i}))")
+    end
+
+    t1
+  end
+
+
+  def assert_test_hour(t0)
+    tq = TimeQuantitizer.new(:time_quant_size => 60 * 60) # 1 hour
+
+    assert_not_nil t1 = tq.quantitize_time(t0)
+    #$stderr.puts "t0 = #{t0}"
+    #$stderr.puts "t1 = #{t1}"
+
+    assert_equal t0.year, t1.year
+    assert_equal t0.month, t1.month
+    assert_equal t0.day, t1.day
+    assert_time_beginning_of_hour(t1)
+
+    t1
+  end
+
+
+  def assert_test_minute(t0)
+    tq = TimeQuantitizer.new(:time_quant_size => 60) # 1 minute
+
+    tq.local_timezone_offset
+
+    assert_not_nil t1 = tq.quantitize_time(t0)
+    $stderr.puts "t0 = #{t0}"
+    $stderr.puts "t1 = #{t1}"
+
+    assert_equal t0.year, t1.year
+    assert_equal t0.month, t1.month
+    assert_equal t0.day, t1.day
+    assert_time_beginning_of_day(t1)
+
+    t1
+  end
+
+
+  def assert_time_beginning_of_day(t1)
+    assert_equal 0, t1.hour
+    assert_time_beginning_of_hour(t1)
+  end
+
+
+  def assert_time_beginning_of_hour(t1)
+    assert_equal 0, t1.min
+    assert_time_beginning_of_min(t1)
+  end
+
+
+  def assert_time_beginning_of_min(t1)
+    assert_equal 0, t1.sec
+  end
+
+end # class
+end # module
+end # module
+
+