upstream/t/spamd_ssl_accept_fail.t

   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