[perl-www-contact commit] r43 - trunk/t

[codesite...@google.com]

Author: fayland
Date: Wed Oct 29 17:55:31 2008
New Revision: 43

Modified:
trunk/t/101-gmail.t
trunk/t/102-yahoo.t
trunk/t/104-163.t
trunk/t/105-aol.t
trunk/t/107-hotmail.t

Log:
fix breaking tests.

Modified: trunk/t/101-gmail.t
==============================================================================
--- trunk/t/101-gmail.t (original)
+++ trunk/t/101-gmail.t Wed Oct 29 17:55:31 2008
@@ -41,7 +41,7 @@

my @contacts = $wc->get_contacts('fay...@gmail.com', 'pass');
my $errstr = $wc->errstr;
-is($errstr, 'Wrong Password', 'get error with wrong password');
+is($errstr, 'Wrong Username or Password', 'get error with wrong password');
is(scalar @contacts, 0, 'empty contact list');

{

Modified: trunk/t/102-yahoo.t
==============================================================================
--- trunk/t/102-yahoo.t (original)
+++ trunk/t/102-yahoo.t Wed Oct 29 17:55:31 2008
@@ -19,7 +19,7 @@

my @contacts = $wc->get_contacts('cp...@yahoo.com', 'pass');
my $errstr = $wc->errstr;
-is($errstr, 'Wrong Password', 'get error with wrong password');
+is($errstr, 'Wrong Username or Password', 'get error with wrong password');
is(scalar @contacts, 0, 'empty contact list');

{

Modified: trunk/t/104-163.t
==============================================================================
--- trunk/t/104-163.t (original)
+++ trunk/t/104-163.t Wed Oct 29 17:55:31 2008
@@ -19,7 +19,7 @@

my @contacts = $wc->get_contacts('fay...@163.com', 'pass');
my $errstr = $wc->errstr;
-is($errstr, 'Wrong Password', 'get error with wrong password');
+is($errstr, 'Wrong Username or Password', 'get error with wrong password');
is(scalar @contacts, 0, 'empty contact list');

{

Modified: trunk/t/105-aol.t
==============================================================================
--- trunk/t/105-aol.t (original)
+++ trunk/t/105-aol.t Wed Oct 29 17:55:31 2008
@@ -19,7 +19,7 @@

my @contacts = $wc->get_contacts('fay...@aol.com', 'letmein');
my $errstr = $wc->errstr;
-is($errstr, 'Wrong Password', 'get error with wrong password');
+is($errstr, 'Wrong Username or Password', 'get error with wrong password');
is(scalar @contacts, 0, 'empty contact list');

{

Modified: trunk/t/107-hotmail.t
==============================================================================
--- trunk/t/107-hotmail.t (original)
+++ trunk/t/107-hotmail.t Wed Oct 29 17:55:31 2008
@@ -37,7 +37,7 @@

my @contacts = $wc->get_contacts('cp...@hotmail.com', 'pass');
my $errstr = $wc->errstr;
-is($errstr, 'Wrong Password', 'get error with wrong password');
+is($errstr, 'Wrong Username or Password', 'get error with wrong password');
is(scalar @contacts, 0, 'empty contact list');

{