t/uridetail.t

#!/usr/bin/perl -T

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

use Test::More;

$tests = 3;
plan tests => $tests;

# ---------------------------------------------------------------------------

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

my $rules = "
  uri_detail X_URIDETAIL cleaned =~ /8\.8\.8\.8/ text =~ /Dns/
  describe X_URIDETAIL Google Dns server
";

%patterns = (
  q{ X_URIDETAIL } => 'Google Dns',
);

ok sarun ("-L -t < data/spam/relayUS.eml", \&patterns_run_cb);
clear_pattern_counters();

%anti_patterns = %patterns;
ok sarun ("-L -t < data/spam/006", \&patterns_run_cb);
clear_pattern_counters();

$rules = q(
  uri_detail      UNICODE_LINK_TEXT text =~ /\x{E0}\x{B8}\x{97}\x{E0}\x{B8}\x{B1}\x{E0}\x{B8}\x{99}\x{E0}\x{B8}\x{97}\x{E0}\x{B8}\x{B5}/
);
%patterns = (
  q{ UNICODE_LINK_TEXT } => 'unicode link text',
);
%anti_patterns = ();
ok sarun ("-L -t < data/spam/utf8_anchor_text.eml", \&patterns_run_cb);