#!/usr/bin/perl
use strict;
use warnings;
use Test::More tests => 31;
use Test::NoWarnings;
use t::lib::Padre;
use Padre::Locale::Format;
######################################################################
# Integers
my @integer = (
'' => '',
'Hello' => 'Hello',
'0' => '0',
'1' => '1',
'12' => '12',
'123' => '123',
'1234' => '1,234',
'12345' => '12,345',
'123456' => '123,456',
'1234567' => '1,234,567',
'-1' => '-1',
'-12' => '-12',
'-123' => '-123',
'-1234' => '-1,234',
'-12345' => '-12,345',
'-123456' => '-123,456',
'-1234567' => '-1,234,567',
);
is( Padre::Locale::Format::integer(undef),
'',
"integer undef --> ''",
);
while (@integer) {
my $input = shift @integer;
my $want = shift @integer;
my $have = Padre::Locale::Format::integer($input);
is( $have, $want, "integer $input --> $want" );
}
######################################################################
# Bytes
my @bytes = (
'' => '',
'Hello' => 'Hello',
'0' => '0B',
'1' => '1B',
'10' => '10B',
'100' => '100B',
'1000' => '1000B',
'10000' => '9.8kB',
'100000' => '97.7kB',
'1000000' => '976.6kB',
'10000000' => '9.5MB',
);
is( Padre::Locale::Format::bytes(undef),
'',
"bytes undef --> ''",
);
while (@bytes) {
my $input = shift @bytes;
my $want = shift @bytes;
my $have = Padre::Locale::Format::bytes($input);
is( $have, $want, "bytes $input --> $want" );
}