#!perl -w
use strict;
use warnings;
use Test::More tests => 28;

BEGIN {
    use_ok('Handel::Compat::Currency');
    use_ok('Handel::Exception', ':try');
};

## test stringification and returns in the absence of
## Locale::Currency::Format
{
    my $currency = Handel::Compat::Currency->new(1.2);
    isa_ok($currency, 'Handel::Compat::Currency');
    is($currency, 1.2);


    eval 'use Locale::Currency::Format';
    if ($@) {
        is($currency->format, 1.2);
        is($currency->format('CAD'), 1.2);
        is($currency->format(undef, 'FMT_NAME'), 1.2);
        is($currency->format('CAD', 'FMT_NAME'), 1.2);
    } else {
        is($currency->format, '1.20 USD');
        is($currency->format('CAD'), '1.20 CAD');
        is($currency->format(undef, 'FMT_NAME'), '1.20 US Dollar');
        is($currency->format('CAD', 'FMT_NAME'), '1.20 Canadian Dollar');
    };

    try {
        $currency->format('CRAP');
        fail;
    } catch Handel::Exception::Argument with {
        pass;
    } otherwise {
        fail;
    };
};


SKIP: {
    skip 'Skipping live tests', 8 unless $ENV{TEST_AUTHOR};
    eval 'use Finance::Currency::Convert::WebserviceX 0.03';
    skip 'Finance::Currency::Convert::WebserviceX 0.03 not installed', 8 if $@;

    my $currency = Handel::Compat::Currency->new(1);
    isa_ok($currency, 'Handel::Compat::Currency');
    is($currency, 1);

    try {
        $currency->convert('CRAP', 'CAD');

        fail;
    } catch Handel::Exception::Argument with {
        pass;
    } otherwise {
        fail;
    };

    try {
        $currency->convert('USD', 'JUNK');

        fail;
    } catch Handel::Exception::Argument with {
        pass;
    } otherwise {
        fail;
    };

    is($currency->convert('USD', 'USD'), undef);
    ok($currency->convert('USD', 'CAD'));

    {
        local $ENV{'HandelCurrencyCode'} = 'CAD';
        is($currency->convert(undef, 'CAD'), undef);
        ok($currency->convert(undef, 'USD'));
    }
};

SKIP: {
    skip 'Skipping live tests', 4 unless $ENV{TEST_AUTHOR};
    eval 'use Locale::Currency';
    skip 'Locale::Currency not installed', 4 if $@;

    my $currency = Handel::Compat::Currency->new(1);
    isa_ok($currency, 'Handel::Compat::Currency');
    is($currency, 1);

    try {
        $currency->convert('ZZZ', 'CAD');

        fail;
    } catch Handel::Exception::Argument with {
        pass;
    } otherwise {
        fail;
    };

    try {
        $currency->convert('USD', 'ZZZ');

        fail;
    } catch Handel::Exception::Argument with {
        pass;
    } otherwise {
        fail;
    };
};

SKIP: {
    skip 'Skipping live tests', 6 unless $ENV{TEST_AUTHOR};
    eval 'use Locale::Currency';
    eval 'use Finance::Currency::Convert::WebserviceX 0.03' if !$@;
    eval 'use Locale::Currency::Format' if !$@;
    skip 'Format and Convert not installed', 6 if $@;

    my $currency = Handel::Compat::Currency->new(1.23);
    isa_ok($currency, 'Handel::Compat::Currency');
    is($currency, 1.23);

    ok($currency->convert('USD', 'CAD', 1, 'FMT_STANDARD') =~ / CAD$/);
    ok($currency->convert('USD', 'CAD', 0, 'FMT_STANDARD') !~ / CAD$/);

    local $Handel::ConfigReader::DEFAULTS{'HandelCurrencyCode'} = 'CAD';
    ok($currency->convert('USD', undef, 1, 'FMT_STANDARD') =~ / CAD$/);

    undef $currency->{'converter'};
    is($currency->convert('USD'), undef);
};


## worthless test for coverage purpose
{
    local $] = 5.006001;
    is(Handel::Compat::Currency::_to_utf8('3.0 USD'), '3.0 USD');
};