upstream/t/db_based_whitelist.t

   1 #!/usr/bin/perl -T
   2
   3 use lib '.'; use lib 't';
   4
   5 use SATest; sa_t_init("db_based_whitelist");
   6
   7 use Test::More;
   8 plan skip_all => "Long running tests disabled" unless conf_bool('run_long_tests');
   9 plan tests => 8;
  10
  11 # ---------------------------------------------------------------------------
  12
  13 %is_nonspam_patterns = (
  14 q{ Subject: Re: [SAtalk] auto-whitelisting}, 'subj',
  15 );
  16 %is_spam_patterns = (
  17 q{Subject: 4000           Your Vacation Winning !}, 'subj',
  18 );
  19
  20 %patterns = %is_nonspam_patterns;
  21
  22 ok (sarun ("--remove-addr-from-whitelist whitelist_test\@whitelist.spamassassin.taint.org", \&patterns_run_cb));
  23
  24 # 3 times, to get into the whitelist:
  25 ok (sarun ("-L -t < data/nice/002", \&patterns_run_cb));
  26 ok (sarun ("-L -t < data/nice/002", \&patterns_run_cb));
  27 ok (sarun ("-L -t < data/nice/002", \&patterns_run_cb));
  28
  29 # Now check
  30 ok (sarun ("-L -t < data/nice/002", \&patterns_run_cb));
  31 ok_all_patterns();
  32
  33 %patterns = %is_spam_patterns;
  34 ok (sarun ("-L -t < data/spam/004", \&patterns_run_cb));
  35 ok_all_patterns();