upstream/t/spamd.t

   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());