#!/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();