[Rt-commit] r5883 - in rt/branches/3.7-EXPERIMENTAL: .

[ruz at bestpractical.com]

Author: ruz
Date: Thu Sep  7 16:38:38 2006
New Revision: 5883

Modified:
   rt/branches/3.7-EXPERIMENTAL/   (props changed)
   rt/branches/3.7-EXPERIMENTAL/lib/RT/Groups_Overlay.pm

Log:
 r3718 at cubic-pc:  cubic | 2006-09-07 23:53:59 +0400
 * make tests a little bit more reentrant
 * add additional checks


Modified: rt/branches/3.7-EXPERIMENTAL/lib/RT/Groups_Overlay.pm
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL/lib/RT/Groups_Overlay.pm	(original)
+++ rt/branches/3.7-EXPERIMENTAL/lib/RT/Groups_Overlay.pm	Thu Sep  7 16:38:38 2006
@@ -268,9 +268,11 @@
 =begin testing
 
 my $u = RT::User->new($RT::SystemUser);
-$u->Create(Name => 'Membertests');
+my ($id, $msg) = $u->Create( Name => 'Membertests'. $$ );
+ok ($id, 'created user') or diag "error: $msg";
+
 my $g = RT::Group->new($RT::SystemUser);
-my ($id, $msg) = $g->CreateUserDefinedGroup(Name => 'Membertests');
+($id, $msg) = $g->CreateUserDefinedGroup(Name => 'Membertests');
 ok ($id, $msg);
 
 my ($aid, $amsg) =$g->AddMember($u->id);
@@ -343,6 +345,7 @@
 my $RTxGroup = RT::Group->new($RT::SystemUser);
 ($id, $msg) = $RTxGroup->CreateUserDefinedGroup( Name => 'RTxGroup', Description => "RTx extension group");
 ok ($id,$msg);
+is ($RTxGroup->id, $id, "group loaded");
 
 my $RTxSysObj = {};
 bless $RTxSysObj, 'RTx::System';