t/get_all_headers.t

#!/usr/bin/perl -T

use lib '.'; use lib 't';
use SATest; sa_t_init("get_all_headers");
use Test::More;

use constant HAS_EMAIL_ADDRESS_XS => eval { require Email::Address::XS; };

$tests = 19;
$tests += 19 if (HAS_EMAIL_ADDRESS_XS);
plan tests => $tests;

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

%patterns = (
  q{'MIME-Version: 1.0'} => 'no-extra-space',
  q{'scalar-text-all-raw: Received: from yahoo.com[\n]    (PPPa33-ResaleLosAngelesMetroB2-2R7452.dialinx.net [4.48.136.190]) by[\n]    www.goabroad.com.cn (8.9.3/8.9.3) with SMTP id TAA96146; Thu,[\n]    30 Aug 2001 19:06:45 +0800 (CST) (envelope-from[\n]    pertand@email.mondolink.com)[\n]From  :<tst1@example.com>[\n]X-Mailer: Mozilla 4.04 [en]C-bls40  (Win95; U)[\n]To: jenny33436@netscape.net[\n]Subject: via.gra[\n]From:[\t]  <tst2@example.com>[\n]DATE: Fri, 7 Dec 2001 07:01:03[\n]MIME-Version: 1.0[\n]Message-Id: <20011206235802.4FD6F1143D6@mail.netnoteinc.com>[\n]Sender: travelincentives@aol.com[\n]Content-Type: text/plain; charset="us-ascii"[\n][END]'} => 'scalar-text-all-raw',
  q{'scalar-text-all-noraw: Received: from yahoo.com (PPPa33-ResaleLosAngelesMetroB2-2R7452.dialinx.net [4.48.136.190]) by www.goabroad.com.cn (8.9.3/8.9.3) with SMTP id TAA96146; Thu, 30 Aug 2001 19:06:45 +0800 (CST) (envelope-from pertand@email.mondolink.com)[\n]From: <tst1@example.com>[\n]X-Mailer: Mozilla 4.04 [en]C-bls40  (Win95; U)[\n]To: jenny33436@netscape.net[\n]Subject: via.gra[\n]From: <tst2@example.com>[\n]DATE: Fri, 7 Dec 2001 07:01:03[\n]MIME-Version: 1.0[\n]Message-Id: <20011206235802.4FD6F1143D6@mail.netnoteinc.com>[\n]Sender: travelincentives@aol.com[\n]Content-Type: text/plain; charset="us-ascii"[\n][END]'} => 'scalar-text-all-noraw',
  q{'scalar-text-from-raw: <tst1@example.com>[\n][\t]  <tst2@example.com>[\n][END]'} => 'scalar-text-from-raw',
  q{'scalar-text-from-noraw: <tst1@example.com>[\n]<tst2@example.com>[\n][END]'} => 'scalar-text-from-noraw',
  q{'scalar-text-from-addr: tst1@example.com[END]'} => 'scalar-text-from-addr',
  q{'list-text-all-raw: Received: from yahoo.com[\n]    (PPPa33-ResaleLosAngelesMetroB2-2R7452.dialinx.net [4.48.136.190]) by[\n]    www.goabroad.com.cn (8.9.3/8.9.3) with SMTP id TAA96146; Thu,[\n]    30 Aug 2001 19:06:45 +0800 (CST) (envelope-from[\n]    pertand@email.mondolink.com)[\n][LIST]From  :<tst1@example.com>[\n][LIST]X-Mailer: Mozilla 4.04 [en]C-bls40  (Win95; U)[\n][LIST]To: jenny33436@netscape.net[\n][LIST]Subject: via.gra[\n][LIST]From:[\t]  <tst2@example.com>[\n][LIST]DATE: Fri, 7 Dec 2001 07:01:03[\n][LIST]MIME-Version: 1.0[\n][LIST]Message-Id: <20011206235802.4FD6F1143D6@mail.netnoteinc.com>[\n][LIST]Sender: travelincentives@aol.com[\n][LIST]Content-Type: text/plain; charset="us-ascii"[\n][END]'} => 'list-text-all-raw',
  q{'list-text-all-noraw: Received: from yahoo.com (PPPa33-ResaleLosAngelesMetroB2-2R7452.dialinx.net [4.48.136.190]) by www.goabroad.com.cn (8.9.3/8.9.3) with SMTP id TAA96146; Thu, 30 Aug 2001 19:06:45 +0800 (CST) (envelope-from pertand@email.mondolink.com)[\n][LIST]From: <tst1@example.com>[\n][LIST]X-Mailer: Mozilla 4.04 [en]C-bls40  (Win95; U)[\n][LIST]To: jenny33436@netscape.net[\n][LIST]Subject: via.gra[\n][LIST]From: <tst2@example.com>[\n][LIST]DATE: Fri, 7 Dec 2001 07:01:03[\n][LIST]MIME-Version: 1.0[\n][LIST]Message-Id: <20011206235802.4FD6F1143D6@mail.netnoteinc.com>[\n][LIST]Sender: travelincentives@aol.com[\n][LIST]Content-Type: text/plain; charset="us-ascii"[\n][END]'} => 'list-text-all-noraw',
  q{'list-text-from-raw: <tst1@example.com>[\n][LIST][\t]  <tst2@example.com>[\n][END]'} => 'list-text-from-raw',
  q{'list-text-from-noraw: <tst1@example.com>[\n][LIST]<tst2@example.com>[\n][END]'} => 'list-text-from-noraw',
  q{'list-text-from-addr: tst1@example.com[LIST]tst2@example.com[END]'} => 'list-text-from-addr',
  q{'list-text-from-first-addr: tst1@example.com[END]'} => 'list-text-from-first-addr',
  q{'list-text-from-last-addr: tst2@example.com[END]'} => 'list-text-from-last-addr',
  q{'list-text-msgid-host: mail.netnoteinc.com[END]'} => 'list-text-msgid-host',
  q{'list-text-msgid-domain: netnoteinc.com[END]'} => 'list-text-msgid-domain',
  q{'list-text-received-ip: 4.48.136.190[END]'} => 'list-text-received-ip',
  q{'list-text-received-revip: 190.136.48.4[END]'} => 'list-text-received-revip',
);

%anti_patterns = (
  q{/MIME-Version:  1\.0/} => 'extra-space'
);

tstprefs ("
  loadplugin Dumpheaders ../../../data/Dumpheaders.pm
");

# Internal parser
$ENV{'SA_HEADER_ADDRESS_PARSER'} = 1;
ok (sarun ("-L -t < data/spam/008", \&patterns_run_cb));
ok_all_patterns();

if (HAS_EMAIL_ADDRESS_XS) {
  # Email::Address::XS
  $ENV{'SA_HEADER_ADDRESS_PARSER'} = 2;
  ok (sarun ("-L -t < data/spam/008", \&patterns_run_cb));
  ok_all_patterns();
} else { warn "Not running Email::Address::XS tests, module missing\n"; }