mirror of
https://git.proxmox.com/git/proxmox-spamassassin
synced 2025-08-15 22:59:15 +00:00
26 lines
542 B
Perl
Executable File
26 lines
542 B
Perl
Executable File
#!/usr/bin/perl -T
|
|
|
|
use lib '.'; use lib 't';
|
|
use SATest; sa_t_init("local_tests_only");
|
|
|
|
use Test::More;
|
|
plan tests => 1;
|
|
|
|
# ---------------------------------------------------------------------------
|
|
|
|
# Make sure no plugin is sending DNS with -L
|
|
|
|
%anti_patterns = (
|
|
'dns: bgsend' => 'dns',
|
|
);
|
|
|
|
tstprefs("
|
|
header DNSBL_TEST_TOP eval:check_rbl('test', 'dnsbltest.spamassassin.org.')
|
|
tflags DNSBL_TEST_TOP net
|
|
");
|
|
|
|
# we need -D output for patterns
|
|
sarun ("-D dns -L -t < data/spam/dnsbl.eml 2>&1", \&patterns_run_cb);
|
|
ok_all_patterns();
|
|
|