oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix User.t so that it will tolerate 1 second variances in update times

Browse source
This commit is contained in:
Colin Kuskie 2006-06-02 18:06:46 +00:00
parent 31cdc08f9d
commit fa4fe985ae
1 changed files with 6 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

12
t/User.t
View file

@ -39,7 +39,7 @@ ok(scalar %{$user->{_profile}} > 0, 'new("new") -- profile property contains at
$lastUpdate = time(); $lastUpdate = time();
$user->username("bill_lumberg"); $user->username("bill_lumberg");
is($user->username, "bill_lumberg", 'username() method'); is($user->username, "bill_lumberg", 'username() method');
is($user->lastUpdated, $lastUpdate, 'lastUpdated() -- username change'); ok(abs($user->lastUpdated-$lastUpdate) < 1, 'lastUpdated() -- username change');
#Let's check the UID and make sure it's sane #Let's check the UID and make sure it's sane
ok($user->userId =~ m/[A-Za-z0-9\-\_]{22}/, 'userId() returns sane value'); ok($user->userId =~ m/[A-Za-z0-9\-\_]{22}/, 'userId() returns sane value');
@ -53,7 +53,7 @@ foreach my $groupId (2,7) {
$lastUpdate = time(); $lastUpdate = time();
$user->status('Active'); $user->status('Active');
is($user->status, "Active", 'status("Active")'); is($user->status, "Active", 'status("Active")');
is($user->lastUpdated, $lastUpdate, 'lastUpdated() -- status change'); ok(abs($user->lastUpdated-$lastUpdate) < 1, 'lastUpdated() -- status change');
$user->status('Selfdestructed'); $user->status('Selfdestructed');
is($user->status, "Selfdestructed", 'status("Selfdestructed")'); is($user->status, "Selfdestructed", 'status("Selfdestructed")');
@ -65,7 +65,7 @@ is($user->status, "Deactivated", 'status("Deactivated")');
$lastUpdate = time(); $lastUpdate = time();
$user->profileField("firstName", "Bill"); $user->profileField("firstName", "Bill");
is($user->profileField("firstName"), "Bill", 'profileField() get/set'); is($user->profileField("firstName"), "Bill", 'profileField() get/set');
is($user->lastUpdated, $lastUpdate, 'lastUpdated() -- profileField'); ok(abs($user->lastUpdated-$lastUpdate) < 1, 'lastUpdated() -- profileField');
#Let's check the auth methods #Let's check the auth methods
@ -78,7 +78,7 @@ $user->authMethod("LDAP");
is($user->authMethod, "LDAP", 'authMethod() -- set to LDAP'); is($user->authMethod, "LDAP", 'authMethod() -- set to LDAP');
$user->authMethod("WebGUI"); $user->authMethod("WebGUI");
is($user->authMethod, "WebGUI", 'authMethod() -- set back to WebGUI'); is($user->authMethod, "WebGUI", 'authMethod() -- set back to WebGUI');
is($user->lastUpdated, $lastUpdate, 'lastUpdated() -- authmethod change'); ok(abs($user->lastUpdated-$lastUpdate) < 1, 'lastUpdated() -- authmethod change');
#See if datecreated is correct #See if datecreated is correct
is($user->dateCreated, $userCreationTime, 'dateCreated()'); is($user->dateCreated, $userCreationTime, 'dateCreated()');
@ -101,7 +101,7 @@ is($user->karma, $oldKarma-69, 'karma() -- get/set subtract amount');
$lastUpdate = time(); $lastUpdate = time();
$user->referringAffiliate(10); $user->referringAffiliate(10);
is($user->referringAffiliate, '10', 'referringAffiliate() -- get/set'); is($user->referringAffiliate, '10', 'referringAffiliate() -- get/set');
is($user->lastUpdated, $lastUpdate, 'lastUpdated() -- referringAffiliate'); ok(abs($user->lastUpdated-$lastUpdate) < 1, 'lastUpdated() -- referringAffiliate');
#Let's try adding this user to some groups. Note, users are auto-added to 2 and 7 on creation #Let's try adding this user to some groups. Note, users are auto-added to 2 and 7 on creation
my @groups = qw|6 4|; my @groups = qw|6 4|;
@ -173,7 +173,7 @@ is($user->karma, $oldKarma-69, 'karma() -- get/set subtract amount');
$lastUpdate = time(); $lastUpdate = time();
$user->referringAffiliate(10); $user->referringAffiliate(10);
is($user->referringAffiliate, '10', 'referringAffiliate() -- get/set'); is($user->referringAffiliate, '10', 'referringAffiliate() -- get/set');
is($user->lastUpdated, $lastUpdate, 'lastUpdated() -- referringAffiliate'); ok(abs($user->lastUpdated-$lastUpdate) < 1, 'lastUpdated() -- referringAffiliate');
#Let's try adding this user to some groups #Let's try adding this user to some groups
my @groups = qw|2 4|; my @groups = qw|2 4|;