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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
|
#!/usr/bin/perl
use strict;
# assume we are run from a subdirectory of the top-level SpamAssassin
# build dir
use lib '../lib';
use lib '../../lib';
use Apache::Test qw(:withtestmore);
use Test::More;
use Apache::TestUtil;
use Mail::SpamAssassin::Client;
plan tests => 7, need_apache 2, need_module 'perl';
ok 1, 'loaded';
# This doesn't support IPv6, obviously. It doesn't only look weird,
# it *is* weird. Apache::Test could use some improvements.
my $hostport = Apache::TestRequest::hostport(Apache::Test::config());
my ($host, $port) = split /:/, $hostport;
my $client = Mail::SpamAssassin::Client->new(
{
port => $port,
host => $host,
username => 'someuser',
}
)
or BAIL_OUT('Mail::SpamAssassin::Client->new failed');
ok 2, 'started M::SA::Client';
SKIP: {
eval 'use Mail::SpamAssassin 3.001004 ()';
skip 'M::SA::C->ping is broken before v3.1.4', 1 if $@;
ok $client->ping, 'ping';
}
my $gtube =
"foo: bar\n\n"
. 'XJS*C4JDBQADN1.NSBN3*2IDNEN*GTUBE-STANDARD-ANTI-UBE-TEST-EMAIL*C.34X'
. "\n";
my $result;
$result = $client->process($gtube);
ok($result, 'processed GTUBE message');
ok($result->{isspam}, 'GTUBE identified as spam by PROCESS');
$result = $client->check($gtube);
ok($result, 'checked GTUBE message');
ok($result->{isspam}, 'GTUBE identified as spam by CHECK');
# vim: ts=4 sw=4 noet
|
