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

[ruz at bestpractical.com]

Author: ruz
Date: Sat Aug 18 03:52:54 2007
New Revision: 8634

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

Log:
* add a little bit of debug info

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 03:52:54 2007
@@ -44,7 +44,7 @@
     for my $format (qw/MIME inline/) {
         for my $attachment (qw/plain text-attachment binary-attachment/) {
             ++$eid;
-            diag "Email $eid: $usage, $attachment email with $format key" if $ENV{TEST_VERBOSE};
+            diag "Email $eid: $usage, $attachment email with $format format" if $ENV{TEST_VERBOSE};
             eval { email_ok($eid, $usage, $format, $attachment) };
         }
     }
@@ -75,11 +75,11 @@
 
     my ($status, $id) = RT::Test->send_via_mailgate($mail);
     is ($status >> 8, 0, "$eid: The mail gateway exited normally");
-    ok ($id, 'got id of a newly created ticket');
+    ok ($id, "$eid: got id of a newly created ticket - $id");
 
     my $tick = RT::Ticket->new( $RT::SystemUser );
     $tick->Load( $id );
-    ok ($tick->id, 'loaded ticket');
+    ok ($tick->id, "$eid: loaded ticket #$id");
 
     is ($tick->Subject,
         "Test Email ID:$eid",