From 128ab06bf6a1295e0e3efb664e8bf59a1d7c2a46 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Sat, 24 Feb 2007 04:36:11 +0000
Subject: [PATCH] Built a test for newByEmail and removed the TODO test.

---
 t/User.t | 27 ++++++++++++++++++++++-----
 1 file changed, 22 insertions(+), 5 deletions(-)

diff --git a/t/User.t b/t/User.t
index 28ec839bc..b0053c149 100644
--- a/t/User.t
+++ b/t/User.t
@@ -18,7 +18,7 @@ use WebGUI::Utility;
 use WebGUI::Cache;
 
 use WebGUI::User;
-use Test::More tests => 93; # increment this value for each test you create
+use Test::More tests => 95; # increment this value for each test you create
 
 my $session = WebGUI::Test->session;
 
@@ -350,15 +350,32 @@ ok(!$dude->canUseAdminMode, 'canUseAdminMode: even with the right group permissi
 $session->env->{_env} = $origEnvHash;
 $session->config->delete('adminModeSubnets');
 
-TODO: {
-	local $TODO = "Untested methods";
-	ok(0, 'newByEmail');
-}
+################################################################
+#
+# newByEmail
+#
+################################################################
+
+$visitor->profileField('email', 'visitor@localdomain');
+$dude->profileField('email', 'dude@aftery2k.com');
+
+my $clone = WebGUI::User->newByEmail($session, 'visitor@localdomain');
+is($clone, undef, 'newByEmail returns undef if you look up the Visitor');
+
+$clone = WebGUI::User->newByEmail($session, 'dude@aftery2k.com');
+is($clone, undef, 'newByEmail returns undef if the user does not have a username');
+
+$dude->username('dude');
+
+$clone = WebGUI::User->newByEmail($session, 'dude@aftery2k.com');
+is($clone->username, 'dude', 'newByEmail returns valid user object');
 
 END {
     (defined $user  and ref $user  eq 'WebGUI::User') and $user->delete;
     (defined $dude  and ref $dude  eq 'WebGUI::User') and $dude->delete;
+    ##Note, do not delete the visitor account.  That would be really bad
     $session->config->delete('adminModeSubnets');
 	$testCache->flush;
+    $session->db->write(q!delete from userProfileData where userId='1' and fieldName='email'!);
 }