use strict;
use warnings;
use Data::Dumper;
use Test::More;
use IO::Compress::Gzip;
use IO::Compress::Zip;
use lib 'lib';
my $mod = 'Mail::DMARC::Report::Send';
use_ok( $mod );
my $send = $mod->new;
isa_ok( $send, $mod );
isa_ok( $send->smtp, 'Mail::DMARC::Report::Send::SMTP');
isa_ok( $send->http, 'Mail::DMARC::Report::Send::HTTP');
isa_ok( $send->uri, 'Mail::DMARC::Report::URI');
test_compress_report();
test_human_summary();
done_testing();
exit;
sub test_human_summary {
    my $report = {
        rows => [
                { dkim => 'pass', spf => 'fail' },
                { dkim => 'fail', spf => 'pass' },
                { dkim => 'fail', spf => 'fail' },
            ],
        domain => 'example.com',
    };
    ok( $send->human_summary(\$report), 'human_summary');
};
sub test_compress_report {
    # has to be moderately large to overcome zip format overhead
    my $xml = '<xml></xml>' x 200;  
    my $compressed = $send->compress_report(\$xml);
    ok( length $xml > length $compressed, 'compress_report' );
};