You are viewing a plain text version of this content. The canonical link for it is here.
Posted to commits@spamassassin.apache.org by fe...@apache.org on 2006/08/07 01:37:47 UTC
svn commit: r429212 - /spamassassin/branches/tvd-message-queue/t/mimeparse.t
Author: felicity
Date: Sun Aug 6 16:37:47 2006
New Revision: 429212
URL: http://svn.apache.org/viewvc?rev=429212&view=rev
Log:
merge up to 429211
Modified:
spamassassin/branches/tvd-message-queue/t/mimeparse.t
Modified: spamassassin/branches/tvd-message-queue/t/mimeparse.t
URL: http://svn.apache.org/viewvc/spamassassin/branches/tvd-message-queue/t/mimeparse.t?rev=429212&r1=429211&r2=429212&view=diff
==============================================================================
--- spamassassin/branches/tvd-message-queue/t/mimeparse.t (original)
+++ spamassassin/branches/tvd-message-queue/t/mimeparse.t Sun Aug 6 16:37:47 2006
@@ -110,7 +110,7 @@
close(INP);
my $res = join("\n",$mail->content_summary());
-# print "---\n$res\n---\n";
+# print "---$k---\n---\n$res\n---\n";
ok( $res eq shift @{$files{$k}} );
if ( @{$files{$k}} ) {
my @parts = $mail->find_parts(qr/./,1);
@@ -128,6 +128,7 @@
$res = Digest::SHA1::sha1_hex($parts[0]->decode());
}
# print ">> ",$parts[0]->{'type'}," = $res\n";
+# print ">> ",$parts[0]->{'type'}," expected $_\n";
$res = $res eq $_;
}
ok ( $res );