1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
#!/usr/bin/perl -T
use lib '.'; use lib 't';
use SATest; sa_t_init("spamc_H");
use Test::More;
plan skip_all => "Spamd tests disabled" if $SKIP_SPAMD_TESTS;
plan skip_all => "Net tests disabled" unless conf_bool('run_net_tests');
plan skip_all => "Spam host is not loopback" if $spamdhost ne '127.0.0.1';
plan tests => 5;
# ---------------------------------------------------------------------------
%patterns = (
q{ X-Spam-Flag: YES}, 'flag',
q{ TEST_ENDSNUMS}, 'endsinnums',
);
ok(start_spamd("-L"));
$spamdhost = 'multihomed.dnsbltest.spamassassin.org';
ok(spamcrun("--connect-retries=100 -H < data/spam/001",
\&patterns_run_cb));
ok_all_patterns();
ok(stop_spamd());
|
