acvwilson-acvwilson-currency 0.5.0

data/spec/ar_base_spec.rb

@@ -0,0 +1,140 @@
+# Copyright (C) 2006-2007 Kurt Stephens <ruby-currency(at)umleta.com>
+# See LICENSE.txt for details.
+
+require 'test/test_base'
+require 'currency'
+
+require 'rubygems'
+require 'active_record'
+require 'active_record/migration'
+require 'currency/active_record'
+
+AR_M = ActiveRecord::Migration
+AR_B = ActiveRecord::Base
+
+module Currency
+
+class ArTestBase < TestBase
+
+  ##################################################
+
+  before do
+    super
+    AR_B.establish_connection(database_spec)
+
+    # Subclasses can override this.
+    @currency_test_migration ||= nil
+    @currency_test ||= nil
+
+    # schema_down
+
+    schema_up
+  end
+
+
+  def teardown
+    super
+    # schema_down
+  end
+
+
+  def database_spec
+    # TODO: Get from ../config/database.yml:test
+    # Create test database on:
+
+    # MYSQL:
+    #
+    # sudo mysqladmin create test;
+    # sudo mysql
+    # grant all on test.* to test@localhost identified by 'test';
+    # flush privileges;
+
+    # POSTGRES:
+    #
+    # CREATE USER test PASSWORD 'test';
+    # CREATE DATABASE test WITH OWNER = test;
+    #
+
+    @database_spec = {
+      :adapter  => ENV['TEST_DB_ADAPTER'] || 'mysql',
+      :host     => ENV['TEST_DB_HOST']    || 'localhost',
+      :username => ENV['TEST_DB_USER']    || 'test',
+      :password => ENV['TEST_DB_PASS']    || 'test',
+      :database => ENV['TEST_DB_TEST']    || 'test'
+    }
+  end
+
+
+  def schema_up
+    return unless @currency_test_migration
+    begin
+      @currency_test_migration.migrate(:up)
+    rescue Object =>e
+      $stderr.puts "Warning: #{e}"
+    end
+  end
+
+
+  def schema_down
+    return unless @currency_test_migration
+    begin
+      @currency_test_migration.migrate(:down)
+    rescue Object => e
+      $stderr.puts "Warning: #{e}"
+    end
+  end
+
+
+  ##################################################
+  # Scaffold
+  # 
+
+  def insert_records
+    delete_records
+
+    @currency_test.reset_column_information
+
+    @usd = @currency_test.new(:name => '#1: USD', :amount => Money.new("12.34", :USD))
+    @usd.save
+
+    @cad = @currency_test.new(:name => '#2: CAD', :amount => Money.new("56.78", :CAD))
+    @cad.save
+  end
+
+
+  def delete_records
+    @currency_test.destroy_all
+  end
+
+
+  ##################################################
+
+
+  def assert_equal_money(a,b)
+    a.should_not be_nil
+    b.should_not be_nil
+    # Make sure a and b are not the same object.
+    b.object_id.should_not == a.object_id
+    b.id.should == a.id
+    a.amount.should.not == nil
+    a.amount.should be_kind_of(Money) 
+    b.amount.should.not == nil
+    b.amount.should be_kind_of(Money) 
+    # Make sure that what gets stored in the database comes back out
+    # when converted back to the original currency.
+    b.amount.rep.should == a.amount.convert(b.amount.currency).rep
+  end
+
+
+  def assert_equal_currency(a,b)
+    assert_equal_money a, b
+
+    b.amount.rep.should == a.amount.rep
+    b.amount.currency.should == a.amount.currency
+    b.amount.currency.code.should == a.amount.currency.code
+
+  end
+end
+
+end # module
+

data/spec/ar_column_spec.rb

@@ -0,0 +1,69 @@
+# Copyright (C) 2006-2007 Kurt Stephens <ruby-currency(at)umleta.com>
+# See LICENSE.txt for details.
+
+require 'test/ar_test_core'
+require 'currency'
+
+require 'rubygems'
+require 'active_record'
+require 'active_record/migration'
+require 'currency/active_record'
+
+module Currency
+
+class ArFieldTest < ArTestCore
+
+  ##################################################
+  # Basic CurrenyTest AR::B class
+  #
+
+  TABLE_NAME = 'currency_column_test'
+
+  class CurrencyColumnTestMigration < AR_M
+    def self.up
+      create_table TABLE_NAME.intern do |t|
+        t.column :name,     :string
+        t.column :amount,   :integer # Money
+        t.column :amount_currency,   :string, :size => 3 # Money.currency.code
+      end
+    end
+
+    def self.down
+      drop_table TABLE_NAME.intern
+    end
+  end
+
+  class CurrencyColumnTest < AR_B
+    set_table_name TABLE_NAME
+    attr_money :amount, :currency_column => true
+  end 
+
+  ##################################################
+
+  before do
+    @currency_test_migration ||= CurrencyColumnTestMigration 
+    @currency_test ||= CurrencyColumnTest
+    super
+  end
+
+  def teardown
+    super
+  end
+
+  ##################################################
+
+
+  it "field" do
+    insert_records
+
+    usd = @currency_test.find(@usd.id).should.not == nil
+    assert_equal_currency usd, @usd
+
+    cad = @currency_test.find(@cad.id).should.not == nil
+    assert_equal_currency cad, @cad
+  end
+
+end
+
+end # module
+

data/spec/ar_core_spec.rb

@@ -0,0 +1,64 @@
+# Copyright (C) 2006-2007 Kurt Stephens <ruby-currency(at)umleta.com>
+# See LICENSE.txt for details.
+
+require 'test/ar_test_base'
+
+module Currency
+
+class ArTestCore < ArTestBase
+
+  ##################################################
+  # Basic CurrenyTest AR::B class
+  #
+
+  TABLE_NAME = 'currency_test'
+
+  class CurrencyTestMigration < AR_M
+    def self.up
+      create_table TABLE_NAME.intern do |t|
+        t.column :name,     :string
+        t.column :amount,   :integer # Money
+      end
+    end
+
+    def self.down
+      drop_table TABLE_NAME.intern
+    end
+  end
+
+
+  class CurrencyTest < AR_B
+    set_table_name TABLE_NAME
+    attr_money :amount
+  end 
+
+
+  ##################################################
+
+
+  before do
+    @currency_test_migration ||= CurrencyTestMigration 
+    @currency_test           ||= CurrencyTest
+    super
+  end
+
+
+  def teardown
+    super
+    # schema_down
+  end
+
+
+  ##################################################
+  # 
+  # 
+  
+
+  it "insert" do
+    insert_records
+  end
+
+end
+
+end # module
+

data/spec/ar_simple_spec.rb

@@ -0,0 +1,31 @@
+# Copyright (C) 2006-2007 Kurt Stephens <ruby-currency(at)umleta.com>
+# See LICENSE.txt for details.
+
+require 'test/ar_test_core'
+require 'currency'
+
+require 'rubygems'
+require 'active_record'
+require 'active_record/migration'
+require 'currency/active_record'
+
+module Currency
+
+class ArSimpleTest < ArTestCore
+
+  it "simple" do
+    insert_records
+
+    usd = @currency_test.find(@usd.id).should.not == nil
+    assert_equal_currency usd, @usd
+
+    cad = @currency_test.find(@cad.id).should.not == nil
+    assert_equal_money cad, @cad
+
+    :USD.should == cad.amount.currency.code
+  end
+
+end
+
+end # module
+

data/spec/config_spec.rb

@@ -0,0 +1,29 @@
+require File.dirname(__FILE__) + '/spec_helper'
+
+describe Currency::Config do
+
+  it "should truncate" do
+    Currency::Config.configure do | c |
+      c.float_ref_filter = Proc.new { | x | x }
+    
+      m = Currency::Money.new(1.999999999)
+      m.should be_kind_of(Currency::Money) 
+      m.rep.should == 1999999
+    end
+  end
+  
+  it "should round" do
+    Currency::Config.configure do | c |
+      c.float_ref_filter = Proc.new { | x | x.round }
+
+      m = Currency::Money.new(1.99999999)
+      m.should be_kind_of(Currency::Money)
+      m.rep.should == 2000000
+    end
+
+  end
+
+end # class
+
+
+

data/spec/federal_reserve_spec.rb

@@ -0,0 +1,75 @@
+# 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/federal_reserve'
+
+module Currency
+
+class FederalReserveTest < TestBase
+  before do
+    super
+  end
+
+
+  @@available = nil
+
+  # New York Fed rates are not available on Saturday and Sunday.
+  def available?
+    if @@available == nil
+      @@available = @source.available?
+      STDERR.puts "Warning: FederalReserve unavailable on Saturday and Sunday, skipping tests." unless @@available
+    end
+    @@available
+  end
+
+
+  def get_rate_source
+    # Force FederalReserve Exchange.
+    verbose = false
+    source = @source = Exchange::Rate::Source::FederalReserve.new(:verbose => verbose)
+    deriver = Exchange::Rate::Deriver.new(:source => source, :verbose => source.verbose)
+  end
+
+
+
+  it "usd cad" do
+    return unless available?
+
+    # yesterday = Time.now.to_date - 1
+
+    rates = Exchange::Rate::Source.default.source.raw_rates.should.not == nil
+    #assert_not_nil rates[:USD]
+    #assert_not_nil usd_cad = rates[:USD][:CAD]
+
+    usd = Money.new(123.45, :USD).should.not == nil
+    cad = usd.convert(:CAD).should.not == nil
+
+    # assert_kind_of Numeric, m = (cad.to_f / usd.to_f)
+    # $stderr.puts "m = #{m}"
+    # assert_equal_float usd_cad, m, 0.001
+  end
+
+
+  it "cad eur" do
+    return unless available?
+
+    rates = Exchange::Rate::Source.default.source.raw_rates.should.not == nil
+    #assert_not_nil rates[:USD]
+    #assert_not_nil usd_cad = rates[:USD][:CAD]
+    #assert_not_nil usd_eur = rates[:USD][:EUR]
+
+    cad = Money.new(123.45, :CAD).should.not == nil
+    eur = cad.convert(:EUR).should.not == nil
+
+    #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/spec/formatter_spec.rb

@@ -0,0 +1,72 @@
+require File.dirname(__FILE__) + '/spec_helper'
+
+describe Currency::Formatter do
+  before(:each) do
+    @time = nil
+    @money = Currency::Money.new_rep(1234567890000, :USD, @time)
+    
+  end
+
+  it "can convert to string" do
+    @money.should be_kind_of(Currency::Money) 
+    @money.currency.should == Currency::Currency.default
+    @money.currency.code.should == :USD
+    @money.to_s.should == "$1,234,567.890000"
+    @money.time.should == @time
+  end
+
+
+  it "handles thousands options" do
+    @money.to_s(:thousands => false).should == "$1234567.890000"
+    @money.to_s(:thousands => true).should == "$1,234,567.890000"
+  end
+
+
+  it "handles cents options" do
+    @money.to_s(:cents => false).should == "$1,234,567"
+    @money.to_s(:cents => true).should == "$1,234,567.890000"
+  end
+
+
+  it "handles symbol options" do
+    @money.to_s(:symbol => false).should == "1,234,567.890000"
+    @money.to_s(:symbol => true).should == "$1,234,567.890000"
+  end
+
+
+  it "handles code options" do
+    @money.to_s(:code => false).should == "$1,234,567.890000"
+    @money.to_s(:code => true).should == "USD $1,234,567.890000"
+  end
+
+
+  it "handles html and more" do
+    m = ::Currency::Money(12.45, :USD)
+    money_string = m.to_s(:html => true, :code => true)
+    money_string.should == "<span class=\"currency_code\">USD</span> $12.450000"
+    
+
+    m = ::Currency::Money(12.45, :EUR)
+    money_string = m.to_s(:html => true, :code => true)
+    money_string.should == "<span class=\"currency_code\">EUR</span> &#8364;12.450000"
+
+    m = ::Currency::Money(12345.45, :EUR)
+    money_string = m.to_s(:html => true, :code => true, :thousands_separator => '_')
+    money_string.should == "<span class=\"currency_code\">EUR</span> &#8364;12_345.450000"
+  end
+
+
+  it "handles time options" do
+    time = Time.new
+    m = Currency::Money.new_rep(1234567890000, :USD, time)
+    m.to_s(:time => false).should == "$1,234,567.890000"
+    m.to_s(:time => true).should == "$1,234,567.890000 #{time.getutc.xmlschema(4)}"
+  end
+
+  it "handles decimal options" do
+    @money = Currency::Money.new_rep(1234567890000, :USD, @time)
+    @money.to_s(:decimals => 2).should == "$1,234,567.89"
+    @money.to_s(:decimals => 3).should == "$1,234,567.890"
+    @money.to_s(:decimals => 4).should == "$1,234,567.8900"
+  end
+end