# -*- CPerl -*-

use Test::More qw(no_plan);
use strict;
use warnings;

use POSIX;
setlocale(&LC_ALL, 'en_US');

BEGIN { use_ok('Number::Format') }

my $x = Number::Format->new;
$x->{neg_format}='-x';
is($x->format_negative(123456.51),      '-123456.51',   'negative');
is($x->format_number(-.509),            '-0.51',        'neg round');
$x->{decimal_digits}=5;
is($x->format_negative(.5555),          '-0.5555',      'neg no fill');
$x->{decimal_fill}=1;
is($x->format_number(-.5555),           '-0.55550',     'neg fill');
$x->{neg_format}='(x)';
is($x->format_number(-1),               '(1.00000)',    'neg paren');
is($x->format_number(-.5),              '(0.50000)',    'neg paren zero');