#!perl -T

use strict;
use warnings;

use Carp qw(confess);
use English qw(-no_match_vars $OS_ERROR $INPUT_RECORD_SEPARATOR);
use Hash::Util qw(lock_hash);
use IO::File qw(SEEK_SET);

use Test::More tests => 10;
use Test::NoWarnings;
use Test::Differences;
use Test::Exception;
use Test::HexDifferences;

BEGIN {
    require_ok 'Locale::MO::File';
}

my @messages = (
    {
        msgid  => q{},
        msgstr => <<'EOT',
MIME-Version: 1.0
Content-Type: text/plain; charset=ISO-8859-1
Plural-Forms: nplurals=2; plural=n != 1
EOT
    },
    {
        msgid  => 'original',
        msgstr => 'translated',
    },
    {
        msgctxt => 'context',
        msgid   => 'c_original',
        msgstr  => 'c_translated',
    },
    {
        msgid         => 'o_singular',
        msgid_plural  => 'o_plural',
        msgstr_plural => [ qw(t_singular t_plural) ],
    },
    {
        msgctxt       => 'c_context',
        msgid         => 'c_o_singular',
        msgid_plural  => 'c_o_plural',
        msgstr_plural => [ qw(c_t_singular c_t_plural) ],
    },
);
for my $message (@messages) {
    lock_hash %{$message};
}

my $filename = '11_little_endian.mo';

my @sorted_messages = (
    map {
        $_->[0];
    }
    sort {
        $a->[1] cmp $b->[1];
    }
    map {
        [
            $_,
            Locale::MO::File->new(filename => $filename)->_pack_message($_)->{msgid},
        ];
    } @messages
);

my $hex_dump = <<'EOT';
0000 : DE120495 : magic number
0004 : 00000000 : revision
0008 : 05000000 : number of strings
000C : 1C000000 : offset msgid
0010 : 44000000 : offset msgstr
0014 : 00000000 : hash size
0018 : 00000000 : hash offset
001C : 00 00 00 00 : ....
0020 : 6C 00 00 00 21 00 00 00 : l...!...
0028 : 6D 00 00 00 12 00 00 00 : m.......
0030 : 8F 00 00 00 13 00 00 00 : ........
0038 : A2 00 00 00 08 00 00 00 : ........
0040 : B6 00 00 00 67 00 00 00 : ....g...
0048 : BF 00 00 00 17 00 00 00 : ........
0050 : 27 01 00 00 0C 00 00 00 : ........
0058 : 3F 01 00 00 13 00 00 00 : ?.......
0060 : 4C 01 00 00 0A 00 00 00 : L.......
0068 : 60 01 00 00 00 63 5F 63 : `....c_c
0070 : 6F 6E 74 65 78 74 04 63 : ontext.c
0078 : 5F 6F 5F 73 69 6E 67 75 : _o_singu
0080 : 6C 61 72 00 63 5F 6F 5F : lar.c_o_
0088 : 70 6C 75 72 61 6C 00 63 : plural.c
0090 : 6F 6E 74 65 78 74 04 63 : ontext.c
0098 : 5F 6F 72 69 67 69 6E 61 : _origina
00A0 : 6C 00 6F 5F 73 69 6E 67 : l.o_sing
00A8 : 75 6C 61 72 00 6F 5F 70 : ular.o_p
00B0 : 6C 75 72 61 6C 00 6F 72 : lural.or
00B8 : 69 67 69 6E 61 6C 00 4D : iginal.M
00C0 : 49 4D 45 2D 56 65 72 73 : IME-Vers
00C8 : 69 6F 6E 3A 20 31 2E 30 : ion:.1.0
00D0 : 0A 43 6F 6E 74 65 6E 74 : .Content
00D8 : 2D 54 79 70 65 3A 20 74 : -Type:.t
00E0 : 65 78 74 2F 70 6C 61 69 : ext/plai
00E8 : 6E 3B 20 63 68 61 72 73 : n;.chars
00F0 : 65 74 3D 49 53 4F 2D 38 : et=ISO-8
00F8 : 38 35 39 2D 31 0A 50 6C : 859-1.Pl
0100 : 75 72 61 6C 2D 46 6F 72 : ural-For
0108 : 6D 73 3A 20 6E 70 6C 75 : ms:.nplu
0110 : 72 61 6C 73 3D 32 3B 20 : rals=2;.
0118 : 70 6C 75 72 61 6C 3D 6E : plural=n
0120 : 20 21 3D 20 31 0A 00 63 : .!=.1..c
0128 : 5F 74 5F 73 69 6E 67 75 : _t_singu
0130 : 6C 61 72 00 63 5F 74 5F : lar.c_t_
0138 : 70 6C 75 72 61 6C 00 63 : plural.c
0140 : 5F 74 72 61 6E 73 6C 61 : _transla
0148 : 74 65 64 00 74 5F 73 69 : ted.t_si
0150 : 6E 67 75 6C 61 72 00 74 : ngular.t
0158 : 5F 70 6C 75 72 61 6C 00 : _plural.
0160 : 74 72 61 6E 73 6C 61 74 : translat
0168 : 65 64 00                : ed.
EOT

# === file ===

lives_ok
    sub {
        my $mo = Locale::MO::File->new;
        $mo->set_filename($filename);
        $mo->set_messages(\@messages);
        $mo->write_file;
    },
    "write mo file $filename";

ok
    -f $filename,
    "mo file $filename exists";

dumped_eq_dump_or_diff
    do {
        my $file_handle = IO::File->new($filename, '< :raw')
            or confess "Can not open $filename\n$OS_ERROR";
        local $INPUT_RECORD_SEPARATOR = ();
        <$file_handle>;
    },
    $hex_dump,
    { format => <<"EOT" },
%a : %N : magic number\n%1x%
%a : %N : revision\n%1x%
%a : %N : number of strings\n%1x%
%a : %N : offset msgid\n%1x%
%a : %N : offset msgstr\n%1x%
%a : %N : hash size\n%1x%
%a : %N : hash offset\n%1x%
%a : %4C : %d\n%1x%
%a : %8C : %d\n%*x%
EOT
    'compare hex dump';

my $messages_result;
lives_ok
    sub {
        my $mo = Locale::MO::File->new;
        $mo->set_filename($filename);
        $mo->read_file;
        $messages_result = $mo->get_messages;
    },
    "read mo $filename";

eq_or_diff
    $messages_result,
    \@sorted_messages,
    'check messages';

# === file handle ===

$filename =~ s{[.]}{_fh.}xms;

my $file_handle = IO::File->new($filename, '+> :raw')
    or confess "Can not open $filename\n$OS_ERROR";

lives_ok
    sub {
        my $mo = Locale::MO::File->new;
        $mo->set_filename($filename);
        $mo->set_file_handle($file_handle);
        $mo->set_messages(\@messages);
        $mo->write_file;
    },
    "using open file handle: write mo file $filename";

$file_handle->seek(0, SEEK_SET)
    or confess "Can not seek $filename\n$OS_ERROR";

$messages_result = ();
lives_ok
    sub {
        my $mo = Locale::MO::File->new;
        $mo->set_filename($filename);
        $mo->set_file_handle($file_handle);
        $mo->read_file;
        $messages_result = $mo->get_messages;
    },
    "using open file handle: read mo file $filename";

eq_or_diff
    $messages_result,
    \@sorted_messages,
    'using open file handle: check messages';

$file_handle->close
    or confess "Can not close $filename\n$OS_ERROR";
