1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
#!perl -T
use Test::More tests => 11;
use_ok('Number::Bytes::Human', 'format_bytes', 'parse_bytes');
is(format_bytes(0), '0', "0 turns to '0' by default");
is(format_bytes(0, zero => '-'), '-', "0 turns to '-'");
is(format_bytes(0, zero => '*'), '*', "0 turns to '*'");
is(format_bytes(0, zero => '0%S', suffixes => [ 'B' ]), '0B', "0 turns to '0B'");
# zero => undef
is(format_bytes(0, zero => undef, suffixes => [ ' B' ]), '0.0 B', "0 turns to '0.0 B'"); #'0 B', wrong with the default being precision 1 with cutoff digits 1 and zero being undef
is(parse_bytes(undef, zero => undef), 0, "undef maps to 0"); # undef maps to 0 if zero is to be recognized as undef
is(parse_bytes('0'), 0, "0 turns to '0' by default");
is(parse_bytes('-', zero => '-'), 0, "0 turns to '-'");
is(parse_bytes('*', zero => '*'), 0, "0 turns to '*'");
is(parse_bytes('0B', zero => '0%S', suffixes => [ 'B' ]), 0, "0 turns to '0B'");
|
