#!/usr/bin/perl -w
# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl test.pl'

######################### We start with some black magic to print on failure.

# Change 1..1 below to 1..last_test_to_print .
# (It may become useful if the test is moved to ./t subdirectory.)

use Test::More qw/no_plan/;
use Math::Currency qw(Money $LC_MONETARY $FORMAT);
use_ok( Math::Currency );

run_tests("Math::Currency");

package Math::Currency::empty;
use base qw/Math::Currency/;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK $PACKAGE $FORMAT $LC_MONETARY
  $accuracy $precision $div_scale $round_mode $use_int $always_init);

$VERSION = 0.001;
$PACKAGE = __PACKAGE__;

# Set class constants based on parent
$FORMAT = Math::Currency->format('USD');
$round_mode = Math::Currency->round_mode();
$accuracy   = Math::Currency->accuracy();
$precision = Math::Currency->precision();
$div_scale = Math::Currency->div_scale();
$use_int   = Math::Currency->use_int();
$always_init = Math::Currency->always_init();

package main;

run_tests("Math::Currency::empty");

sub run_tests {
    my $CLASS = shift;

# check that the minimal format defaults got set up

    ok ( defined $FORMAT, "format defaults configured" );

    foreach $param qw( INT_CURR_SYMBOL CURRENCY_SYMBOL MON_DECIMAL_POINT
		       MON_THOUSANDS_SEP MON_GROUPING POSITIVE_SIGN
		       NEGATIVE_SIGN INT_FRAC_DIGITS FRAC_DIGITS
		       P_CS_PRECEDES P_SEP_BY_SPACE N_CS_PRECEDES
		       N_SEP_BY_SPACE P_SIGN_POSN N_SIGN_POSN
		     ) # hardcoded keys to be sure they are all there
    {
	    ok ( defined $CLASS->format($param), sprintf(" \t%-20s = '%s'",$param,$CLASS->format($param)) );
    }

# For subsequent testing, we need to make sure that format is default US
    $CLASS->format('USD');

    ok ( $dollars = $CLASS->new('$18123'), "class new" );
    ok ( $dollars = $dollars->new('$18123'), "object new" );
    ok ( $newdollars = Money(0.10), "new via exported Money()");

    is ( $dollars *= 66.33, '$1,202,098.59', "multiply");
    is ( $dollars /= 100, '$12,020.99', "divide");

    ok ( $dollars > 3500, "greater than (numeric)" );
    ok ( $dollars < 13500, "less than (numeric)" );
    ok ( $dollars == 12020.99, "equal to (numeric)" );
    ok ( $dollars eq '$12,020.99', "equal to (string)" );

    $dollars = $CLASS->new(-42);
    is ( $dollars,'-$42.00', "display of negative currency" );

    $dollars = $CLASS->new('($42)');	# thanks pjones@pmade.org
    is ( $dollars,'-$42.00', "new negative currency" );

    $dollars = $CLASS->new('$4');		# thanks pjones@pmade.org
    is ( $dollars,'$4.00', "auto decimal places to FRAC_DIGITS" );


    $dollars = $CLASS->new(56);

    cmp_ok ( $dollars * 0.555, '==', 31.08, "multiply followed by auto-round" );

    $dollars = $CLASS->new(20.01);

    cmp_ok ( $dollars * 1.0, '==', 20.01, "identity multiply");

    $newdollars = $dollars * -1.0;

    cmp_ok ( $newdollars, '==', -20.01, "negative identity multiply" );

    cmp_ok ( $dollars + '$1.00', '==', 21.01, "Add currency string (inherited add)" );
    cmp_ok ( $dollars + '($1.00)', '==', 19.01, "Add currency string (parens negative)");

    is ( $dollars->format('INT_CURR_SYMBOL'), 'USD ', "default format returned" );
    ok ( $dollars->format('CURRENCY_SYMBOL',"WOW "), "set a custom format");
    is ( $dollars->format('INT_CURR_SYMBOL'), 'USD ', "default format copied" );
    is ( $dollars, 'WOW 20.01', "custom format maintained" );
    $dollars->format(''); # defined but false
    is ( $dollars, '$20.01', "default format restored" );

    $yen = $CLASS->new( -2995.95, 'JPY');
    is ( $yen, '¡ï-2,996', "foreign currency with auto-rounding" );
    $newyen = $yen->new(-2996);
    ok ( $yen == $newyen, "two object equality (numeric)" );
    ok ( $yen eq $newyen, "two object equality (string)" );

    $pounds = $CLASS->new( 98994.95, 'GBP');
    is ( $pounds, '£98,994.95', "changes to object format" );

    $newpounds = $pounds + 100000;

    is ( ref($newpounds), ref($pounds), "autoupgrade to object" );

# monetary_locale testing
    use POSIX qw( locale_h );
    my $locale = setlocale(LC_ALL,"en_GB");

    SKIP: {
	    skip ("No locale support", 3) unless $CLASS->localize();
	    pass ( "Re-initialized locale with en_GB" );
	    is ( $FORMAT->{INT_CURR_SYMBOL}, "GBP ", "POSIX format set properly");
	    $locale = setlocale(LC_ALL,"en_US");
	    skip ("No en_US locale installed", 1) 
	    	unless setlocale(LC_ALL) eq "en_US";
	    $CLASS->always_init(1);
	    is ( $dollars, '$20.01', "POSIX format reset properly");
	    $CLASS->always_init(0);
    }

# new features suggested by Cory Watson <cwatson@magazines.com>
    is ($dollars->as_float, "20.01", 'display without formatting');
    is ($dollars->as_int, "2001", 'display integer number of minimum units');

# RT #29210 failure and patch by <rybskej@yahoo.com>
    $dollars = $CLASS->new('0.29');
    is $dollars->as_int, "29", 'convert to integer without rounding failure';

# override Math::BigFloat::copy so that custom formatting sticks
# suggested by Brian Phillips <brianp@holmescorp.com>
    $mc = $CLASS->new(2);
    $mc->format('CURRENCY_SYMBOL',' Bucks');
    $mc->format('P_CS_PRECEDES',0);
    is("$mc","2.00 Bucks","Custom formatting good");
    is( $mc * 1, "2.00 Bucks", "Keeps custom formatting");
}