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