t/reportheader.t

#!/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',
);

# This test checks that the report template feature works.
# Define a representative example default template here to test out
tstprefs ('
  clear_report_template
  report Spam detection software, running on the system "_HOSTNAME_",
  report has_YESNO(, NOT)_ identified this incoming email as_YESNO( possible,)_ spam.  The original
  report message has been attached to this so you can view it or label
  report similar future email.  If you have any questions, see
  report _CONTACTADDRESS_ for details.
  report
  report Content preview:  _PREVIEW_
  report
  report Content analysis details:   (_SCORE_ points, _REQD_ required)
  report
  report " pts rule name              description"
  report  ---- ---------------------- --------------------------------------------------
  report _SUMMARY_

  report_contact  @@CONTACT_ADDRESS@@

  clear_headers

  add_header all Checker-Version SpamAssassin _VERSION_ (_SUBVERSION_) on _HOSTNAME_
  add_header spam Flag _YESNOCAPS_
  add_header all Level _STARS(*)_
  add_header all Status "_YESNO_, score=_SCORE_ required=_REQD_ tests=_TESTS_ autolearn=_AUTOLEARN_ version=_VERSION_"
  report_safe 0
');

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