razor2.t   [plain text]

#!/usr/bin/perl

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

use constant TEST_ENABLED => (-e 't/do_net');
use constant HAS_RAZOR2 => eval { require Razor2::Client::Agent; };

use Test;

BEGIN {
  plan tests => ((TEST_ENABLED && HAS_RAZOR2) ? 2 : 0),
  onfail => sub {
    warn "\n\nNote: this may not be an SpamAssassin bug, as Razor tests can" .
	"\nfail due to problems with the Razor servers.\n\n";
  }
};

exit unless (TEST_ENABLED && HAS_RAZOR2);

# ---------------------------------------------------------------------------

my $ident = $ENV{'HOME'}.'/.razor/identity';
if (! -r $ident) {
  $razor_not_available = "razor-register has not been run, or $ident is unreadable.";
}

%patterns = (
	q{ Listed in Razor2 }, 'spam',
            );

if (! $razor_not_available) {
  system ("razor-report < data/spam/001");
  if (($? >> 8) != 0) {
    warn "'razor-report < data/spam/001' failed. This may cause this test to fail.\n";
  }
}

sarun ("-t < data/spam/001", \&patterns_run_cb);
skip_all_patterns($razor_not_available);

%patterns = ();
%anti_patterns = (
	q{ Listed in Razor2 }, 'nonspam',
		 );

sarun ("-t < data/nice/001", \&patterns_run_cb);
skip_all_patterns($razor_not_available);