#!perl -T

use Test::More;

if (eval 'require bignum') {
  plan tests => 5;
} else {
  plan skip_all => 'bignum is not available';
}

# this script tests format_bytes() with large (very large) numbers


use_ok('Number::Bytes::Human', 'format_bytes', 'parse_bytes');

our @TESTS = (
  '2**80', 2**80, '1.0Y',
  '1023*(2**80)', 1023*(2**80), '1023Y',
  #'1024*(2**80)', 1024*(2**80), '1024Y' # should fail number is to large
);


#  is(format_bytes(2**80), '1.0Y', '2**80 is 1.0Y (yottabyte)');

while (my ($exp, $num, $expected) = splice @TESTS, 0, 3) {
  is(format_bytes($num), $expected, "$exp is $expected");
  is(parse_bytes($expected), $num, "parsing $expected should result in $num");
}