[Rt-commit] r8603 - rt/branches/3.7-EXPERIMENTAL-TUNIS/t/mail

[ruz at bestpractical.com]

Author: ruz
Date: Thu Aug 16 21:30:21 2007
New Revision: 8603

Modified:
   rt/branches/3.7-EXPERIMENTAL-TUNIS/t/mail/gnupg-realmail.t

Log:
* instead of popping an attachment object, let's find object with a filename,


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	Thu Aug 16 21:30:21 2007
@@ -137,9 +137,9 @@
             my $acontent = $sig->Content;
         }
 
-        my $a = pop @attachments;
-        my $file = '';
-        ok ($a->Id, "$eid: loaded attachment object");
+        my $a = grep $_->Filename, @attachments;
+        ok ($a && $a->Id, "$eid: found attachment with filename");
+
         my $acontent = $a->Content;
         if ($attachment =~ /binary/)
         {