mirror of
https://git.proxmox.com/git/proxmox-spamassassin
synced 2025-08-16 15:21:26 +00:00
63 lines
1.8 KiB
Raku
Executable File
63 lines
1.8 KiB
Raku
Executable File
#!/usr/bin/perl -T
|
|
|
|
use lib '.'; use lib 't';
|
|
use SATest; sa_t_init("whitelist_subject");
|
|
use Test::More tests => 4;
|
|
|
|
# ---------------------------------------------------------------------------
|
|
|
|
disable_compat "welcomelist_blocklist";
|
|
|
|
%is_whitelist_patterns = (
|
|
q{ SUBJECT_IN_WHITELIST }, 'whitelist-subject'
|
|
);
|
|
|
|
%is_blacklist_patterns = (
|
|
q{ SUBJECT_IN_BLACKLIST }, 'blacklist-subject'
|
|
);
|
|
|
|
tstprefs ("
|
|
loadplugin Mail::SpamAssassin::Plugin::WhiteListSubject
|
|
header SUBJECT_IN_WELCOMELIST eval:check_subject_in_welcomelist()
|
|
tflags SUBJECT_IN_WELCOMELIST userconf nice noautolearn
|
|
score SUBJECT_IN_WELCOMELIST -100
|
|
|
|
if !can(Mail::SpamAssassin::Conf::compat_welcomelist_blocklist)
|
|
meta SUBJECT_IN_WHITELIST (SUBJECT_IN_WELCOMELIST)
|
|
tflags SUBJECT_IN_WHITELIST userconf nice noautolearn
|
|
score SUBJECT_IN_WHITELIST -100
|
|
score SUBJECT_IN_WELCOMELIST -0.01
|
|
endif
|
|
|
|
header SUBJECT_IN_BLOCKLIST eval:check_subject_in_blocklist()
|
|
tflags SUBJECT_IN_BLOCKLIST userconf noautolearn
|
|
score SUBJECT_IN_BLOCKLIST 100
|
|
|
|
if !can(Mail::SpamAssassin::Conf::compat_welcomelist_blocklist)
|
|
meta SUBJECT_IN_BLACKLIST (SUBJECT_IN_BLOCKLIST)
|
|
tflags SUBJECT_IN_BLACKLIST userconf noautolearn
|
|
score SUBJECT_IN_BLACKLIST 100
|
|
score SUBJECT_IN_BLOCKLIST 0.01
|
|
endif
|
|
|
|
# Check that rename backwards compatibility works with if's
|
|
ifplugin Mail::SpamAssassin::Plugin::WhiteListSubject
|
|
if plugin(Mail::SpamAssassin::Plugin::WelcomeListSubject)
|
|
whitelist_subject [HC Anno*]
|
|
blacklist_subject whitelist test
|
|
endif
|
|
endif
|
|
");
|
|
|
|
%patterns = %is_whitelist_patterns;
|
|
|
|
ok(sarun ("-L -t < data/nice/016", \&patterns_run_cb));
|
|
ok_all_patterns();
|
|
|
|
%patterns = %is_blacklist_patterns;
|
|
|
|
# force us to blacklist a nice msg
|
|
ok(sarun ("-L -t < data/nice/015", \&patterns_run_cb));
|
|
ok_all_patterns();
|
|
|