| #!/usr/bin/perl -T |
| |
| use lib '.'; use lib 't'; |
| use SATest; sa_t_init("reportheader"); |
| |
| use Test::More tests => 11; |
| |
| $ENV{'LANGUAGE'} = $ENV{'LC_ALL'} = 'C'; # a cheat, but we need the patterns to work |
| |
| # --------------------------------------------------------------------------- |
| |
| %patterns = ( |
| |
| q{ Spam detection software, running on the system "}, 'spam-report-body', |
| q{ Subject: There yours for FREE!}, 'subj', |
| q{ X-Spam-Status: Yes, score=}, 'status', |
| q{ X-Spam-Flag: YES}, 'flag', |
| q{ From: ends in many numbers}, 'endsinnums', |
| q{ From: does not include a real name}, 'noreal', |
| q{ BODY: Nobody's perfect }, 'remove', |
| q{ Message-Id is not valid, }, 'msgidnotvalid', |
| q{ 'From' yahoo.com does not match }, 'fromyahoo', |
| q{ Invalid Date: header (not RFC 2822) }, 'invdate', |
| q{ Uses a dotted-decimal IP address in URL }, 'dotteddec', |
| |
| ); #' |
| |
| tstprefs (" |
| $default_cf_lines |
| report_safe 0 |
| "); |
| |
| sarun ("-L -t < data/spam/001", \&patterns_run_cb); |
| ok_all_patterns(); |