Diff of /spamassassin/trunk/t/uri_text.t

Parent Directory | Revision Log | Patch

--- spamassassin/trunk/t/uri_text.t	2005/09/14 01:51:50	280737
+++ spamassassin/trunk/t/uri_text.t	2005/09/14 01:53:11	280738
@@ -24,7 +24,7 @@ use Mail::SpamAssassin;
 use vars qw(%patterns %anti_patterns);
 
 # settings
-plan tests => 101;
+plan tests => 104;
 
 # initialize SpamAssassin
 my $sa = create_saobj({'dont_copy_prefs' => 1});
@@ -83,6 +83,7 @@ EOF
       my $string = $1;
       my @patterns = split(' ', $2);
       if ($string && @patterns) {
+        $string =~ s/{ESC}/\x1b/gs;     # magic, to avoid ^[ chars in source
         $message .= "$string\n";
         for my $pattern (@patterns) {
           if ($pattern =~ /^\!(.*)/) {
@@ -260,3 +261,7 @@ baeb1fai@@example.com			!baeb1fai@@examp
 <sentto-4934-foo=addr.com@verper.com>	!^http://.*addr.com@verper.com
 <sentto-4934-foo=addr.com@verper.com>	mailto:sentto-4934-foo=addr.com@verper.com
 
+http://foo23498.com/{ESC}(B	^http://foo23498.com/$
+{ESC}(Bhttp://foo23499.com/	^http://foo23499.com/$
+http://foo23500.com{ESC}(B/	^http://foo23500.com$
+