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

[ruz at bestpractical.com]

Author: ruz
Date: Tue Aug 28 14:44:48 2007
New Revision: 8797

Modified:
   rt/branches/3.7-EXPERIMENTAL/   (props changed)
   rt/branches/3.7-EXPERIMENTAL/t/web/crypt-gnupg.t

Log:
 r8730 at cubic-pc (orig r8729):  sartak | 2007-08-25 00:18:18 +0400
  r19925 at onn:  sartak | 2007-08-24 16:18:14 -0400
  Little cleanups
 


Modified: rt/branches/3.7-EXPERIMENTAL/t/web/crypt-gnupg.t
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL/t/web/crypt-gnupg.t	(original)
+++ rt/branches/3.7-EXPERIMENTAL/t/web/crypt-gnupg.t	Tue Aug 28 14:44:48 2007
@@ -117,12 +117,12 @@
     my $txn = $tick->Transactions->First;
     my ($msg, @attachments) = @{$txn->Attachments->ItemsArrayRef};
 
-    is( $msg->GetHeader('X-RT-Incoming-Encryption'),
-        'Success',
-        "RT's outgoing mail looks encrypted"
-    );
     is( $msg->GetHeader('X-RT-Privacy'),
         'PGP',
+        "RT's outgoing mail has crypto"
+    );
+    is( $msg->GetHeader('X-RT-Incoming-Encryption'),
+        'Success',
         "RT's outgoing mail looks encrypted"
     );
 
@@ -166,7 +166,7 @@
     my $body = strip_headers($mail);
 
     $mail = << "MAIL";
-Subject: RT mail sent back into RT
+Subject: More RT mail sent back into RT
 From: general\@example.com
 To: recipient\@example.com
 $mime_version
@@ -184,7 +184,7 @@
     ok ($tick->id, "loaded ticket #$id");
 
     is ($tick->Subject,
-        "RT mail sent back into RT",
+        "More RT mail sent back into RT",
         "Correct subject"
     );
 
@@ -201,7 +201,7 @@
     );
     is( $msg->GetHeader('X-RT-Incoming-Signature'),
         'general <general at example.com>',
-        "recorded incoming mail that is signed"
+        "RT's outgoing mail looks signed"
     );
 
     like($attachments[0]->Content, qr/Some other content/, "RT's mail includes copy of ticket text");