t/esp.t

#!/usr/bin/perl -T

use lib '.'; use lib 't';
use SATest; sa_t_init("esp");

use Test::More;
plan tests => 2;

tstpre ("
loadplugin Mail::SpamAssassin::Plugin::Esp
");

tstprefs("
sendgrid_feed data/spam/esp/sendgrid_id.txt
header   SENDGRID_ID   eval:esp_sendgrid_check_id()
describe SENDGRID_ID   Check Sendgrid id

mailchimp_feed data/spam/esp/mailchimp.txt
header   MAILCHIMP_ID   eval:esp_mailchimp_check()
describe MAILCHIMP_ID   Check Mailchimp id
");

%patterns_sendgrid_id = (
        q{ SENDGRID_ID } => 'Sendgrid',
            );

%patterns = %patterns_sendgrid_id;
sarun ("-L -t < data/spam/esp/sendgrid_id.eml", \&patterns_run_cb);
ok_all_patterns();
clear_pattern_counters();

%patterns_mailchimp_id = (
        q{ MAILCHIMP_ID } => 'Mailchimp',
            );

%patterns = %patterns_mailchimp_id;
sarun ("-L -t < data/spam/esp/mailchimp.eml", \&patterns_run_cb);
ok_all_patterns();