#!/usr/bin/perl -w
use strict;

use CPAN::Testers::Data::Uploads::Mailer;
use File::Slurp;
use File::Path;
use IO::File;
use Test::More tests => 7;

my %params = (
    source      => 't/samples/uploads.log',
    lastfile    => 't/test/uploads-mailer.txt',
    logfile     => 't/test/uploads-mailer.log',
    debug       => 1,
    test        => 1
);

rmtree('t/test');

mkpath('t/test');
write_file($params{lastfile},39941);

{
    my $mailer;
    eval { 
        $mailer = CPAN::Testers::Data::Uploads::Mailer->new(%params); 
        $mailer->process();
    };

    is($@,'','.. processed without errors');
    my $id = read_file($params{lastfile});
    is($id,39968,'.. last id updated');

    is(-f $params{logfile},undef,'.. logfile not created');
}

$params{source} = 't/samples/uploads-big.log';
rmtree('t/test');

{
    my $mailer;
    eval { 
        $mailer = CPAN::Testers::Data::Uploads::Mailer->new(%params); 
        $mailer->process();
    };

    is($@,'','.. processed without errors');
    my $id = read_file($params{lastfile});
    is($id,40030,'.. last id updated');

    is(-f $params{logfile},1,'.. logfile created');

    my $text = read_file($params{logfile});
    like($text,qr/barbie\@missbarbell\.co\.uk/,'.. logfile updated');
}