[Rt-commit] rt branch, 4.6/core-group-management-extensions, repushed

[Blaine Motsinger]

The branch 4.6/core-group-management-extensions was deleted and repushed:
       was 9f3411de3bcc09684d6178313b841a980d3e6ee4
       now 66eba1da7d69cda60114a1aa9b2a32d24be074d2

1: b2bfbb828 = 1: b2bfbb828 Core RT-Extension-GroupLinks
2: 8cf9b02ec = 2: 8cf9b02ec Core RT-Extension-GroupSummary
3: ac9f144ec = 3: ac9f144ec Core RT-Extension-GroupSelfService
4: d9400a7e1 = 4: d9400a7e1 Add note to UPGRADING-4.6 for callback changes
5: 5890cce52 = 5: 5890cce52 Remove hardcoded custom field values in tests
6: 2996707be = 6: 2996707be Update test for new group nav links
7: 9f3411de3 ! 7: 66eba1da7 Add test for group summary
    @@ -1,75 +1,6 @@
     Author: Blaine Motsinger <blaine at bestpractical.com>
     
    -    Add tests for group summary and selfservice
    -
    -diff --git a/t/web/group_listing_selfservice.t b/t/web/group_listing_selfservice.t
    -new file mode 100644
    ---- /dev/null
    -+++ b/t/web/group_listing_selfservice.t
    -@@
    -+use strict;
    -+use warnings;
    -+
    -+use RT::Test tests => undef;
    -+
    -+my ( $ret, $msg );
    -+
    -+diag( 'creating and setting up group' );
    -+my $group_name = 'user-group';
    -+my $group_obj = RT::Group->new( RT->SystemUser );
    -+ok( $group_obj->CreateUserDefinedGroup( Name => $group_name, Description => 'group listing self-service testing' ),
    -+    "created group $group_name" );
    -+
    -+foreach my $right ( 'CreateTicket', 'SeeQueue', 'ShowTicket', 'SeeSelfServiceGroupTicket', 'SeeGroup' ) {
    -+    ok( $group_obj->PrincipalObj->GrantRight( Right => $right, Object => RT->System ),
    -+        "added right $right to group $group_name" );
    -+}
    -+
    -+my $queue = RT::Test->load_or_create_queue( Name => 'General' );
    -+
    -+my @users = ( 'user-one', 'user-two' );
    -+
    -+diag( 'creating users and tickets' );
    -+foreach my $name ( @users ) {
    -+    my $user_obj = RT::User->new( RT->SystemUser );
    -+
    -+    ok( $user_obj->Create( EmailAddress => $name . '@example.com',
    -+                           Name => $name,
    -+                           Password => 'password' ), "created user $name" );
    -+
    -+    ok( $group_obj->AddMember( $user_obj->PrincipalId ), "added user $name to group $group_name" );
    -+    ok( $group_obj->HasMemberRecursively( $user_obj->PrincipalId ), "group $group_name has member $name" );
    -+
    -+    my $ticket = RT::Ticket->new( $user_obj );
    -+    ok( $ticket->Create( Queue => $queue->Id,
    -+                         Subject => "ticket as $name" ), "created ticket as user $name" );
    -+}
    -+
    -+diag( 'creating tickets with GroupCc' );
    -+my $root_user_obj = RT::User->new( RT->SystemUser );
    -+( $ret, $msg ) = $root_user_obj->Load( 'root' );
    -+my $ticket = RT::Ticket->new( $root_user_obj );
    -+ok( $ticket->Create( Queue => $queue->Id,
    -+                     Subject => 'ticket as root with GroupCc',
    -+                     AddGroupCc => $group_obj->Id ), 'created ticket as root with GroupCc' );
    -+
    -+diag( 'testing self-service with users' );
    -+my ( $baseurl, $m ) = RT::Test->started_ok;
    -+foreach my $name ( @users ) {
    -+    ok( $m->login( $name, 'password' ), "logged in as user $name" );
    -+
    -+    foreach my $section ( 'My open tickets', 'My group's tickets' ) {
    -+        $m->content_contains( $section, "\"$section\" section is present on the self-service page" );
    -+    }
    -+
    -+    foreach my $user ( @users, 'root' ) {
    -+        $m->content_contains( "ticket as $user", "$user\'s ticket is present on the self-service page" );
    -+    }
    -+
    -+    ok( $m->logout(), "logged out user $name" );
    -+}
    -+
    -+done_testing();
    +    Add test for group summary
     
     diff --git a/t/web/group_summary.t b/t/web/group_summary.t
     new file mode 100644