-
-my $u = RT::User->new($RT::SystemUser);
-my ($id, $msg) = $u->Create( Name => 'Membertests'. $$ );
-ok ($id, 'created user') or diag "error: $msg";
-
-my $g = RT::Group->new($RT::SystemUser);
-($id, $msg) = $g->CreateUserDefinedGroup(Name => 'Membertests');
-ok ($id, $msg);
-
-my ($aid, $amsg) =$g->AddMember($u->id);
-ok ($aid, $amsg);
-ok($g->HasMember($u->PrincipalObj),"G has member u");
-
-my $groups = RT::Groups->new($RT::SystemUser);
-$groups->LimitToUserDefinedGroups();
-$groups->WithMember(PrincipalId => $u->id);
-is ($groups->Count , 1,"found the 1 group - " . $groups->Count);
-is ($groups->First->Id , $g->Id, "it's the right one");
-
-
+ my $u = RT::User->new(RT->SystemUser);
+ my ($id, $msg) = $u->Create( Name => 'Membertests'. $$ );
+ ok ($id, 'created user') or diag "error: $msg";
+
+ my $g = RT::Group->new(RT->SystemUser);
+ ($id, $msg) = $g->CreateUserDefinedGroup(Name => 'Membertests');
+ ok ($id, $msg);
+
+ my ($aid, $amsg) =$g->AddMember($u->id);
+ ok ($aid, $amsg);
+ ok($g->HasMember($u->PrincipalObj),"G has member u");
+
+ my $groups = RT::Groups->new(RT->SystemUser);
+ $groups->LimitToUserDefinedGroups();
+ $groups->WithMember(PrincipalId => $u->id);
+ is ($groups->Count , 1,"found the 1 group - " . $groups->Count);
+ is ($groups->First->Id , $g->Id, "it's the right one");