svn commit: rev 10164 - incubator/spamassassin/trunk/t

[qu...@apache.org]

Author: quinlan
Date: Wed Apr 21 21:21:00 2004
New Revision: 10164

Modified:
   incubator/spamassassin/trunk/t/mimeparse.t
   incubator/spamassassin/trunk/t/sha1.t
Log:
oops, forgot to check these in too


Modified: incubator/spamassassin/trunk/t/mimeparse.t
==============================================================================
--- incubator/spamassassin/trunk/t/mimeparse.t	(original)
+++ incubator/spamassassin/trunk/t/mimeparse.t	Wed Apr 21 21:21:00 2004
@@ -103,7 +103,7 @@
 	  $res = '';
 	}
 	else {
-	  $res = Mail::SpamAssassin::SHA1::SHA1($parts[0]->decode());
+	  $res = Mail::SpamAssassin::SHA1::sha1_hex($parts[0]->decode());
 	}
 	#print ">> $res\n";
         $res = $res eq $_;

Modified: incubator/spamassassin/trunk/t/sha1.t
==============================================================================
--- incubator/spamassassin/trunk/t/sha1.t	(original)
+++ incubator/spamassassin/trunk/t/sha1.t	Wed Apr 21 21:21:00 2004
@@ -27,19 +27,19 @@
 sub try {
   my ($data, $want) = @_;
 
-# test our pure perl code
+  # test our pure perl code
   my $perl_sha1 = unpack("H*", Mail::SpamAssassin::SHA1::perl_sha1($data));
 
-# test the fast version if we have it
+  # test the fast version if we have it
   my $digest_sha1;
   if (HAS_DIGEST_SHA1) {
     $digest_sha1 = Digest::SHA1::sha1_hex($data);
   }
 
-# test as it is going to be used by SpamAssassin, including hex conversion
+  # test as it is going to be used by SpamAssassin, including hex conversion
   my $sa_sha1_hex = Mail::SpamAssassin::SHA1::sha1_hex($data);
 
-# and just to be really careful explicitly test sha1bin too
+  # and just to be really careful explicitly test sha1 too
   my $sa_sha1 = unpack("H*", Mail::SpamAssassin::SHA1::sha1($data));
 
   my $failure = 0;