#!perl -T

use Test::More;

if (eval 'require bignum') {
  plan tests => 4;
} 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');

our @TESTS = (
  '2**80', 2**80, '1.0Y',
  '1023*2**80', 1023*(2**80), '1023Y',
  '1024*2**80', 1024*(2**80), '1024Y' # TODO
);


#  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");
}