[Rt-commit] r8547 - in rt/branches/3.7-EXPERIMENTAL-TUNIS: .

[sartak at bestpractical.com]

Author: sartak
Date: Tue Aug 14 13:27:39 2007
New Revision: 8547

Modified:
   rt/branches/3.7-EXPERIMENTAL-TUNIS/   (props changed)
   rt/branches/3.7-EXPERIMENTAL-TUNIS/t/mail/gnupg-realmail.t

Log:
 r37405 at gorgoroth:  sartak | 2007-08-14 13:26:58 -0400
 Fill in the right expected md5 of the binary file


Modified: rt/branches/3.7-EXPERIMENTAL-TUNIS/t/mail/gnupg-realmail.t
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL-TUNIS/t/mail/gnupg-realmail.t	(original)
+++ rt/branches/3.7-EXPERIMENTAL-TUNIS/t/mail/gnupg-realmail.t	Tue Aug 14 13:27:39 2007
@@ -7,7 +7,7 @@
 use Cwd 'getcwd';
 use String::ShellQuote 'shell_quote';
 use IPC::Run3 'run3';
-use Digest::MD5 qw(md5_base64);
+use Digest::MD5 qw(md5_hex);
 
 my $homedir = File::Spec->catdir( getcwd(), qw(lib t data crypt-gnupg-realmail) );
 
@@ -137,7 +137,7 @@
         my $acontent = $a->Content;
         if ($attachment =~ /binary/)
         {
-            is(md5_base64($acontent), '', "The binary attachment's md5sum matches");
+            is(md5_hex($acontent), '1e35f1aa90c98ca2bab85c26ae3e1ba7', "The binary attachment's md5sum matches");
         }
         else
         {