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

[sartak at bestpractical.com]

Author: sartak
Date: Wed Aug  8 14:46:11 2007
New Revision: 8448

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

Log:
 r37129 at gorgoroth:  sartak | 2007-08-08 14:46:04 -0400
 More 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	Wed Aug  8 14:46:11 2007
@@ -28,20 +28,16 @@
 $user->SetEmailAddress('recipient 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/)
-        {
+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);
             ok($ok, "$usage, $attachment email with $format key");
         }
     }
 }
 
-sub get_contents
-{
+sub get_contents {
     my $eid = shift;
 
     my $file = glob("lib/t/data/mail/$eid-*");
@@ -56,12 +52,11 @@
     return $mail;
 }
 
-sub email_ok
-{
+sub email_ok {
     my ($eid, $usage, $format, $attachment) = @_;
 
-    my $mail = get_contents($eid);
-#        or return 0;
+    my $mail = get_contents($eid)
+        or return 0;
 
     my ($status, $id) = create_ticket_via_gate($mail);
     is ($status >> 8, 0, "The mail gateway exited normally");
@@ -75,8 +70,7 @@
     my $txn = $tick->Transactions->First;
     my ($msg, @attachments) = @{$txn->Attachments->ItemsArrayRef};
 
-    if ($usage =~ /encrypted/)
-    {
+    if ($usage =~ /encrypted/) {
         is( $msg->GetHeader('X-RT-Incoming-Encryption'),
             'Success',
             'recorded incoming mail that is encrypted'
@@ -91,8 +85,7 @@
                qr/body text/,
                'incoming mail did NOT have original body');
     }
-    else
-    {
+    else {
         is( $msg->GetHeader('X-RT-Incoming-Encryption'),
             'Not encrypted',
             'recorded incoming mail that is not encrypted'
@@ -102,23 +95,20 @@
              'incoming mail had original body');
     }
 
-    if ($usage =~ /signed/)
-    {
+    if ($usage =~ /signed/) {
     }
-    else
-    {
+    else {
     }
 
-    if ($attachment =~ /attachment/)
-    {
+    if ($attachment =~ /attachment/) {
         my $attachment = $attachments[0];
+        my $file = '';
         ok ($attachment->Id, 'loaded attachment object');
         my $acontent = $attachment->Content;
         is ($acontent, $file, 'The attachment isn\'t screwed up in the database.');
 
         # signed messages should sign each attachment too
-        if ($usage =~ /signed/)
-        {
+        if ($usage =~ /signed/) {
             my $sig = $attachments[1];
             ok ($attachment->Id, 'loaded attachment.sig object');
             my $acontent = $attachment->Content;