Index: t/uri.t =================================================================== --- t/uri.t (revision 763119) +++ t/uri.t (working copy) @@ -23,7 +23,7 @@ use Mail::SpamAssassin::HTML; use Mail::SpamAssassin::Util; -plan tests => 95; +plan tests => 98; ############################################## @@ -60,6 +60,18 @@ ok (!$urimap{'CUMSLUTS.'}); ok (!$urimap{'CUMSLUTS..VIRGIN'}); +open (IN, "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 { Index: t/data/spam/016 =================================================================== --- t/data/spam/016 (revision 763119) +++ t/data/spam/016 (working copy) @@ -25,6 +25,8 @@ Lower overhead allows us to provide quality drugs at much lower than normal. No dr-script required. Gotothis: http://xqr.benefitsanditsother.com/?a=552lr +http://URI + Cordially, Tameka Otto