| #!/usr/bin/perl -T |
| |
| use lib '.'; use lib 't'; |
| use SATest; sa_t_init("mimeheader"); |
| use Test::More tests => 6; |
| |
| $ENV{'LANGUAGE'} = $ENV{'LC_ALL'} = 'C'; # a cheat, but we need the patterns to work |
| |
| # --------------------------------------------------------------------------- |
| |
| %patterns = ( |
| |
| q{ MIMEHEADER_TEST1 }, q{ test1 }, |
| q{ MIMEHEADER_TEST2 }, q{ test2 }, |
| q{ MATCH_NL_NONRAW }, q{ match_nl_nonraw }, |
| q{ MATCH_NL_RAW }, q{ match_nl_raw }, |
| q{ MIMEHEADER_FOUND }, q{ unset_found }, |
| |
| ); |
| |
| %anti_patterns = ( |
| |
| q{ MIMEHEADER_NOTFOUND }, q{ unset_notfound }, |
| |
| ); |
| |
| tstpre(q{ |
| |
| loadplugin Mail::SpamAssassin::Plugin::MIMEHeader |
| |
| }); |
| |
| 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_NOTFOUND xyzzy =~ /foobar/ |
| mimeheader MIMEHEADER_FOUND xyzzy =~ /foobar/ [if-unset: xyzfoobarxyz] |
| |
| }); |
| |
| sarun ("-L -t < data/nice/004", \&patterns_run_cb); |
| ok_all_patterns(); |