debug.t (Mail-SpamAssassin-3.4.3.tar.bz2) | : | debug.t (Mail-SpamAssassin-3.4.4.tar.bz2) | ||
---|---|---|---|---|
skipping to change at line 32 | skipping to change at line 32 | |||
use Mail::SpamAssassin; | use Mail::SpamAssassin; | |||
use Test::More; | use Test::More; | |||
plan skip_all => "Long running tests disabled" unless conf_bool('run_long_tests' ); | plan skip_all => "Long running tests disabled" unless conf_bool('run_long_tests' ); | |||
plan tests => 3; | plan tests => 3; | |||
# list of known debug facilities | # list of known debug facilities | |||
my %facility = map( ($_, 1), | my %facility = map( ($_, 1), | |||
qw( accessdb archive-iterator async auto-whitelist bayes check config daemon | qw( accessdb archive-iterator async auto-whitelist bayes check config daemon | |||
dcc dkim askdns dns eval generic https_http_mismatch facility FreeMail | dcc dkim askdns dns eval generic https_http_mismatch facility FreeMail | |||
hashcash ident ignore info ldap learn locker log logger markup | hashcash ident ignore info ldap learn locker log logger markup HashBL | |||
message metadata mimeheader netset plugin prefork progress pyzor razor2 | message metadata mimeheader netset plugin prefork progress pyzor razor2 | |||
received-header replacetags reporter rules rules-all spamd spf textcat | received-header replacetags reporter rules rules-all spamd spf textcat | |||
timing TxRep uri uridnsbl util pdfinfo asn )); | timing TxRep uri uridnsbl util pdfinfo asn )); | |||
my $fh = IO::File->new_tmpfile(); | my $fh = IO::File->new_tmpfile(); | |||
open(STDERR, ">&=".fileno($fh)) || die "Cannot reopen STDERR"; | open(STDERR, ">&=".fileno($fh)) || die "Cannot reopen STDERR"; | |||
ok(sarun("-t -D < data/spam/dnsbl.eml")); | ok(sarun("-t -D < data/spam/dnsbl.eml")); | |||
seek($fh, 0, 0); | seek($fh, 0, 0); | |||
End of changes. 1 change blocks. | ||||
1 lines changed or deleted | 1 lines changed or added |