mirror of
https://git.proxmox.com/git/proxmox-spamassassin
synced 2025-05-28 14:04:41 +00:00
48 lines
1.1 KiB
Perl
Executable File
48 lines
1.1 KiB
Perl
Executable File
#!/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();
|