[Rt-commit] r8751 - in rt/branches/3.7-EXPERIMENTAL-TUNIS: t/web

sartak at bestpractical.com sartak at bestpractical.com
Mon Aug 27 17:53:56 EDT 2007


Author: sartak
Date: Mon Aug 27 17:53:56 2007
New Revision: 8751

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

Log:
 r37465 at onn:  sartak | 2007-08-27 17:53:44 -0400
 Test cleanup


Modified: rt/branches/3.7-EXPERIMENTAL-TUNIS/t/web/crypt-gnupg.t
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL-TUNIS/t/web/crypt-gnupg.t	(original)
+++ rt/branches/3.7-EXPERIMENTAL-TUNIS/t/web/crypt-gnupg.t	Mon Aug 27 17:53:56 2007
@@ -1,7 +1,7 @@
 #!/usr/bin/perl -w
 use strict;
 
-use Test::More tests => 86;
+use Test::More tests => 87;
 use RT::Test;
 use RT::Action::SendEmail;
 
@@ -390,11 +390,6 @@
 $nokey->PrincipalObj->GrantRight(Right => 'CreateTicket');
 $nokey->PrincipalObj->GrantRight(Right => 'OwnTicket');
 
-my $everyone_group = RT::Group->new( $RT::SystemUser );
-$everyone_group->LoadSystemInternalGroup( 'Everyone' );
-ok($everyone_group->Id, "Found group 'everyone'");
-$everyone_group->PrincipalObj->GrantRight(Right => 'CreateTicket');
-
 my $tick = RT::Ticket->new( $RT::SystemUser );
 $tick->Create(Subject => 'owner lacks pubkey', Queue => 'general',
               Owner => $nokey);
@@ -406,8 +401,8 @@
 ok($id = $tick->id, 'created ticket for owner-with-pubkey');
 
 my $mail = << "MAIL";
-Subject: Keyless requestor
-From: keyless\@example.com
+Subject: Nokey requestor
+From: nokey\@example.com
 To: general\@example.com
 
 hello
@@ -422,7 +417,7 @@
 ok ($tick->id, "loaded ticket #$id");
 
 is ($tick->Subject,
-    "Keyless requestor",
+    "Nokey requestor",
     "Correct subject"
 );
 
@@ -437,7 +432,7 @@
 like($content, qr/OO-root-O/, "original OwnerName untouched");
 
 like($content, qr/OR-recipient\@example.com-O/, "original Requestors untouched");
-#like($content, qr/OR-nokey\@example.com-O/, "original Requestors untouched");
+like($content, qr/OR-nokey\@example.com-O/, "original Requestors untouched");
 
 like($content, qr/KO-root-K/, "KeyOwnerName does not issue no-pubkey warning for recipient");
 like($content, qr/KO-nokey \(no pubkey!\)-K/, "KeyOwnerName issues no-pubkey warning for root");
@@ -445,5 +440,5 @@
 
 like($content, qr/KR-recipient\@example.com-K/, "KeyRequestors does not issue no-pubkey warning for recipient\@example.com");
 like($content, qr/KR-general\@example.com-K/, "KeyRequestors does not issue no-pubkey warning for general\@example.com");
-#like($content, qr/KR-nokey\@example.com \(no pubkey!\)-K/, "KeyRequestors DOES issue no-pubkey warning for nokey\@example.com");
+like($content, qr/KR-nokey\@example.com \(no pubkey!\)-K/, "KeyRequestors DOES issue no-pubkey warning for nokey\@example.com");
 


More information about the Rt-commit mailing list