strip_no_subject.t [plain text]
use lib '.'; use lib 't';
use SATest; sa_t_init("strip_no_subject");
use Test; BEGIN { plan tests => 4 };
use File::Copy;
use File::Compare qw(compare_text);
my $INPUT = 'data/spam/014';
my $MUNGED = 'log/strip_no_subject.munged';
tstprefs ("
$default_cf_lines
report_safe 1
rewrite_header subject ***SPAM***
");
sarun ("-L -t < $INPUT");
if (move("log/d.$testname/${Test::ntest}", $MUNGED)) {
sarun ("-d < $MUNGED");
ok(!compare_text($INPUT,"log/d.$testname/${Test::ntest}"));
}
else {
warn "move failed: $!\n";
ok(0);
}
tstprefs ("
$default_cf_lines
report_safe 2
rewrite_header subject ***SPAM***
");
sarun ("-L < $INPUT");
if (move("log/d.$testname/${Test::ntest}", $MUNGED)) {
sarun ("-d < $MUNGED");
ok(!compare_text($INPUT,"log/d.$testname/${Test::ntest}"));
}
else {
warn "move failed: $!\n";
ok(0);
}
tstprefs ("
$default_cf_lines
report_safe 0
rewrite_header subject ***SPAM***
");
sarun ("-L < $INPUT");
if (move("log/d.$testname/${Test::ntest}", $MUNGED)) {
sarun ("-d < $MUNGED");
ok(!compare_text($INPUT,"log/d.$testname/${Test::ntest}"));
}
else {
warn "move failed: $!\n";
ok(0);
}
sarun ("-d < $INPUT");
ok(!compare_text($INPUT,"log/d.$testname/${Test::ntest}"));