#!/usr/bin/perl
use strict;
use warnings;
use lib 'lib';
use Test::More;
use Spreadsheet::Engine::Sheet;
*fmt = \&Spreadsheet::Engine::Sheet::format_number_for_display;
my @tests = (
  # zero padding
  [ 10, '0000', '0010' ],
  # decimal places
  [ 1 / 7, '0.00',   '0.14' ],
  [ 1 / 7, '0.0000', '0.1429' ],
  # percentage
  [ 1 / 7, '0%',    '14%' ],
  [ 1 / 7, '0.00%', '14.29%' ],
  # fractions (not implemented)
  # [ 8/7, '# ?/?', '1 1/7' ],
  # commas / brackets
  [ 1000,  '#,##0;(#,##0)', '1,000' ],
  [ -1000, '#,##0;(#,##0)', '(1,000)' ],
  # zero values (TODO - gets undef. bug?
  # [ 0, '#,##0_;(#,##0);-;', '-' ],
  # rounding to thousands / millions
  [ 51883,     '#,##0,',  '52' ],
  [ 5_188_313, '#,##0,',  '5,188' ],
  [ 5_188_313, '#,##0,,', '5' ],
  # scientific (not implemented)
  # [ 5_188_313, '##0.0E+0', '5.2E+6' ]
);
plan tests => scalar @tests;
for my $test (@tests) {
  my ($num, $format, $result) = @{$test};
  is fmt($num, 'n', $format), $result, "$num ($format) => $result";
}