mirror of
https://git.proxmox.com/git/proxmox-spamassassin
synced 2025-08-06 19:28:07 +00:00
32 lines
648 B
Perl
Executable File
32 lines
648 B
Perl
Executable File
#!/usr/bin/perl -T
|
|
|
|
use lib '.'; use lib 't';
|
|
use SATest; sa_t_init("sa_awl");
|
|
|
|
use Test::More tests => 1;
|
|
|
|
# ---------------------------------------------------------------------------
|
|
|
|
%patterns = (
|
|
q{ X-Spam-Status: Yes}, 'isspam',
|
|
);
|
|
|
|
tstpre ("
|
|
loadplugin Mail::SpamAssassin::Plugin::AWL
|
|
");
|
|
|
|
tstprefs ("
|
|
auto_whitelist_path ./$userstate/awltest
|
|
auto_whitelist_file_mode 0755
|
|
");
|
|
|
|
sarun("--add-addr-to-whitelist whitelist_test\@whitelist.spamassassin.taint.org",
|
|
\&patterns_run_cb);
|
|
|
|
print cwd() . "\n";
|
|
saawlrun("--clean --min 9999 ./$userstate/awltest");
|
|
|
|
sarun ("-L -t < data/spam/004", \&patterns_run_cb);
|
|
ok_all_patterns();
|
|
|