#!/usr/bin/perl -T
use lib '.'; use lib 't';
use SATest; sa_t_init("blacklist_autolearn");
use Test::More tests => 3;
# ---------------------------------------------------------------------------
disable_compat "welcomelist_blocklist";
%patterns = (
  q{ 100 USER_IN_BLACKLIST }, 'blacklisted',
);
%anti_patterns = (
  'autolearn=ham' => 'autolearned as ham'
);
tstprefs ('
  header USER_IN_BLOCKLIST              eval:check_from_in_blocklist()
  tflags USER_IN_BLOCKLIST              userconf nice noautolearn
  meta USER_IN_BLACKLIST                (USER_IN_BLOCKLIST)
  tflags USER_IN_BLACKLIST              userconf nice noautolearn
  score USER_IN_BLACKLIST               100
  score USER_IN_BLOCKLIST               0.01
  blacklist_from *@ximian.com
');
ok (sarun ("-L -t < data/nice/001", \&patterns_run_cb));
ok_all_patterns();