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

[sartak at bestpractical.com]

Author: sartak
Date: Fri Aug 10 13:17:49 2007
New Revision: 8497

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

Log:
 r37264 at gorgoroth:  sartak | 2007-08-10 13:17:40 -0400
 some test file fixes


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	Fri Aug 10 13:17:49 2007
@@ -23,13 +23,15 @@
 my ($baseurl, $m) = RT::Test->started_ok;
 ok(my $user = RT::User->new($RT::SystemUser));
 ok($user->Load('root'), "Loaded user 'root'");
-$user->SetEmailAddress('ternus at anduril.mit.edu');
+$user->SetEmailAddress('rt-test at example.com');
 
 my $eid = 0;
 for my $usage (qw/signed encrypted signed&encrypted/) {
     for my $format (qw/MIME inline/) {
         for my $attachment (qw/plain text-attachment binary-attachment/) {
-            my $ok = email_ok(++$eid, $usage, $format, $attachment);
+            ++$eid;
+            diag "Email $eid: $usage, $attachment email with $format key" if $ENV{TEST_VERBOSE};
+            my $ok = email_ok($eid, $usage, $format, $attachment);
             ok($ok, "$usage, $attachment email with $format key");
         }
     }
@@ -62,7 +64,7 @@
 
     my $tick = get_latest_ticket_ok();
     is( $tick->Subject,
-        "test signed message",
+        "Test Email ID:$eid",
         "Created the ticket"
     );
 
@@ -81,7 +83,7 @@
 
         #XXX: maybe RT will have already decrypted this for us
         unlike( $msg->Content,
-                qr/body text/,
+                qr/ID:$eid/,
                 'incoming mail did NOT have original body'
         );
     }
@@ -91,14 +93,14 @@
             'recorded incoming mail that is not encrypted'
         );
         like( $msg->Content || $attachments[0]->Content,
-              qr/This is a test signed message/,
+              qr/ID:$eid/,
               'got original content'
         );
     }
 
     if ($usage =~ /signed/) {
         is( $msg->GetHeader('X-RT-Incoming-Signature'),
-            'akjhsd',
+            'RT Test <rt-test at example.com>',
             'recorded incoming mail that is signed'
         );
     }