t/blacklist_autolearn.t

#!/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();