use v5.22;
use warnings;
use utf8;

use Test::More;

use JSON::PP 'decode_json';
use List::Util 'min';
no warnings 'experimental::smartmatch';


my $EXTRACT = {
    perl_mail_box => 'perl script/qmauth.pl ',
    rust_maildir  => 'extract/target/debug/jwebmail-extract',
}->{perl_mail_box};
my $MAILDIR = 't/';
my $SYS_USER = $ENV{USER};
my $MAIL_USER = 'maildir';

my $PROG = "$EXTRACT $MAILDIR $SYS_USER $MAIL_USER";

my $MAIL_COUNT = do {
    opendir(my $dh, "$MAILDIR/$MAIL_USER/cur");
    my @all = grep { /^[^.]/ } readdir($dh);
    closedir($dh);
    local $" = ' ';
    note "@all";
    @all
};

subtest start => sub {
    my @res = `$PROG invalid`;

    is($? >> 8, 3);
    is @res, 1;
    my $result = decode_json $res[0];

    ok($result->{error})
};

subtest folders => sub {
    my @res = `$PROG folders`;

    is($? >> 8, 0);
    is @res, 1;
    my $result = decode_json $res[0];

    is(@$result, 2);
};

subtest count => sub {
    my @res = `$PROG count ''`;

    is($? >> 8, 0);
    is @res, 1;
    my $result = decode_json $res[0];

    is($result->{count}, $MAIL_COUNT);
    #is($result->{new}, 0);
};

subtest list => sub {
    my $s = "$PROG list 0 4 date ''";
    my @res = `$s`;

    is($? >> 8, 0);
    is @res, 1;
    my $result = decode_json $res[0];

    is(@$result, min($MAIL_COUNT, 5));
    ok($result->[0]{mid});
    ok($result->[0]{head}{from}) or diag $s;
    ok($result->[0]{head}{to});
};

subtest read => sub {
    my @pre_res = `$PROG list 0 10 date ''`;

    is($? >> 8, 0);
    is @pre_res, 1;
    my $pre_result = decode_json $pre_res[0];
    ok(my $mid = $pre_result->[0]{mid});

    my $s = "$PROG read-mail '$mid'";
    my @res = `$s`;

    is($? >> 8, 0) or (diag $s, return);
    is @res, 1;
    my $result = decode_json $res[0];

    is_deeply($result->{head}{from}, [{address => 'shipment-tracking@amazon.de', name => 'Amazon.de'}]);
    ok($result->{date_received});
    ok(index($result->{date_received}, '2019-02-22T10:06:54') != -1);
    like($result->{date_received}, qr'2019-02-22T10:06:54');
};

done_testing;