[Cpan-forum-commit] rev 150 - in branches/db_changes/t: . lib/CGI/Application

svn at pti.co.il svn at pti.co.il
Fri May 6 20:59:25 IDT 2005


Author: gabor
Date: 2005-05-06 20:59:24 +0300 (Fri, 06 May 2005)
New Revision: 150

Modified:
   branches/db_changes/t/001-users.t
   branches/db_changes/t/011-register.t
   branches/db_changes/t/lib/CGI/Application/Test.pm
Log:
replace the hard coded class name in CGI::Application::Test by a variable

Modified: branches/db_changes/t/001-users.t
===================================================================
--- branches/db_changes/t/001-users.t	2005-05-06 17:52:30 UTC (rev 149)
+++ branches/db_changes/t/001-users.t	2005-05-06 17:59:24 UTC (rev 150)
@@ -16,7 +16,7 @@
 
 use CGI::Application::Test;
 use CPAN::Forum;
-my $cat = CGI::Application::Test->new({root => $ROOT, cookie => "cpanforum"});
+my $cat = CGI::Application::Test->new({root => $ROOT, cookie => "cpanforum", class => "CPAN::Forum"});
 
 
 {

Modified: branches/db_changes/t/011-register.t
===================================================================
--- branches/db_changes/t/011-register.t	2005-05-06 17:52:30 UTC (rev 149)
+++ branches/db_changes/t/011-register.t	2005-05-06 17:59:24 UTC (rev 150)
@@ -16,7 +16,7 @@
 
 use CGI::Application::Test;
 use CPAN::Forum;
-my $cat = CGI::Application::Test->new({root => $ROOT, cookie => "cpanforum"});
+my $cat = CGI::Application::Test->new({root => $ROOT, cookie => "cpanforum", class => "CPAN::Forum"});
 
 {
 	my $r = $cat->cgiapp('/', '', {});

Modified: branches/db_changes/t/lib/CGI/Application/Test.pm
===================================================================
--- branches/db_changes/t/lib/CGI/Application/Test.pm	2005-05-06 17:52:30 UTC (rev 149)
+++ branches/db_changes/t/lib/CGI/Application/Test.pm	2005-05-06 17:59:24 UTC (rev 150)
@@ -37,7 +37,7 @@
 	local $ENV{HTTP_COOKIE} = "$self->{cookie}=$cookie" if defined $cookie; 
 	
 	my $q = CGI->new($params);
-	my $webapp = CPAN::Forum->new(
+	my $webapp = $self->{class}->new(
 			TMPL_PATH => "$self->{root}/templates",
 		    QUERY => $q,
 			PARAMS => {



More information about the Cpan-forum-commit mailing list