diff options
author | Ivan Kohler <ivan@freeside.biz> | 2013-06-04 00:21:24 -0700 |
---|---|---|
committer | Ivan Kohler <ivan@freeside.biz> | 2013-06-04 00:21:24 -0700 |
commit | 679854b8bbc65d112071111bbd7f34a6a481fb30 (patch) | |
tree | dda0862fdf7853f4f61e4cf155c8bbc93768c994 /rt/t/api/group.t | |
parent | 9b328d940af56b9924a342192ebb0790478fa705 (diff) |
RT 4.0.13
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; |