rule_types.t

#!/usr/bin/perl -T

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

use Test::More tests => 9;

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

%patterns = (

q{ TEST_INVALID_DATE }, 'invdate',
q{ TEST_EXCUSE_4 }, 'bodyspotted',
q{ LAST_RCVD_LINE }, 'LAST_RCVD_LINE',
q{ MESSAGEID_MATCH }, 'MESSAGEID_MATCH',
q{ ENV_FROM }, 'ENV_FROM',
q{ SUBJ_IN_BODY }, 'SUBJ_IN_BODY',
q{ URI_RULE }, 'URI_RULE',
q{ BODY_LINE_WRAP }, 'BODY_LINE_WRAP',
q{ RELAYS }, 'RELAYS',

);

# define a few rules in the user prefs file (this is OK
# for the commandline scanner).   Try to exercise some of the
# different rule types we support, header-name macros etc. (TODO: all ;)
#
tstlocalrules ('
  header LAST_RCVD_LINE  Received =~ /www.fasttrec.com/

  header MESSAGEID_MATCH  MESSAGEID =~ /fasttrec.com/

  header ENV_FROM  EnvelopeFrom =~ /jm.netnoteinc.com/

  body SUBJ_IN_BODY  /YOUR BRAND NEW HOUSE/

  uri URI_RULE  /WWW.SUPERSITESCENTRAL.COM/i

  body BODY_LINE_WRAP  /making obscene amounts of money from the/

  header RELAYS  X-Spam-Relays-Untrusted =~ / helo=www.fasttrec.com /
');

sarun ("-L -t < data/spam/002", \&patterns_run_cb);
ok_all_patterns();