Attachment #4439 for bug #6093

View | Details | Raw Unified | Return to bug 6093
Collapse All | Expand All




use Mail::SpamAssassin::HTML;
use Mail::SpamAssassin::Util;

plan tests => 98;

##############################################


ok (!$urimap{'CUMSLUTS.'});
ok (!$urimap{'CUMSLUTS..VIRGIN'});

open (IN, "<data/spam/016");
$mail = $sa->parse(\*IN);
close IN;
$msg = Mail::SpamAssassin::PerMsgStatus->new($sa, $mail);

@uris = $msg->get_uri_list();
print "got URIs: ".join (", ", @uris)."\n";
ok(@uris >= 2);
%urimap = map { $_ => 1 } @uris;
ok($urimap{'http://URI'});
ok($urimap{'http://xqr.benefitsanditsother.com/?a=552lr'});

##############################################

sub try_domains {

Lines 25-30 Link Here

(-)t/data/spam/016 (+2 lines)
25	Lower overhead allows us to provide quality drugs at much lower than normal. No dr-script required.	25	Lower overhead allows us to provide quality drugs at much lower than normal. No dr-script required.
26	Gotothis: http://xqr.benefitsanditsother.com/?a=552lr	26	Gotothis: http://xqr.benefitsanditsother.com/?a=552lr
27		27
		28	http://URI
		29
28	Cordially,	30	Cordially,
29	Tameka Otto	31	Tameka Otto
30		32

Return to bug 6093

Lines 23-29 Link Here

(-)t/uri.t (-1 / +13 lines)
23	use Mail::SpamAssassin::HTML;	23	use Mail::SpamAssassin::HTML;
24	use Mail::SpamAssassin::Util;	24	use Mail::SpamAssassin::Util;
25		25
26	plan tests => 95;	26	plan tests => 98;
27		27
28	##############################################	28	##############################################
29		29
Lines 60-65 Link Here
60	ok (!$urimap{'CUMSLUTS.'});	60	ok (!$urimap{'CUMSLUTS.'});
61	ok (!$urimap{'CUMSLUTS..VIRGIN'});	61	ok (!$urimap{'CUMSLUTS..VIRGIN'});
62		62
		63	open (IN, "<data/spam/016");
		64	$mail = $sa->parse(\*IN);
		65	close IN;
		66	$msg = Mail::SpamAssassin::PerMsgStatus->new($sa, $mail);
		67
		68	@uris = $msg->get_uri_list();
		69	print "got URIs: ".join (", ", @uris)."\n";
		70	ok(@uris >= 2);
		71	%urimap = map { $_ => 1 } @uris;
		72	ok($urimap{'http://URI'});
		73	ok($urimap{'http://xqr.benefitsanditsother.com/?a=552lr'});
		74
63	##############################################	75	##############################################
64		76
65	sub try_domains {	77	sub try_domains {