#!/usr/bin/perl use lib '.'; use lib 't'; use SATest; sa_t_init("stripmarkup"); use Test; BEGIN { plan tests => 4 }; # --------------------------------------------------------------------------- %patterns = ( q{ Content-Type: text/html }, 'contenttype', q{ Sender: pertand@email.mondolink.com Content-Type: text/html <HTML></P> }, 'startofbody', q{Subject: "100% HERBALSENSATION"}, 'subj', ); tstprefs ( " rewrite_header subject *****SPAM***** " ); ok (sarun ("-d < data/spam/003", \&patterns_run_cb)); ok_all_patterns();