You are viewing a plain text version of this content. The canonical link for it is here.
Posted to commits@spamassassin.apache.org by km...@apache.org on 2018/06/22 18:08:57 UTC
svn commit: r1834150 - /spamassassin/trunk/t/idn_dots.t
Author: kmcgrail
Date: Fri Jun 22 18:08:56 2018
New Revision: 1834150
URL: http://svn.apache.org/viewvc?rev=1834150&view=rev
Log:
Working on idn_dots.t test failures for RC4
Modified:
spamassassin/trunk/t/idn_dots.t
Modified: spamassassin/trunk/t/idn_dots.t
URL: http://svn.apache.org/viewvc/spamassassin/trunk/t/idn_dots.t?rev=1834150&r1=1834149&r2=1834150&view=diff
==============================================================================
--- spamassassin/trunk/t/idn_dots.t (original)
+++ spamassassin/trunk/t/idn_dots.t Fri Jun 22 18:08:56 2018
@@ -19,7 +19,7 @@ if (-e 'test_dir') { # runnin
use strict;
use lib '.'; use lib 't';
-use SATest; sa_t_init("normalize_utf8_dots.t");
+use SATest; sa_t_init("idn_dots.t");
use Test::More tests => 6;
use Mail::SpamAssassin;
use vars qw(%patterns %anti_patterns);
@@ -44,6 +44,8 @@ for my $pattern (keys %patterns) {
if (!ok($uris =~ /${pattern}/m)) {
warn "failure: did not find /$pattern/\n";
$failures++;
+ #} else {
+ # warn "OK: did find /$pattern/\n";
}
}
@@ -55,7 +57,7 @@ for my $anti_pattern (keys %anti_pattern
}
if ($failures) {
- print "URIs found:\n$uris";
+ print "URIs in email from get_uri_list:\n$uris";
}
# function to write test email
@@ -76,11 +78,12 @@ EOF
my @delims = split(//, "\x{002E}\x{3002}\x{FF0E}\x{FF61}\x{FE52}\x{2024}");
my $i = 0;
- foreach my $delim_char (@delims) {
+ foreach my $delim (@delims) {
$i++;
- my $delim = $delim_char; utf8::encode($delim); # to UTF-8 octets
+ utf8::encode($delim); # to UTF-8 octets
my $string = "http://utf$i" . $delim . "example" . $delim . "com";
my @patterns = ("^http://utf$i\\.example\\.com\$");
+
if ($string && @patterns) {
$message .= "$string\n";
for my $pattern (@patterns) {