mirror of
https://git.proxmox.com/git/proxmox-spamassassin
synced 2025-04-28 16:01:29 +00:00
51 lines
1.4 KiB
Perl
Executable File
51 lines
1.4 KiB
Perl
Executable File
#!/usr/bin/perl -w -T
|
|
|
|
use strict;
|
|
use lib '.'; use lib 't';
|
|
use SATest; sa_t_init("body_mod");
|
|
use Test::More tests => 3;
|
|
|
|
use Mail::SpamAssassin;
|
|
|
|
# ---------------------------------------------------------------------------
|
|
|
|
# initialize SpamAssassin
|
|
my $sa = create_saobj({'dont_copy_prefs' => 1});
|
|
|
|
$sa->init(0); # parse rules
|
|
|
|
open (IN, "<data/spam/006");
|
|
my $mail = $sa->parse(\*IN);
|
|
close IN;
|
|
my $msg = Mail::SpamAssassin::PerMsgStatus->new($sa, $mail);
|
|
|
|
my $decoded_pre = join ('||', @{$msg->get_decoded_body_text_array()});
|
|
my $stripped_pre = join ('||', @{$msg->get_decoded_stripped_body_text_array()});
|
|
|
|
$msg->check();
|
|
|
|
my $decoded_post = join ('||', @{$msg->get_decoded_body_text_array()});
|
|
my $stripped_post = join ('||', @{$msg->get_decoded_stripped_body_text_array()});
|
|
|
|
my $hits = join (' ', $msg->get_names_of_tests_hit());
|
|
print "hit rules: $hits\n";
|
|
ok ($hits ne '');
|
|
|
|
if ($decoded_pre eq $decoded_post) {
|
|
print "decoded: body renderings identical pre and post scan\n";
|
|
ok (1);
|
|
} else {
|
|
print "decoded: body renderings DIFFER pre and post scan\n";
|
|
print "decoded: pre=".$decoded_pre." post=".$decoded_post."\n\n";
|
|
ok (0);
|
|
}
|
|
|
|
if ($stripped_pre eq $stripped_post) {
|
|
print "stripped: body renderings identical pre and post scan\n";
|
|
ok (1);
|
|
} else {
|
|
print "stripped: body renderings DIFFER pre and post scan\n";
|
|
print "stripped: pre=".$stripped_pre." post=".$stripped_post."\n\n";
|
|
ok (0);
|
|
}
|