t/strip_no_subject.t

#!/usr/bin/perl -T

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

use Test::More;
plan tests => 4;

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

use File::Copy;
use File::Compare qw(compare_text);

my $INPUT = 'data/spam/014';
my $MUNGED = "$workdir/strip_no_subject.munged";

tstprefs ("
        report_safe 1
        rewrite_header subject ***SPAM***
	");

# create report_safe 1 and -t output
sarun ("-L -t < $INPUT");
my $test_number = test_number();
if (move("$workdir/d.$testname/$test_number", $MUNGED)) {
  sarun ("-d < $MUNGED");
  ok(!compare_text($INPUT,"$workdir/d.$testname/$test_number"));
}
else {
  warn "move failed: $!\n";
  ok(0);
}

tstprefs ("
        report_safe 2
        rewrite_header subject ***SPAM***
	");

# create report_safe 2 output
sarun ("-L < $INPUT");
$test_number = test_number();
if (move("$workdir/d.$testname/$test_number", $MUNGED)) {
  sarun ("-d < $MUNGED");
  ok(!compare_text($INPUT,"$workdir/d.$testname/$test_number"));
}
else {
  warn "move failed: $!\n";
  ok(0);
}

tstprefs ("
        report_safe 0
        rewrite_header subject ***SPAM***
	");

# create report_safe 0 output
sarun ("-L < $INPUT");
$test_number = test_number();
if (move("$workdir/d.$testname/$test_number", $MUNGED)) {
  sarun ("-d < $MUNGED");
  ok(!compare_text($INPUT,"$workdir/d.$testname/$test_number"));
}
else {
  warn "move failed: $!\n";
  ok(0);
}

# Work directly on regular message, as though it was not spam
sarun ("-d < $INPUT");
$test_number = test_number();
ok(!compare_text($INPUT,"$workdir/d.$testname/$test_number"));