use Test::More tests => 7;
BEGIN { use_ok( Math::Currency::JPY ); }
# For subsequent testing, we need to make sure that format is default US
Math::Currency->format('USD');
my $object = Math::Currency::JPY->new("102");
isa_ok ($object, 'Math::Currency');
isa_ok ($object, 'Math::Currency::JPY');
is ( $object, '¡ï102', 'Extended ASCII currency marker');
$Math::Currency::use_int = 1;
is ( $object, 'JPY 102', 'ISO currency marker');
my $dollars = Math::Currency::JPY->new("1.02", 'USD'); #weird but legal
is ( $dollars, 'USD 1.02', 'Individual currency object');
$dollars = Math::Currency->new("12.34"); # default to dollars
is ( $dollars, 'USD 12.34', 'Individual currency object');