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

[ruz at bestpractical.com]

Author: ruz
Date: Sat Aug 18 00:14:07 2007
New Revision: 8626

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

Log:
* fix number of tests

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	Sat Aug 18 00:14:07 2007
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 use strict;
 use warnings;
-use Test::More tests => 158;
+use Test::More tests => 176;
 use File::Temp;
 use RT::Test;
 use Cwd 'getcwd';
@@ -137,7 +137,7 @@
             my $acontent = $sig->Content;
         }
 
-        my $a = grep $_->Filename, @attachments;
+        my ($a) = grep $_->Filename, @attachments;
         ok ($a && $a->Id, "$eid: found attachment with filename");
 
         my $acontent = $a->Content;