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

[ruz at bestpractical.com]

Author: ruz
Date: Fri Apr 27 19:57:38 2007
New Revision: 7712

Modified:
   rt/branches/3.7-EXPERIMENTAL/   (props changed)
   rt/branches/3.7-EXPERIMENTAL/lib/t/regression/07-rights_web.t

Log:
 r5166 at cubic-pc:  cubic | 2007-04-28 03:40:45 +0400
 * add tests descriptions


Modified: rt/branches/3.7-EXPERIMENTAL/lib/t/regression/07-rights_web.t
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL/lib/t/regression/07-rights_web.t	(original)
+++ rt/branches/3.7-EXPERIMENTAL/lib/t/regression/07-rights_web.t	Fri Apr 27 19:57:38 2007
@@ -30,10 +30,15 @@
     return @rights;
 };
 
-my $everyone = RT::Group->new( $RT::SystemUser );
-$everyone->LoadSystemInternalGroup('Everyone');
-ok(my $everyone_gid = $everyone->id, "loaded 'everyone' group");
+diag "load Everyone group" if $ENV{'TEST_VERBOSE'};
+my ($everyone, $everyone_gid);
+{
+    $everyone = RT::Group->new( $RT::SystemUser );
+    $everyone->LoadSystemInternalGroup('Everyone');
+    ok($everyone_gid = $everyone->id, "loaded 'everyone' group");
+}
 
+diag "revoke all global rights from Everyone group" if $ENV{'TEST_VERBOSE'};
 my @has = get_rights( $m, $everyone_gid, 'RT::System-1' );
 if ( @has ) {
     $m->form_number(3);
@@ -45,6 +50,7 @@
     ok(1, 'the group has no global rights');
 }
 
+diag "grant SuperUser right to everyone" if $ENV{'TEST_VERBOSE'};
 {
     $m->form_number(3);
     $m->select("GrantRight-$everyone_gid-RT::System-1", ['SuperUser']);
@@ -56,6 +62,7 @@
     is_deeply( [get_rights( $m, $everyone_gid, 'RT::System-1' )], ['SuperUser'], 'granted SuperUser right' );
 }
 
+diag "revoke the right" if $ENV{'TEST_VERBOSE'};
 {
     $m->form_number(3);
     $m->tick("RevokeRight-$everyone_gid-RT::System-1", 'SuperUser');