diff options
Diffstat (limited to 'rt/t/api/group.t')
-rw-r--r-- | rt/t/api/group.t | 17 |
1 files changed, 16 insertions, 1 deletions
diff --git a/rt/t/api/group.t b/rt/t/api/group.t index 3ce3da999..2c1ca73cf 100644 --- a/rt/t/api/group.t +++ b/rt/t/api/group.t @@ -2,7 +2,7 @@ use strict; use warnings; use RT; -use RT::Test nodata => 1, tests => 38; +use RT::Test nodata => 1, tests => undef; { @@ -94,3 +94,18 @@ is($u->PrincipalObj->PrincipalType , 'Group' , "Principal 4 is a group"); } +{ + my $u = RT::Group->new(RT->SystemUser); + $u->LoadUserDefinedGroup('TestGroup'); + ok( $u->id, 'loaded TestGroup' ); + ok( $u->SetName('testgroup'), 'rename to lower cased version: testgroup' ); + ok( $u->SetName('TestGroup'), 'rename back' ); + + my $u2 = RT::Group->new( RT->SystemUser ); + my ( $id, $msg ) = $u2->CreateUserDefinedGroup( Name => 'TestGroup' ); + ok( !$id, "can't create duplicated group: $msg" ); + ( $id, $msg ) = $u2->CreateUserDefinedGroup( Name => 'testgroup' ); + ok( !$id, "can't create duplicated group even case is different: $msg" ); +} + +done_testing; |