]>
Commit | Line | Data |
---|---|---|
37ef5775 SI |
1 | #!/usr/bin/perl -T |
2 | ||
3 | use lib '.'; use lib 't'; | |
4 | use SATest; sa_t_init("spamd"); | |
5 | ||
6 | use Test::More; | |
7 | plan skip_all => "Spamd tests disabled" if $SKIP_SPAMD_TESTS; | |
8 | plan tests => 14; | |
9 | ||
10 | # --------------------------------------------------------------------------- | |
11 | ||
12 | %patterns = ( | |
13 | ||
14 | q{ Return-Path: sb55sb55@yahoo.com}, 'firstline', | |
15 | q{ Subject: There yours for FREE!}, 'subj', | |
16 | q{ X-Spam-Status: Yes, score=}, 'status', | |
17 | q{ X-Spam-Flag: YES}, 'flag', | |
18 | q{ X-Spam-Level: **********}, 'stars', | |
19 | q{ TEST_ENDSNUMS}, 'endsinnums', | |
20 | q{ TEST_NOREALNAME}, 'noreal', | |
21 | q{ This must be the very last line}, 'lastline', | |
22 | ||
23 | ||
24 | ); | |
25 | ||
26 | ok(start_spamd("-L")); | |
27 | ||
28 | ok(spamcrun("< data/spam/001", \&patterns_run_cb)); | |
29 | ok_all_patterns(); | |
30 | ||
31 | %patterns = ( | |
32 | q{ X-Spam-Status: Yes, score=}, 'status', | |
33 | q{ X-Spam-Flag: YES}, 'flag', | |
34 | ); | |
35 | ||
36 | ||
37 | ok (spamcrun("< data/spam/018", \&patterns_run_cb)); | |
38 | ok_all_patterns(); | |
39 | ||
40 | ok(stop_spamd()); |