[otrs-cvs] CVS: otrs/scripts/test Group.t,1.2,1.3
cvs-log at otrs.org
cvs-log at otrs.org
Tue Jul 11 14:16:30 CEST 2006
Update of /home/cvs/otrs/scripts/test
In directory lancelot:/tmp/cvs-serv24688/scripts/test
Modified Files:
Group.t
Log Message:
add a lot of tests
Index: Group.t
===================================================================
RCS file: /home/cvs/otrs/scripts/test/Group.t,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -r1.2 -r1.3
*** Group.t 9 Mar 2006 14:00:57 -0000 1.2
--- Group.t 11 Jul 2006 11:16:28 -0000 1.3
***************
*** 11,21 ****
use Kernel::System::Group;
$Self->{GroupObject} = Kernel::System::Group->new(%{$Self});
! my $GroupRand = 'example-group'.int(rand(1000000));
! my $GroupID = $Self->{GroupObject}->GroupAdd(
! Name => $GroupRand,
ValidID => 1,
UserID => 1,
--- 11,95 ----
use Kernel::System::Group;
+ use Kernel::System::User;
$Self->{GroupObject} = Kernel::System::Group->new(%{$Self});
+ $Self->{UserObject} = Kernel::System::User->new(%{$Self});
! # add tree users
! my $UserRand1 = 'example-user'.int(rand(1000000));
! my $UserRand2 = 'example-user'.int(rand(1000000));
! my $UserRand3 = 'example-user'.int(rand(1000000));
!
! my $UserID1 = $Self->{UserObject}->UserAdd(
! Firstname => 'Test1',
! Lastname => 'Test1',
! Login => $UserRand1,
! Email => $UserRand1 . '@example.com',
! ValidID => 1,
! UserID => 1,
! );
!
! $Self->True(
! $UserID1,
! 'UserAdd1()',
! );
!
! my $UserID2 = $Self->{UserObject}->UserAdd(
! Firstname => 'Test2',
! Lastname => 'Test2',
! Login => $UserRand2,
! Email => $UserRand2 . '@example.com',
! ValidID => 1,
! UserID => 1,
! );
!
! $Self->True(
! $UserID2,
! 'UserAdd2()',
! );
!
! my $UserID3 = $Self->{UserObject}->UserAdd(
! Firstname => 'Test3',
! Lastname => 'Test3',
! Login => $UserRand3,
! Email => $UserRand3 . '@example.com',
! ValidID => 1,
! UserID => 1,
! );
!
! $Self->True(
! $UserID3,
! 'UserAdd3()',
! );
!
! # add tree groups
! my $GroupRand1 = 'example-group1'.int(rand(1000000));
! my $GroupRand2 = 'example-group1'.int(rand(1000000));
! my $GroupRand3 = 'example-group1'.int(rand(1000000));
!
! my $GroupID1 = $Self->{GroupObject}->GroupAdd(
! Name => $GroupRand1,
! ValidID => 1,
! UserID => 1,
! );
!
! $Self->True(
! $GroupID1,
! 'GroupAdd1()',
! );
!
! my $GroupID2 = $Self->{GroupObject}->GroupAdd(
! Name => $GroupRand2,
! ValidID => 1,
! UserID => 1,
! );
!
! $Self->True(
! $GroupID2,
! 'GroupAdd2()',
! );
! my $GroupID3 = $Self->{GroupObject}->GroupAdd(
! Name => $GroupRand3,
ValidID => 1,
UserID => 1,
***************
*** 23,40 ****
$Self->True(
! $GroupID,
! 'GroupAdd()',
);
! my %Group = $Self->{GroupObject}->GroupGet(ID => $GroupID);
$Self->True(
! $Group{Name} eq $GroupRand,
'GroupGet()',
);
my $GroupUpdate = $Self->{GroupObject}->GroupUpdate(
! ID => $GroupID,
! Name => $GroupRand."1",
ValidID => 1,
UserID => 1,
--- 97,116 ----
$Self->True(
! $GroupID3,
! 'GroupAdd3()',
);
! # get data of Group1
! my %Group = $Self->{GroupObject}->GroupGet(ID => $GroupID1);
$Self->True(
! $Group{Name} eq $GroupRand1,
'GroupGet()',
);
+ # update Group1
my $GroupUpdate = $Self->{GroupObject}->GroupUpdate(
! ID => $GroupID1,
! Name => $GroupRand1."1",
ValidID => 1,
UserID => 1,
***************
*** 46,68 ****
);
! %Group = $Self->{GroupObject}->GroupGet(ID => $GroupID);
$Self->True(
! $Group{Name} eq $GroupRand."1",
'GroupGet()',
);
my %Groups = $Self->{GroupObject}->GroupList(Valid => 1);
$Self->True(
! $Groups{$GroupID},
'GroupList()',
);
! my $RoleRand = 'example-role'.int(rand(1000000));
! my $RoleID = $Self->{GroupObject}->RoleAdd(
! Name => $RoleRand,
ValidID => 1,
UserID => 1,
--- 122,170 ----
);
! # get data of updated Group1
! %Group = $Self->{GroupObject}->GroupGet(ID => $GroupID1);
$Self->True(
! $Group{Name} eq $GroupRand1."1",
'GroupGet()',
);
+ # get list of valid groups
my %Groups = $Self->{GroupObject}->GroupList(Valid => 1);
$Self->True(
! $Groups{$GroupID1},
'GroupList()',
);
+ # add tree roles
+ my $RoleRand1 = 'example-role1'.int(rand(1000000));
+ my $RoleRand2 = 'example-role2'.int(rand(1000000));
+ my $RoleRand3 = 'example-role3'.int(rand(1000000));
+
+ my $RoleID1 = $Self->{GroupObject}->RoleAdd(
+ Name => $RoleRand1,
+ ValidID => 1,
+ UserID => 1,
+ );
+
+ $Self->True(
+ $RoleID1,
+ 'RoleAdd1()',
+ );
+
+ my $RoleID2 = $Self->{GroupObject}->RoleAdd(
+ Name => $RoleRand2,
+ ValidID => 1,
+ UserID => 1,
+ );
! $Self->True(
! $RoleID2,
! 'RoleAdd2()',
! );
! my $RoleID3 = $Self->{GroupObject}->RoleAdd(
! Name => $RoleRand3,
ValidID => 1,
UserID => 1,
***************
*** 70,87 ****
$Self->True(
! $RoleID,
! 'RoleAdd()',
);
! my %Role = $Self->{GroupObject}->RoleGet(ID => $RoleID);
$Self->True(
! $Role{Name} eq $RoleRand,
'RoleGet()',
);
my $RoleUpdate = $Self->{GroupObject}->RoleUpdate(
! ID => $RoleID,
! Name => $RoleRand."1",
ValidID => 1,
UserID => 1,
--- 172,191 ----
$Self->True(
! $RoleID3,
! 'RoleAdd3()',
);
! # get data of Role1
! my %Role = $Self->{GroupObject}->RoleGet(ID => $RoleID1);
$Self->True(
! $Role{Name} eq $RoleRand1,
'RoleGet()',
);
+ # update Role1
my $RoleUpdate = $Self->{GroupObject}->RoleUpdate(
! ID => $RoleID1,
! Name => $RoleRand1."1",
ValidID => 1,
UserID => 1,
***************
*** 93,111 ****
);
! %Role = $Self->{GroupObject}->RoleGet(ID => $RoleID);
$Self->True(
! $Role{Name} eq $RoleRand."1",
'RoleGet()',
);
my %Roles = $Self->{GroupObject}->RoleList(Valid => 1);
$Self->True(
! $Roles{$RoleID},
'RoleList()',
);
1;
--- 197,471 ----
);
! # get data of updated Role1
! %Role = $Self->{GroupObject}->RoleGet(ID => $RoleID1);
$Self->True(
! $Role{Name} eq $RoleRand1."1",
'RoleGet()',
);
+ # get list of Roles
my %Roles = $Self->{GroupObject}->RoleList(Valid => 1);
$Self->True(
! $Roles{$RoleID1},
'RoleList()',
);
+ # add User1 to Group1
+ $Self->{GroupObject}->GroupMemberAdd(
+ GID => $GroupID1,
+ UID => $UserID1,
+ Permission => {
+ ro => 1,
+ move_into => 1,
+ create => 1,
+ owner => 1,
+ priority => 0,
+ rw => 0,
+ },
+ UserID => 1,
+ );
+ # add User2 to Group1
+ $Self->{GroupObject}->GroupMemberAdd(
+ GID => $GroupID1,
+ UID => $UserID2,
+ Permission => {
+ ro => 1,
+ move_into => 1,
+ create => 1,
+ owner => 1,
+ priority => 0,
+ rw => 1,
+ },
+ UserID => 1,
+ );
+ # add User3 to Group2
+ $Self->{GroupObject}->GroupMemberAdd(
+ GID => $GroupID2,
+ UID => $UserID3,
+ Permission => {
+ ro => 1,
+ move_into => 1,
+ create => 1,
+ owner => 1,
+ priority => 0,
+ rw => 0,
+ },
+ UserID => 1,
+ );
+
+ # add User1 to Role1
+ $Self->{GroupObject}->GroupUserRoleMemberAdd(
+ UID => $UserID1,
+ RID => $RoleID1,
+ Active => 1,
+ UserID => 1,
+ );
+ # add User2 to Role2
+ $Self->{GroupObject}->GroupUserRoleMemberAdd(
+ UID => $UserID2,
+ RID => $RoleID2,
+ Active => 1,
+ UserID => 1,
+ );
+ # add User3 to Role2
+ $Self->{GroupObject}->GroupUserRoleMemberAdd(
+ UID => $UserID3,
+ RID => $RoleID2,
+ Active => 1,
+ UserID => 1,
+ );
+
+ # add Group1 to Role1
+ $Self->{GroupObject}->GroupRoleMemberAdd(
+ GID => $GroupID1,
+ RID => $RoleID1,
+ Permission => {
+ ro => 1,
+ move_into => 1,
+ create => 1,
+ owner => 1,
+ priority => 0,
+ rw => 0,
+ },
+ UserID => 1,
+ );
+ # add Group3 to Role2
+ $Self->{GroupObject}->GroupRoleMemberAdd(
+ GID => $GroupID3,
+ RID => $RoleID2,
+ Permission => {
+ ro => 1,
+ move_into => 1,
+ create => 1,
+ owner => 1,
+ priority => 0,
+ rw => 0,
+ },
+ UserID => 1,
+ );
+
+ # check groupmembers of User1
+ my %MemberList1 = $Self->{GroupObject}->GroupMemberList(
+ UserID => $UserID1,
+ Type => 'ro',
+ Result => 'HASH',
+ );
+ my $GroupMemberList1 = 1;
+ foreach (keys %MemberList1) {
+ if ($_ ne $GroupID1) {
+ $GroupMemberList1 = 0;
+ }
+ }
+ $Self->True(
+ $GroupMemberList1,
+ 'GroupMemberList1()',
+ );
+
+ # check groupmembers of User2
+ my %MemberList2 = $Self->{GroupObject}->GroupMemberList(
+ UserID => $UserID2,
+ Type => 'ro',
+ Result => 'HASH',
+ );
+ my $GroupMemberList2 = 1;
+ foreach (keys %MemberList2) {
+ if ($_ ne $GroupID1 && $_ ne $GroupID3) {
+ $GroupMemberList2 = 0;
+ }
+ }
+ if (!$MemberList2{$GroupID1} || !$MemberList2{$GroupID3}) {
+ $GroupMemberList2 = 0;
+ }
+ $Self->True(
+ $GroupMemberList2,
+ 'GroupMemberList2()',
+ );
+
+ # check groupmembers of User3
+ my %MemberList3 = $Self->{GroupObject}->GroupMemberList(
+ UserID => $UserID3,
+ Type => 'ro',
+ Result => 'HASH',
+ );
+ my $GroupMemberList3 = 1;
+ foreach (keys %MemberList3) {
+ if ($_ ne $GroupID2 && $_ ne $GroupID3) {
+ $GroupMemberList3 = 0;
+ }
+ }
+ if (!$MemberList3{$GroupID2} || !$MemberList3{$GroupID3}) {
+ $GroupMemberList3 = 0;
+ }
+ $Self->True(
+ $GroupMemberList3,
+ 'GroupMemberList3()',
+ );
+
+ # check groupmembers of Group1
+ my %MemberList4 = $Self->{GroupObject}->GroupMemberList(
+ GroupID => $GroupID1,
+ Type => 'ro',
+ Result => 'HASH',
+ );
+ my $GroupMemberList4 = 1;
+ foreach (keys %MemberList4) {
+ if ($_ ne $UserID1 && $_ ne $UserID2) {
+ $GroupMemberList4 = 0;
+ }
+ }
+ if (!$MemberList4{$UserID1} || !$MemberList4{$UserID2}) {
+ $GroupMemberList4 = 0;
+ }
+ $Self->True(
+ $GroupMemberList4,
+ 'GroupMemberList4()',
+ );
+
+ # check groupmembers of Group2
+ my %MemberList5 = $Self->{GroupObject}->GroupMemberList(
+ GroupID => $GroupID2,
+ Type => 'ro',
+ Result => 'HASH',
+ );
+ my $GroupMemberList5 = 1;
+ foreach (keys %MemberList5) {
+ if ($_ ne $UserID3) {
+ $GroupMemberList5 = 0;
+ }
+ }
+ $Self->True(
+ $GroupMemberList5,
+ 'GroupMemberList5()',
+ );
+ # check groupmembers of Group3
+ my %MemberList6 = $Self->{GroupObject}->GroupMemberList(
+ GroupID => $GroupID3,
+ Type => 'ro',
+ Result => 'HASH',
+ );
+ my $GroupMemberList6 = 1;
+ foreach (keys %MemberList6) {
+ if ($_ ne $UserID2 && $_ ne $UserID3) {
+ $GroupMemberList6 = 0;
+ }
+ }
+ if (!$MemberList6{$UserID2} || !$MemberList6{$UserID3}) {
+ $GroupMemberList6 = 0;
+ }
+ $Self->True(
+ $GroupMemberList6,
+ 'GroupMemberList6()',
+ );
+
+ # check involved users of User1
+ my @InvolvedList1 = $Self->{GroupObject}->GroupMemberInvolvedList(
+ UserID => $UserID1,
+ Type => 'ro',
+ );
+ my $GroupMemberInvolvedList1 = 1;
+ foreach (@InvolvedList1) {
+ if ($_ ne $UserID1 && $_ ne $UserID2) {
+ $GroupMemberInvolvedList1 = 0;
+ }
+ }
+ $Self->True(
+ $GroupMemberInvolvedList1,
+ 'GroupMemberInvolvedList1()',
+ );
+
+ # check involved users of User2
+ my @InvolvedList2 = $Self->{GroupObject}->GroupMemberInvolvedList(
+ UserID => $UserID2,
+ Type => 'ro',
+ );
+ my $GroupMemberInvolvedList2 = 1;
+ foreach (@InvolvedList2) {
+ if ($_ ne $UserID1 && $_ ne $UserID2 && $_ ne $UserID3) {
+ $GroupMemberInvolvedList2 = 0;
+ }
+ }
+ $Self->True(
+ $GroupMemberInvolvedList2,
+ 'GroupMemberInvolvedList2()',
+ );
+
+ # check involved users of User3
+ my @InvolvedList3 = $Self->{GroupObject}->GroupMemberInvolvedList(
+ UserID => $UserID3,
+ Type => 'ro',
+ );
+ my $GroupMemberInvolvedList3 = 1;
+ foreach (@InvolvedList3) {
+ if ($_ ne $UserID2 && $_ ne $UserID3) {
+ $GroupMemberInvolvedList3 = 0;
+ }
+ }
+ $Self->True(
+ $GroupMemberInvolvedList3,
+ 'GroupMemberInvolvedList3()',
+ );
1;
More information about the cvs-log
mailing list