#!/usr/bin/perl -T

use lib '.'; use lib 't';
use SATest; sa_t_init("olevbmacro");

use constant HAS_ARCHIVE_ZIP => eval { require Archive::Zip; };
use constant HAS_IO_STRING => eval { require IO::String; };

use Test::More;
plan skip_all => 'Need Archive::Zip for this test' unless HAS_ARCHIVE_ZIP;
plan skip_all => 'Need IO::String for this test' unless HAS_IO_STRING;
plan tests => 7;

tstlocalrules (q{
  loadplugin Mail::SpamAssassin::Plugin::OLEVBMacro

  olemacro_extended_scan 1

  body     OLEMACRO eval:check_olemacro()
  score    OLEMACRO 0.1
  body     OLEMACRO_MALICE eval:check_olemacro_malice()
  score    OLEMACRO_MALICE 0.1
  body     OLEMACRO_RENAME eval:check_olemacro_renamed()
  score    OLEMACRO_RENAME 0.1
  body     OLEMACRO_ENCRYPTED eval:check_olemacro_encrypted()
  score    OLEMACRO_ENCRYPTED 0.1
  body     OLEMACRO_ZIP_PW eval:check_olemacro_zip_password()
  score    OLEMACRO_ZIP_PW 0.1
  body     OLEMACRO_CSV eval:check_olemacro_csv()
  score    OLEMACRO_CSV 0.1
});


%patterns = (
  q{ OLEMACRO }, 'OLEMACRO',
);

sarun ("-L -t < data/spam/olevbmacro/macro.eml", \&patterns_run_cb);
ok_all_patterns();
clear_pattern_counters();

%patterns = (
  q{ OLEMACRO_MALICE }, 'OLEMACRO_MALICE',
);

sarun ("-L -t < data/spam/olevbmacro/malicemacro.eml", \&patterns_run_cb);
ok_all_patterns();
clear_pattern_counters();

%patterns = (
  q{ OLEMACRO_RENAME }, 'OLEMACRO_RENAME',
);

sarun ("-L -t < data/spam/olevbmacro/renamedmacro.eml", \&patterns_run_cb);
ok_all_patterns();
clear_pattern_counters();

%patterns = (
  q{ OLEMACRO_ENCRYPTED }, 'OLEMACRO_ENCRYPTED',
);

sarun ("-L -t < data/spam/olevbmacro/encrypted.eml", \&patterns_run_cb);
ok_all_patterns();
clear_pattern_counters();

%patterns = (
  q{ OLEMACRO_ZIP_PW }, 'OLEMACRO_ZIP_PW',
);

sarun ("-L -t < data/spam/olevbmacro/zippwmacro.eml", \&patterns_run_cb);
ok_all_patterns();
clear_pattern_counters();

%patterns = ();
%anti_patterns = (
  q{ OLEMACRO }, 'OLEMACRO',
);

sarun ("-L -t < data/spam/olevbmacro/nomacro.eml", \&patterns_run_cb);
ok_all_patterns();

%patterns = ();
%anti_patterns = (
  q{ OLEMACRO_CSV }, 'OLEMACRO_CSV',
);

sarun ("-L -t < data/spam/olevbmacro/goodcsv.eml", \&patterns_run_cb);
ok_all_patterns();