[Rt-commit] r9046 - in rtir/branches/2.3-EXPERIMENTAL: .

[sartak at bestpractical.com]

Author: sartak
Date: Thu Sep 13 16:30:20 2007
New Revision: 9046

Added:
   rtir/branches/2.3-EXPERIMENTAL/t/021-gnupg.t
Modified:
   rtir/branches/2.3-EXPERIMENTAL/   (props changed)

Log:
 r42656 at onn:  sartak | 2007-09-13 16:30:07 -0400
 Copy RT's t/web/gnupg-select-key-on-create and convert it to use RTIR. it explodes but it looks like it works until that point :) (explodes because RTIR doesn't use the key selection widget yet)


Added: rtir/branches/2.3-EXPERIMENTAL/t/021-gnupg.t
==============================================================================
--- (empty file)
+++ rtir/branches/2.3-EXPERIMENTAL/t/021-gnupg.t	Thu Sep 13 16:30:20 2007
@@ -0,0 +1,249 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+use Test::More tests => 46;
+use File::Temp qw(tempdir);
+
+require "t/rtir-test.pl";
+
+my $agent = default_agent();
+
+RT::Test->set_mail_catcher;
+
+RT->Config->Set( GnuPGOptions =>
+    homedir => scalar tempdir( CLEANUP => 0 ),
+    passphrase => 'rt-test',
+    'no-permission-warning' => undef,
+);
+diag "GnuPG --homedir ". RT->Config->Get('GnuPGOptions')->{'homedir'};
+
+RT->Config->Set( 'MailPlugins' => 'Auth::MailFrom', 'Auth::GnuPG' );
+
+my $queue = RT::Test->load_or_create_queue(
+    Name              => 'Incident Reports',
+    CorrespondAddress => 'rt-recipient at example.com',
+    CommentAddress    => 'rt-recipient at example.com',
+);
+ok $queue && $queue->id, 'loaded or created queue';
+
+RT::Test->set_rights(
+    Principal => 'Everyone',
+    Right => ['CreateTicket', 'ShowTicket', 'SeeQueue', 'ReplyToTicket', 'ModifyTicket'],
+);
+
+{
+    RT::Test->import_gnupg_key('rt-recipient at example.com');
+    RT::Test->trust_gnupg_key('rt-recipient at example.com');
+    my %res = RT::Crypt::GnuPG::GetKeysInfo('rt-recipient at example.com');
+    is $res{'info'}[0]{'TrustTerse'}, 'ultimate', 'ultimately trusted key';
+}
+
+diag "check that things don't work if there is no key";
+{
+    unlink "t/mailbox";
+
+    ok $agent->goto_create_ticket( $queue ), "UI -> create ticket";
+    $agent->form_number(3);
+    $agent->tick( Encrypt => 1 );
+    $agent->field( Requestors => 'rt-test at example.com' );
+    $agent->field( Content => 'Some content' );
+    $agent->submit;
+    $agent->content_like(
+        qr/You are going to encrypt outgoing email messages/i,
+        'problems with keys'
+    );
+    $agent->content_like(
+        qr/There is no key suitable for encryption/i,
+        'problems with keys'
+    );
+
+    my $form = $agent->form_number(3);
+    ok !$form->find_input( 'UseKey-rt-test at example.com' ), 'no key selector';
+
+    my @mail = RT::Test->fetch_caught_mails;
+    ok !@mail, 'there are no outgoing emails';
+}
+
+diag "import first key of rt-test\@example.com";
+my $fpr1 = '';
+{
+    RT::Test->import_gnupg_key('rt-test at example.com', 'public');
+    my %res = RT::Crypt::GnuPG::GetKeysInfo('rt-test at example.com');
+    is $res{'info'}[0]{'TrustLevel'}, 0, 'is not trusted key';
+    $fpr1 = $res{'info'}[0]{'Fingerprint'};
+}
+
+diag "check that things still doesn't work if key is not trusted";
+{
+    unlink "t/mailbox";
+
+    ok $agent->goto_create_ticket( $queue ), "UI -> create ticket";
+    $agent->form_number(3);
+    $agent->tick( Encrypt => 1 );
+    $agent->field( Requestors => 'rt-test at example.com' );
+    $agent->field( Content => 'Some content' );
+    $agent->submit;
+    $agent->content_like(
+        qr/You are going to encrypt outgoing email messages/i,
+        'problems with keys'
+    );
+    $agent->content_like(
+        qr/There is one suitable key, but trust level is not set/i,
+        'problems with keys'
+    );
+
+    my $form = $agent->form_number(3);
+    ok my $input = $form->find_input( 'UseKey-rt-test at example.com' ), 'found key selector';
+    is scalar $input->possible_values, 1, 'one option';
+
+    $agent->select( 'UseKey-rt-test at example.com' => $fpr1 );
+    $agent->submit;
+    $agent->content_like(
+        qr/You are going to encrypt outgoing email messages/i,
+        'problems with keys'
+    );
+    $agent->content_like(
+        qr/Selected key either is not trusted/i,
+        'problems with keys'
+    );
+
+    my @mail = RT::Test->fetch_caught_mails;
+    ok !@mail, 'there are no outgoing emails';
+}
+
+diag "import a second key of rt-test\@example.com";
+my $fpr2 = '';
+{
+    RT::Test->import_gnupg_key('rt-test at example.com.2', 'public');
+    my %res = RT::Crypt::GnuPG::GetKeysInfo('rt-test at example.com');
+    is $res{'info'}[1]{'TrustLevel'}, 0, 'is not trusted key';
+    $fpr2 = $res{'info'}[2]{'Fingerprint'};
+}
+
+diag "check that things still doesn't work if two keys are not trusted";
+{
+    unlink "t/mailbox";
+
+    ok $agent->goto_create_ticket( $queue ), "UI -> create ticket";
+    $agent->form_number(3);
+    $agent->tick( Encrypt => 1 );
+    $agent->field( Requestors => 'rt-test at example.com' );
+    $agent->field( Content => 'Some content' );
+    $agent->submit;
+    $agent->content_like(
+        qr/You are going to encrypt outgoing email messages/i,
+        'problems with keys'
+    );
+    $agent->content_like(
+        qr/There are several keys suitable for encryption/i,
+        'problems with keys'
+    );
+
+    my $form = $agent->form_number(3);
+    ok my $input = $form->find_input( 'UseKey-rt-test at example.com' ), 'found key selector';
+    is scalar $input->possible_values, 2, 'two options';
+
+    $agent->select( 'UseKey-rt-test at example.com' => $fpr1 );
+    $agent->submit;
+    $agent->content_like(
+        qr/You are going to encrypt outgoing email messages/i,
+        'problems with keys'
+    );
+    $agent->content_like(
+        qr/Selected key either is not trusted/i,
+        'problems with keys'
+    );
+
+    my @mail = RT::Test->fetch_caught_mails;
+    ok !@mail, 'there are no outgoing emails';
+}
+
+{
+    RT::Test->lsign_gnupg_key( $fpr1 );
+    my %res = RT::Crypt::GnuPG::GetKeysInfo('rt-test at example.com');
+    ok $res{'info'}[0]{'TrustLevel'} > 0, 'trusted key';
+    is $res{'info'}[1]{'TrustLevel'}, 0, 'is not trusted key';
+}
+
+diag "check that we see key selector even if only one key is trusted but there are more keys";
+{
+    unlink "t/mailbox";
+
+    ok $agent->goto_create_ticket( $queue ), "UI -> create ticket";
+    $agent->form_number(3);
+    $agent->tick( Encrypt => 1 );
+    $agent->field( Requestors => 'rt-test at example.com' );
+    $agent->field( Content => 'Some content' );
+    $agent->submit;
+    $agent->content_like(
+        qr/You are going to encrypt outgoing email messages/i,
+        'problems with keys'
+    );
+    $agent->content_like(
+        qr/There are several keys suitable for encryption/i,
+        'problems with keys'
+    );
+
+    my $form = $agent->form_number(3);
+    ok my $input = $form->find_input( 'UseKey-rt-test at example.com' ), 'found key selector';
+    is scalar $input->possible_values, 2, 'two options';
+
+    my @mail = RT::Test->fetch_caught_mails;
+    ok !@mail, 'there are no outgoing emails';
+}
+
+diag "check that key selector works and we can select trusted key";
+{
+    unlink "t/mailbox";
+
+    ok $agent->goto_create_ticket( $queue ), "UI -> create ticket";
+    $agent->form_number(3);
+    $agent->tick( Encrypt => 1 );
+    $agent->field( Requestors => 'rt-test at example.com' );
+    $agent->field( Content => 'Some content' );
+    $agent->submit;
+    $agent->content_like(
+        qr/You are going to encrypt outgoing email messages/i,
+        'problems with keys'
+    );
+    $agent->content_like(
+        qr/There are several keys suitable for encryption/i,
+        'problems with keys'
+    );
+
+    my $form = $agent->form_number(3);
+    ok my $input = $form->find_input( 'UseKey-rt-test at example.com' ), 'found key selector';
+    is scalar $input->possible_values, 2, 'two options';
+
+    $agent->select( 'UseKey-rt-test at example.com' => $fpr1 );
+    $agent->submit;
+    $agent->content_like( qr/Ticket \d+ created in queue/i, 'ticket created' );
+
+    my @mail = RT::Test->fetch_caught_mails;
+    ok @mail, 'there are some emails';
+    check_text_emails( { Encrypt => 1 }, @mail );
+}
+
+sub check_text_emails {
+    my %args = %{ shift @_ };
+    my @mail = @_;
+
+    ok scalar @mail, "got some mail";
+    for my $mail (@mail) {
+        if ( $args{'Encrypt'} ) {
+            unlike $mail, qr/Some content/, "outgoing email was encrypted";
+        } else {
+            like $mail, qr/Some content/, "outgoing email was not encrypted";
+        } 
+        if ( $args{'Sign'} && $args{'Encrypt'} ) {
+            like $mail, qr/BEGIN PGP MESSAGE/, 'outgoing email was signed';
+        } elsif ( $args{'Sign'} ) {
+            like $mail, qr/SIGNATURE/, 'outgoing email was signed';
+        } else {
+            unlike $mail, qr/SIGNATURE/, 'outgoing email was not signed';
+        }
+    }
+}
+
+