t/mimeheader.t

#!/usr/bin/perl -T

use lib '.'; use lib 't';
use SATest; sa_t_init("mimeheader");
use Test::More tests => 12;

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

%patterns = (
  q{ 1.0 MIMEHEADER_TEST1 }, q{ test1 },
  q{ 1.0 MIMEHEADER_TEST2 }, q{ test2 },
  q{ 1.0 MATCH_NL_NONRAW }, q{ match_nl_nonraw },
  q{ 1.0 MATCH_NL_RAW }, q{ match_nl_raw },
  q{ 1.0 MIMEHEADER_FOUND1 }, q{ unset_found },
  q{ 1.0 MIMEHEADER_FOUND2 }, q{ negate_found },
  q{ 1.0 MIMEHEADER_CONCAT1 }, q{ concat1_found },
  q{ 1.0 MIMEHEADER_RANGE1 }, q{ range1_found },
  q{ 1.0 MIMEHEADER_RANGE2 }, q{ range2_found },
  q{ 1.0 MIMEHEADER_RANGE3 }, q{ range3_found },
  q{ 1.0 MIMEHEADER_RANGE4 }, q{ range4_found },
);

%anti_patterns = (
  q{ MIMEHEADER_NOTFOUND }, q{ notfound },
);

tstprefs (q{

  mimeheader MIMEHEADER_TEST1 content-type =~ /application\/msword/
  mimeheader MIMEHEADER_TEST2 content-type =~ m!APPLICATION/MSWORD!i

  mimeheader MATCH_NL_NONRAW       Content-Type =~ /msword; name/
  mimeheader MATCH_NL_RAW   Content-Type:raw =~ /msword;\n\tname/

  mimeheader MIMEHEADER_NOTFOUND1 xyzzy =~ /foobar/
  mimeheader MIMEHEADER_FOUND1 xyzzy =~ /foobar/ [if-unset: xyzfoobarxyz]

  mimeheader MIMEHEADER_FOUND2 Content-Type !~ /xyzzy/

  # ALL and concat
  mimeheader MIMEHEADER_CONCAT1 ALL =~ /\nContent-Type: multipart\/mixed;.*?\nContent-Type: multipart\/alternative;.*?\nContent-Type: text\/plain/s
  tflags MIMEHEADER_CONCAT1 concat

  # range
  mimeheader MIMEHEADER_RANGE1 Content-Type =~ /^multipart\/mixed;/
  tflags MIMEHEADER_RANGE1 range=1
  mimeheader MIMEHEADER_RANGE2 Content-Type =~ /^multipart\/alternative.*?text\/plain; charset="iso-8859-2"$/s
  tflags MIMEHEADER_RANGE2 range=2-3 concat
  mimeheader MIMEHEADER_RANGE3 Content-Type =~ /Jurek/
  tflags MIMEHEADER_RANGE3 range=2- concat
  mimeheader MIMEHEADER_RANGE4 Content-Type =~ /Jurek/
  tflags MIMEHEADER_RANGE4 range=-10

});

sarun ("-D mimeheader -L -t < data/nice/004 2>&1", \&patterns_run_cb);
ok_all_patterns();