X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=rt%2Ft%2Fweb%2Fowner_disabled_group_19221.t;h=b71fc5b3e9a2d7a862a9b7010d8fbd3328201773;hb=833cfe5c9938d33c3e6b97ed610c25a7afa6eb04;hp=2664c5bc270bf6d57b8f24b6014e31ca2f62c03e;hpb=f3c4966ed1f6ec3db7accd6dcdd3a5a3821d72a7;p=freeside.git diff --git a/rt/t/web/owner_disabled_group_19221.t b/rt/t/web/owner_disabled_group_19221.t index 2664c5bc2..b71fc5b3e 100644 --- a/rt/t/web/owner_disabled_group_19221.t +++ b/rt/t/web/owner_disabled_group_19221.t @@ -1,4 +1,3 @@ -#!/usr/bin/env perl use strict; use warnings; @@ -123,7 +122,7 @@ diag "Check WithMember and WithoutMember recursively"; { my $with = RT::Groups->new( RT->SystemUser ); $with->WithMember( PrincipalId => $user->PrincipalObj->Id, Recursively => 1 ); - $with->Limit( FIELD => 'domain', OPERATOR => '=', VALUE => 'UserDefined' ); + $with->LimitToUserDefinedGroups; is_deeply( [map {$_->Name} @{$with->ItemsArrayRef}], ['Disabled Group','Supergroup'], @@ -132,7 +131,7 @@ diag "Check WithMember and WithoutMember recursively"; my $without = RT::Groups->new( RT->SystemUser ); $without->WithoutMember( PrincipalId => $user->PrincipalObj->Id, Recursively => 1 ); - $without->Limit( FIELD => 'domain', OPERATOR => '=', VALUE => 'UserDefined' ); + $without->LimitToUserDefinedGroups; is_deeply( [map {$_->Name} @{$without->ItemsArrayRef}], [],