[Cpan-forum-commit] rev 149 - in branches/db_changes: lib/CPAN t

[svn at pti.co.il]

Author: gabor
Date: 2005-05-06 20:52:30 +0300 (Fri, 06 May 2005)
New Revision: 149

Modified:
   branches/db_changes/lib/CPAN/Forum.pm
   branches/db_changes/t/011-register.t
Log:
fix tests that failed becuse of the change to 25 char lenght passwords

Modified: branches/db_changes/lib/CPAN/Forum.pm
===================================================================
--- branches/db_changes/lib/CPAN/Forum.pm	2005-04-22 14:26:21 UTC (rev 148)
+++ branches/db_changes/lib/CPAN/Forum.pm	2005-05-06 17:52:30 UTC (rev 149)
@@ -416,7 +416,7 @@
 	$self->log->debug("--- START ---");
 	
 
-	$self->log->debug("Cookie received: "  . $self->query->cookie($cookiename) );
+	$self->log->debug("Cookie received: "  . $self->query->cookie($cookiename) ) if $self->query->cookie($cookiename);
 	CGI::Session->name($cookiename);
 	$self->session_config(
 		CGI_SESSION_OPTIONS => [ "driver:SQLite", $self->query, {Handle => $dbh}],

Modified: branches/db_changes/t/011-register.t
===================================================================
--- branches/db_changes/t/011-register.t	2005-04-22 14:26:21 UTC (rev 148)
+++ branches/db_changes/t/011-register.t	2005-05-06 17:52:30 UTC (rev 149)
@@ -47,16 +47,16 @@
 }
 
 {
-	my $r = $cat->cgiapp('/', '', {rm => 'register_process', nickname => 'xyzqwertyui', email => 'a at com'});
+	my $r = $cat->cgiapp('/', '', {rm => 'register_process', nickname => 'xyzqwertyuiqwertyuiopqwert', email => 'a at com'});
 	like($r, qr{Registration Page});
-	like($r, qr{Nickname must be lower case alphanumeric between 1-10 characters});
+	like($r, qr{Nickname must be lower case alphanumeric between 1-25 characters});
 }
 
 # reject bad usernames
 foreach my $username ("ab.c", "Abcde", "asd'er", "ab cd") {
 	my $r = $cat->cgiapp('/', '', {rm => 'register_process', nickname => $username, email => 'a at com'});
 	like($r, qr{Registration Page});
-	like($r, qr{Nickname must be lower case alphanumeric between 1-10 characters});
+	like($r, qr{Nickname must be lower case alphanumeric between 1-25 characters});
 }
 
 # reject bad usernames