[Cpan-forum-commit] rev 157 - in trunk: . t t/lib

Sun Aug 20 08:52:59 IDT 2006

Author: gabor
Date: 2006-08-20 08:52:58 +0300 (Sun, 20 Aug 2006)
New Revision: 157

Added:
   trunk/t/000-load.t
Removed:
   trunk/t/00.load.t
   trunk/t/lib/CGI/
Modified:
   trunk/MANIFEST
   trunk/t/001-users.t
Log:
rename test file
remove empty test directory


Modified: trunk/MANIFEST
===================================================================

--- trunk/MANIFEST	2006-08-20 05:48:08 UTC (rev 156)
+++ trunk/MANIFEST	2006-08-20 05:52:58 UTC (rev 157)
@@ -22,7 +22,7 @@
 lib/CPAN/Forum/UserInGroup.pm
 
 t/CONFIG
-t/00.load.t
+t/000-load.t
 t/001-users.t
 t/010-markup.t
 t/011-register.t

Deleted: trunk/t/00.load.t
===================================================================
--- trunk/t/00.load.t	2006-08-20 05:48:08 UTC (rev 156)
+++ trunk/t/00.load.t	2006-08-20 05:52:58 UTC (rev 157)
@@ -1,13 +0,0 @@
-#!/usr/bin/perl
-use warnings;
-use strict;
-
-use Test::More tests => 1;
-
-BEGIN {
-use_ok( 'CPAN::Forum' );
-}
-
-diag( "Testing CPAN::Forum $CPAN::Forum::VERSION" );
-
-

Copied: trunk/t/000-load.t (from rev 155, trunk/t/00.load.t)

Modified: trunk/t/001-users.t
===================================================================
--- trunk/t/001-users.t	2006-08-20 05:48:08 UTC (rev 156)
+++ trunk/t/001-users.t	2006-08-20 05:52:58 UTC (rev 157)
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
 
 use strict;
 use warnings;
@@ -17,32 +17,32 @@
 use CGI::Application::Test;
 use CPAN::Forum;
 my $cat = CGI::Application::Test->new({
-			class   => "CPAN::Forum", 
-			cookie  => "cpanforum", 
-			app     => {
-				TMPL_PATH => "$ROOT/templates",
-				PARAMS => {
-					ROOT => $ROOT,
-				},
-			}});
+            class   => "CPAN::Forum", 
+            cookie  => "cpanforum", 
+            app     => {
+                TMPL_PATH => "$ROOT/templates",
+                PARAMS => {
+                    ROOT => $ROOT,
+                },
+            }});
 
 {
-	my $r = $cat->cgiapp(path_info => '/');
-	like($r, qr{CPAN Forum});
+    my $r = $cat->cgiapp(path_info => '/');
+    like($r, qr{CPAN Forum});
 }
 
 {
-	my $r = $cat->cgiapp(path_info => '/new_post');
-	like($r, qr{Location: http://test-host/login});
+    my $r = $cat->cgiapp(path_info => '/new_post');
+    like($r, qr{Location: http://test-host/login});
 
 #TODO: {
-#	local $TODO = "do real redirection here";
-#	unlike($r, qr{<HTML>}i);
-#	}	
+#   local $TODO = "do real redirection here";
+#   unlike($r, qr{<HTML>}i);
+#   }   
 }
 
 #{
-#	my $r = $cat->cgiapp(path_info => '/login');
-#	like($r, qr{Login});
+#   my $r = $cat->cgiapp(path_info => '/login');
+#   like($r, qr{Login});
 #}
 

