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