#!/usr/bin/perl
use strict;
use warnings;
my     $tests = 40;
use     Test::More;
require Test::NoWarnings;
use     Spreadsheet::Read;
Spreadsheet::Read::parses ("xlsx") or
    plan skip_all => "No MS-Excel parser found";
my $xls;
ok ($xls = ReadData ("files/attr.xlsx", attr => 1), "Excel Attributes testcase");
my $parser = $xls->[0]{parser};
SKIP: {
    ok (my $fmt = $xls->[$xls->[0]{sheet}{Format}],       "format");
    $fmt->{attr}[2][2]{merged} or
        skip "$parser $xls->[0]{version} does not reliably support attributes yet", 38;
    # The return value for the invisible part of merged cells differs for
    # the available parsers
    my $mcrv = $parser =~ m/::XLSX$/ ? undef : "";
    is ($fmt->{B2},          "merged",       "Merged cell left    formatted");
    is ($fmt->{C2},          $mcrv,          "Merged cell right   formatted");
    is ($fmt->{cell}[2][2],  "merged",       "Merged cell left  unformatted");
    is ($fmt->{cell}[3][2],  $mcrv,          "Merged cell right unformatted");
    is ($fmt->{attr}[2][2]{merged}, 1,       "Merged cell left  merged");
    is ($fmt->{attr}[3][2]{merged}, 1,       "Merged cell right merged");
    is ($fmt->{B3},          "unlocked",     "Unlocked cell");
    is ($fmt->{attr}[2][3]{locked}, 0,       "Unlocked cell not locked");
    is ($fmt->{attr}[2][3]{merged}, 0,       "Unlocked cell not merged");
    is ($fmt->{attr}[2][3]{hidden}, 0,       "Unlocked cell not hidden");
    is ($fmt->{B4},          "hidden",       "Hidden cell");
    is ($fmt->{attr}[2][4]{hidden}, 1,       "Hidden cell hidden");
    is ($fmt->{attr}[2][4]{merged}, 0,       "Hidden cell not merged");
    foreach my $r (1 .. 12) {
        is ($fmt->{cell}[1][$r], 12345,      "Unformatted valued A$r");
        }
    is ($fmt->{attr}[1][1]{format}, undef,   "Default format");
    is ($fmt->{cell}[1][1],  $fmt->{A1},  "Formatted valued A1");
    is ($fmt->{cell}[1][10], $fmt->{A10}, "Formatted valued A10"); # String
    foreach my $r (2 .. 9, 11, 12) {
        isnt ($fmt->{cell}[1][$r], $fmt->{"A$r"}, "Unformatted valued A$r");
        }
    # Not yet. needs more digging
    #foreach my $r (2 .. 12) {
    #    ok (defined $fmt->{attr}[1][$r]{format},    "Defined format A$r");
    #    }
    }
unless ($ENV{AUTOMATED_TESTING}) {
    Test::NoWarnings::had_no_warnings ();
    $tests++;
    }
done_testing ($tests);