[Cpan-forum-commit] rev 161 - in trunk: . t t/mech
svn at pti.co.il
svn at pti.co.il
Fri Aug 25 18:14:25 IDT 2006
Author: gabor
Date: 2006-08-25 18:14:25 +0300 (Fri, 25 Aug 2006)
New Revision: 161
Added:
trunk/t/mech/
trunk/t/mech/000-load.t
trunk/t/mech/001-users.t
trunk/t/mech/011-register.t
trunk/t/mech/100-auth.t
Removed:
trunk/t/000-load.t
trunk/t/001-users.t
trunk/t/011-register.t
trunk/t/100-auth.t
Modified:
trunk/
trunk/MANIFEST
Log:
rearrange test files
Property changes on: trunk
___________________________________________________________________
Name: svk:merge
- 8c4c90e1-83eb-0310-96eb-e7cb62807872:/local/cpan-forum:10981
+ 8c4c90e1-83eb-0310-96eb-e7cb62807872:/local/cpan-forum:10982
Modified: trunk/MANIFEST
===================================================================
--- trunk/MANIFEST 2006-08-25 15:14:20 UTC (rev 160)
+++ trunk/MANIFEST 2006-08-25 15:14:25 UTC (rev 161)
@@ -22,13 +22,13 @@
lib/CPAN/Forum/UserInGroup.pm
t/CONFIG
-t/000-load.t
-t/001-users.t
-t/011-register.t
-t/100-auth.t
t/02packages.details.txt
t/lib/CPAN/Forum/Test.pm
+t/mech/000-load.t
+t/mech/001-users.t
+t/mech/011-register.t
+t/mech/100-auth.t
t/markup/010-markup.t
t/other/pod-coverage.t
t/other/pod.t
Deleted: trunk/t/000-load.t
===================================================================
--- trunk/t/000-load.t 2006-08-25 15:14:20 UTC (rev 160)
+++ trunk/t/000-load.t 2006-08-25 15:14:25 UTC (rev 161)
@@ -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" );
-
-
Deleted: trunk/t/001-users.t
===================================================================
--- trunk/t/001-users.t 2006-08-25 15:14:20 UTC (rev 160)
+++ trunk/t/001-users.t 2006-08-25 15:14:25 UTC (rev 161)
@@ -1,45 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-use warnings;
-
-use Test::More;
-my $tests;
-plan tests => $tests;
-
-use lib qw(t/lib);
-use CPAN::Forum::Test;
-
-{
- CPAN::Forum::Test::setup_database();
- ok(-e "blib/db/forum.db");
- BEGIN { $tests += 1; }
-}
-
-my $w = CPAN::Forum::Test::get_mech();
-my $url = CPAN::Forum::Test::get_url();
-
-{
- $w->get_ok($url);
- $w->content_like(qr{CPAN Forum});
- BEGIN { $tests += 2; }
-}
-
-
-{
- #$w->follow_link_ok({ text => 'new post' });
- #like($r, qr{Location: http://test-host/login});
-
- BEGIN { $tests += 0; }
-
-#TODO: {
-# local $TODO = "do real redirection here";
-# unlike($r, qr{<HTML>}i);
-# }
-}
-
-#{
-# my $r = $cat->cgiapp(path_info => '/login');
-# like($r, qr{Login});
-#}
-
Deleted: trunk/t/011-register.t
===================================================================
--- trunk/t/011-register.t 2006-08-25 15:14:20 UTC (rev 160)
+++ trunk/t/011-register.t 2006-08-25 15:14:25 UTC (rev 161)
@@ -1,131 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-use warnings;
-
-use Test::More "no_plan";
-
-
-use lib qw(t/lib);
-use CPAN::Forum::Test;
-
-setup_database();
-
-use CPAN::Forum::DBI;
-CPAN::Forum::DBI->myinit("$ROOT/db/forum.db");
-
-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,
- },
- }});
-
-
-{
- my $r = $cat->cgiapp(path_info => '/');
- like($r, qr{CPAN Forum});
-}
-
-{
- my $r = $cat->cgiapp(path_info => '/register');
- like($r, qr{Registration Page});
-}
-
-{
- my $r = $cat->cgiapp(path_info => '/', params => {rm => 'register_process', nickname => '', email => ''});
- like($r, qr{Registration Page});
- like($r, qr{Need both nickname and password});
-}
-
-{
- my $r = $cat->cgiapp(path_info => '/', params => {rm => 'register_process', nickname => '', email => 'some at email'});
- like($r, qr{Registration Page});
- like($r, qr{Need both nickname and password});
-}
-
-{
- my $r = $cat->cgiapp(path_info => '/', params => {rm => 'register_process', nickname => 'xyz', email => ''});
- like($r, qr{Registration Page});
- like($r, qr{Need both nickname and password});
-}
-
-{
- my $r = $cat->cgiapp(path_info => '/',
- params => {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-25 characters});
-}
-
-# reject bad usernames
-foreach my $username ("ab.c", "Abcde", "asd'er", "ab cd") {
- my $r = $cat->cgiapp(path_info => '/',
- params => {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-25 characters});
-}
-
-# reject bad usernames
-foreach my $email ("adb-?", "Abcde", "asd'er", "ab cd") {
- my $r = $cat->cgiapp(path_info => '/', params => {rm => 'register_process', nickname => "abcde", email => $email});
- like($r, qr{Registration Page});
- like($r, qr{Email must be a valid address writen in lower case letters});
-}
-
-my $pw;
-my $password;
-my $sendmail_count;
-# register user
-{
- no warnings;
- sub CPAN::Forum::sendmail {
- my %mail = @_;
- #use Data::Dumper;
- #print STDERR Dumper \%mail;
- #print STDERR
- if ($mail{Message} =~ /your password is: (\w+)/) {
- $password = $1;
- }
- $sendmail_count++;
- }
- use warnings;
-}
-# TODO: check if the call to submail contains the correct values
-{
- $sendmail_count = 0;
- $password = '';
- my $r = $cat->cgiapp(path_info => '/',
- params => {rm => 'register_process', nickname => $users[0]{username}, email => $users[0]{email}});
- like($r, qr{Registration Page});
- like($r, qr{Thank you for registering});
- like($password, qr{\w{5}});
-
- is($sendmail_count, 2);
- $pw = $password;
-}
-
-# try to register the same user again and see it fails
-{
- $sendmail_count = 0;
- $password = '';
- my $r = $cat->cgiapp(path_info => '/',
- params => {rm => 'register_process', nickname => $users[0]{username}, email => $users[0]{email}});
- like($r, qr{Registration Page});
- like($r, qr{Nickname or e-mail already in use});
- is($sendmail_count, 0);
- is($password, "");
-}
-
-
-
-
-
-
-
-
-
Deleted: trunk/t/100-auth.t
===================================================================
--- trunk/t/100-auth.t 2006-08-25 15:14:20 UTC (rev 160)
+++ trunk/t/100-auth.t 2006-08-25 15:14:25 UTC (rev 161)
@@ -1,18 +0,0 @@
-#!/usr/bin/perl -w
-
-use strict;
-use Test::More tests => 3;
-use Test::WWW::Mechanize;
-
-my $url = $ENV{CPAN_FORUM_URL};
-
-SKIP: {
- skip "Need to have CPAN_FORUM_URL to run these tests. See readme", 3 if not defined $url;
-
-my $mech = Test::WWW::Mechanize->new();
-
-ok(1);
-ok(1);
-ok(1);
-
-}
Added: trunk/t/mech/000-load.t
===================================================================
--- trunk/t/mech/000-load.t 2006-08-25 15:14:20 UTC (rev 160)
+++ trunk/t/mech/000-load.t 2006-08-25 15:14:25 UTC (rev 161)
@@ -0,0 +1,13 @@
+#!/usr/bin/perl
+use warnings;
+use strict;
+
+use Test::More tests => 1;
+
+BEGIN {
+use_ok( 'CPAN::Forum' );
+}
+
+diag( "Testing CPAN::Forum $CPAN::Forum::VERSION" );
+
+
Added: trunk/t/mech/001-users.t
===================================================================
--- trunk/t/mech/001-users.t 2006-08-25 15:14:20 UTC (rev 160)
+++ trunk/t/mech/001-users.t 2006-08-25 15:14:25 UTC (rev 161)
@@ -0,0 +1,45 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use Test::More;
+my $tests;
+plan tests => $tests;
+
+use lib qw(t/lib);
+use CPAN::Forum::Test;
+
+{
+ CPAN::Forum::Test::setup_database();
+ ok(-e "blib/db/forum.db");
+ BEGIN { $tests += 1; }
+}
+
+my $w = CPAN::Forum::Test::get_mech();
+my $url = CPAN::Forum::Test::get_url();
+
+{
+ $w->get_ok($url);
+ $w->content_like(qr{CPAN Forum});
+ BEGIN { $tests += 2; }
+}
+
+
+{
+ #$w->follow_link_ok({ text => 'new post' });
+ #like($r, qr{Location: http://test-host/login});
+
+ BEGIN { $tests += 0; }
+
+#TODO: {
+# local $TODO = "do real redirection here";
+# unlike($r, qr{<HTML>}i);
+# }
+}
+
+#{
+# my $r = $cat->cgiapp(path_info => '/login');
+# like($r, qr{Login});
+#}
+
Added: trunk/t/mech/011-register.t
===================================================================
--- trunk/t/mech/011-register.t 2006-08-25 15:14:20 UTC (rev 160)
+++ trunk/t/mech/011-register.t 2006-08-25 15:14:25 UTC (rev 161)
@@ -0,0 +1,131 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use Test::More "no_plan";
+
+
+use lib qw(t/lib);
+use CPAN::Forum::Test;
+
+setup_database();
+
+use CPAN::Forum::DBI;
+CPAN::Forum::DBI->myinit("$ROOT/db/forum.db");
+
+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,
+ },
+ }});
+
+
+{
+ my $r = $cat->cgiapp(path_info => '/');
+ like($r, qr{CPAN Forum});
+}
+
+{
+ my $r = $cat->cgiapp(path_info => '/register');
+ like($r, qr{Registration Page});
+}
+
+{
+ my $r = $cat->cgiapp(path_info => '/', params => {rm => 'register_process', nickname => '', email => ''});
+ like($r, qr{Registration Page});
+ like($r, qr{Need both nickname and password});
+}
+
+{
+ my $r = $cat->cgiapp(path_info => '/', params => {rm => 'register_process', nickname => '', email => 'some at email'});
+ like($r, qr{Registration Page});
+ like($r, qr{Need both nickname and password});
+}
+
+{
+ my $r = $cat->cgiapp(path_info => '/', params => {rm => 'register_process', nickname => 'xyz', email => ''});
+ like($r, qr{Registration Page});
+ like($r, qr{Need both nickname and password});
+}
+
+{
+ my $r = $cat->cgiapp(path_info => '/',
+ params => {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-25 characters});
+}
+
+# reject bad usernames
+foreach my $username ("ab.c", "Abcde", "asd'er", "ab cd") {
+ my $r = $cat->cgiapp(path_info => '/',
+ params => {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-25 characters});
+}
+
+# reject bad usernames
+foreach my $email ("adb-?", "Abcde", "asd'er", "ab cd") {
+ my $r = $cat->cgiapp(path_info => '/', params => {rm => 'register_process', nickname => "abcde", email => $email});
+ like($r, qr{Registration Page});
+ like($r, qr{Email must be a valid address writen in lower case letters});
+}
+
+my $pw;
+my $password;
+my $sendmail_count;
+# register user
+{
+ no warnings;
+ sub CPAN::Forum::sendmail {
+ my %mail = @_;
+ #use Data::Dumper;
+ #print STDERR Dumper \%mail;
+ #print STDERR
+ if ($mail{Message} =~ /your password is: (\w+)/) {
+ $password = $1;
+ }
+ $sendmail_count++;
+ }
+ use warnings;
+}
+# TODO: check if the call to submail contains the correct values
+{
+ $sendmail_count = 0;
+ $password = '';
+ my $r = $cat->cgiapp(path_info => '/',
+ params => {rm => 'register_process', nickname => $users[0]{username}, email => $users[0]{email}});
+ like($r, qr{Registration Page});
+ like($r, qr{Thank you for registering});
+ like($password, qr{\w{5}});
+
+ is($sendmail_count, 2);
+ $pw = $password;
+}
+
+# try to register the same user again and see it fails
+{
+ $sendmail_count = 0;
+ $password = '';
+ my $r = $cat->cgiapp(path_info => '/',
+ params => {rm => 'register_process', nickname => $users[0]{username}, email => $users[0]{email}});
+ like($r, qr{Registration Page});
+ like($r, qr{Nickname or e-mail already in use});
+ is($sendmail_count, 0);
+ is($password, "");
+}
+
+
+
+
+
+
+
+
+
Added: trunk/t/mech/100-auth.t
===================================================================
--- trunk/t/mech/100-auth.t 2006-08-25 15:14:20 UTC (rev 160)
+++ trunk/t/mech/100-auth.t 2006-08-25 15:14:25 UTC (rev 161)
@@ -0,0 +1,18 @@
+#!/usr/bin/perl -w
+
+use strict;
+use Test::More tests => 3;
+use Test::WWW::Mechanize;
+
+my $url = $ENV{CPAN_FORUM_URL};
+
+SKIP: {
+ skip "Need to have CPAN_FORUM_URL to run these tests. See readme", 3 if not defined $url;
+
+my $mech = Test::WWW::Mechanize->new();
+
+ok(1);
+ok(1);
+ok(1);
+
+}
More information about the Cpan-forum-commit
mailing list