add: Calendar List view and associated Help
add: Ical Page length add: WWW::Mech tests for Auth and Redirect
This commit is contained in:
Doug Bell
parent
fc524df15c
commit
4a65691dcc
8 changed files with 1083 additions and 259 deletions
277
t/Auth/mech.t
Normal file
277
t/Auth/mech.t
Normal file
|
|
@ -0,0 +1,277 @@
|
|||
# vim:syntax=perl
|
||||
#-------------------------------------------------------------------
|
||||
# WebGUI is Copyright 2001-2008 Plain Black Corporation.
|
||||
#-------------------------------------------------------------------
|
||||
# Please read the legal notices (docs/legal.txt) and the license
|
||||
# (docs/license.txt) that came with this distribution before using
|
||||
# this software.
|
||||
#------------------------------------------------------------------
|
||||
# http://www.plainblack.com info@plainblack.com
|
||||
#------------------------------------------------------------------
|
||||
|
||||
# This script uses Test::WWW::Mechanize to test the operation of Auth
|
||||
# NOTE: This mostly tests Auth's common methods, even though it uses
|
||||
# WebGUI::Auth::WebGUI.
|
||||
|
||||
# no form: tests assume that the form exists on the page
|
||||
# displayLogin: tests go to ?op=auth;method=displayLogin after going to
|
||||
# unauthorized page
|
||||
# returnUrl: tests use returnUrl= to try to return to the right place
|
||||
|
||||
use FindBin;
|
||||
use strict;
|
||||
use lib "$FindBin::Bin/../lib";
|
||||
use Test::More;
|
||||
use WebGUI::Test; # Must use this before any other WebGUI modules
|
||||
use WebGUI::Asset;
|
||||
use WebGUI::VersionTag;
|
||||
use WebGUI::Session;
|
||||
|
||||
#----------------------------------------------------------------------------
|
||||
# Init
|
||||
my $session = WebGUI::Test->session;
|
||||
my $node = WebGUI::Asset->getImportNode( $session );
|
||||
my @versionTags = ( WebGUI::VersionTag->getWorking( $session ) );
|
||||
|
||||
# Override some settings to make things easier to test
|
||||
my %oldSettings;
|
||||
# userFunctionStyleId
|
||||
$oldSettings{ userFunctionStyleId } = $session->setting->get( 'userFunctionStyleId' );
|
||||
$session->setting->set( 'userFunctionStyleId', 'PBtmpl0000000000000132' );
|
||||
|
||||
# Create a user for testing purposes
|
||||
my $USERNAME = 'dufresne';
|
||||
my $IDENTIFIER = 'ritahayworth';
|
||||
my $user = WebGUI::User->new( $session, "new", "something new" );
|
||||
$user->username( $USERNAME );
|
||||
$user->addToGroups( ['3'] );
|
||||
my $auth = WebGUI::Operation::Auth::getInstance( $session, $user->authMethod, $user->userId );
|
||||
$auth->saveParams( $user->userId, $user->authMethod, {
|
||||
'identifier' => Digest::MD5::md5_base64( $IDENTIFIER ),
|
||||
});
|
||||
|
||||
my ($mech, $redirect, $response, $url);
|
||||
|
||||
# Get the site's base URL
|
||||
my $baseUrl = 'http://' . $session->config->get('sitename')->[0];
|
||||
$baseUrl .= $session->config->get('gateway');
|
||||
|
||||
# Make an asset we can login on
|
||||
my $asset
|
||||
= $node->addChild({
|
||||
className => 'WebGUI::Asset::Wobject::Article',
|
||||
description => "ARTICLE",
|
||||
url => time . 'loginAsset',
|
||||
groupIdView => 2, # Registered Users
|
||||
groupIdEdit => 3, # Admins
|
||||
styleTemplateId => 'PBtmpl0000000000000132',
|
||||
});
|
||||
$versionTags[-1]->commit;
|
||||
my $assetUrl = $baseUrl . $asset->get('url');
|
||||
|
||||
#----------------------------------------------------------------------------
|
||||
# Tests
|
||||
|
||||
plan tests => 41; # Increment this number for each test you create
|
||||
|
||||
use_ok( 'Test::WWW::Mechanize' );
|
||||
|
||||
#----------------------------------------------------------------------------
|
||||
# no form: Test logging in on a normal page sends the user back to the same page
|
||||
$mech = Test::WWW::Mechanize->new;
|
||||
$mech->get( $assetUrl );
|
||||
$mech->base_is( $assetUrl, "We got the page we were expecting" );
|
||||
$url = $assetUrl . '?op=auth;method=login;username=' . $USERNAME . ';identifier=' . $IDENTIFIER;
|
||||
$mech->get_ok( $url );
|
||||
$mech->base_is( $assetUrl, "We weren't redirected anywhere" );
|
||||
$mech->content_contains( "ARTICLE", "We are shown the article" );
|
||||
|
||||
|
||||
#----------------------------------------------------------------------------
|
||||
# no form: Test logging in on a normal page sends user back to same page AFTER at least one
|
||||
# failed attempt
|
||||
$mech = Test::WWW::Mechanize->new;
|
||||
$mech->get( $assetUrl );
|
||||
$mech->base_is( $assetUrl, "We got the page we were expecting" );
|
||||
$url = $assetUrl . '?op=auth;method=login;username=' . $USERNAME . ';identifier=nowai';
|
||||
$mech->get( $url );
|
||||
$mech->submit_form_ok(
|
||||
{
|
||||
with_fields => {
|
||||
username => $USERNAME,
|
||||
identifier => $IDENTIFIER,
|
||||
},
|
||||
},
|
||||
);
|
||||
$mech->base_is( $assetUrl, "We weren't redirected anywhere" );
|
||||
$mech->content_contains( "ARTICLE", "We are shown the article" );
|
||||
|
||||
|
||||
#----------------------------------------------------------------------------
|
||||
# displayLogin: Test logging in on a normal page sends the user back to the same page
|
||||
$mech = Test::WWW::Mechanize->new;
|
||||
$mech->get( $assetUrl );
|
||||
$mech->base_is( $assetUrl, "We got the page we were expecting" );
|
||||
$mech->get_ok( $assetUrl . "?op=auth;method=displayLogin" );
|
||||
$mech->submit_form_ok(
|
||||
{
|
||||
with_fields => {
|
||||
op => 'auth',
|
||||
method => 'login',
|
||||
username => $USERNAME,
|
||||
identifier => $IDENTIFIER,
|
||||
},
|
||||
},
|
||||
);
|
||||
|
||||
$mech->base_is( $assetUrl, "We were redirected to the same page after login" );
|
||||
|
||||
#----------------------------------------------------------------------------
|
||||
# displayLogin: Test logging in on a normal page sends user back to same page AFTER at least one
|
||||
# failed attempt
|
||||
$mech = Test::WWW::Mechanize->new;
|
||||
$mech->get( $assetUrl );
|
||||
$mech->base_is( $assetUrl, "We got the page we were expecting" );
|
||||
$mech->get_ok( $assetUrl . "?op=auth;method=displayLogin" );
|
||||
$mech->submit_form(
|
||||
with_fields => {
|
||||
username => $USERNAME,
|
||||
identifier => 'innocence',
|
||||
},
|
||||
);
|
||||
$mech->submit_form_ok(
|
||||
{
|
||||
with_fields => {
|
||||
username => $USERNAME,
|
||||
identifier => $IDENTIFIER,
|
||||
},
|
||||
},
|
||||
);
|
||||
|
||||
$mech->base_is( $assetUrl, "We were redirected to the same page after login and failing once");
|
||||
|
||||
#----------------------------------------------------------------------------
|
||||
# displayLogin: Test logging in on an operation other than ?op=auth
|
||||
$mech = Test::WWW::Mechanize->new;
|
||||
$mech->get( $assetUrl . '?op=listUsers' );
|
||||
$mech->base_is( $assetUrl . '?op=listUsers', "We got the page we were expecting" );
|
||||
$mech->get_ok( $assetUrl . "?op=auth;method=displayLogin" );
|
||||
$mech->submit_form_ok(
|
||||
{
|
||||
with_fields => {
|
||||
username => $USERNAME,
|
||||
identifier => $IDENTIFIER,
|
||||
},
|
||||
},
|
||||
);
|
||||
|
||||
$mech->base_is( $assetUrl, "We weren't redirected");
|
||||
|
||||
#----------------------------------------------------------------------------
|
||||
# displayLogin: Test logging in on an operation other than ?op=auth after at least one
|
||||
# failed attempt
|
||||
$mech = Test::WWW::Mechanize->new;
|
||||
$mech->get( $assetUrl . '?op=listUsers' );
|
||||
$mech->base_is( $assetUrl . '?op=listUsers', "We got the page we were expecting" );
|
||||
$mech->get_ok( $assetUrl . "?op=auth;method=displayLogin" );
|
||||
$mech->submit_form(
|
||||
with_fields => {
|
||||
username => $USERNAME,
|
||||
identifier => 'innocence',
|
||||
},
|
||||
);
|
||||
$mech->submit_form_ok(
|
||||
{
|
||||
with_fields => {
|
||||
username => $USERNAME,
|
||||
identifier => $IDENTIFIER,
|
||||
},
|
||||
},
|
||||
);
|
||||
|
||||
$mech->base_is( $assetUrl, "We weren't redirected" );
|
||||
|
||||
|
||||
#----------------------------------------------------------------------------
|
||||
# displayLogin: Test logging in after directly going to ?op=auth;method=init
|
||||
$mech = Test::WWW::Mechanize->new;
|
||||
$mech->get_ok( $assetUrl . '?op=auth;method=init' );
|
||||
$mech->base_is( $assetUrl . '?op=auth;method=init', "We got the page we were expecting" );
|
||||
$mech->get_ok( $assetUrl . "?op=auth;method=displayLogin" );
|
||||
$mech->submit_form_ok(
|
||||
{
|
||||
with_fields => {
|
||||
username => $USERNAME,
|
||||
identifier => $IDENTIFIER,
|
||||
},
|
||||
},
|
||||
);
|
||||
|
||||
$mech->base_is( $assetUrl, "We were redirected to the right page" );
|
||||
|
||||
|
||||
#----------------------------------------------------------------------------
|
||||
# displayLogin: Test logging in after directly going to ?op=auth;method=init and failing
|
||||
# at least once.
|
||||
$mech = Test::WWW::Mechanize->new;
|
||||
$mech->get_ok( $assetUrl . '?op=auth;method=init' );
|
||||
$mech->base_is( $assetUrl . '?op=auth;method=init', "We got the page we were expecting" );
|
||||
$mech->get_ok( $assetUrl . "?op=auth;method=displayLogin" );
|
||||
$mech->submit_form(
|
||||
with_fields => {
|
||||
username => $USERNAME,
|
||||
identifier => 'innocence',
|
||||
},
|
||||
);
|
||||
$mech->submit_form_ok(
|
||||
{
|
||||
with_fields => {
|
||||
username => $USERNAME,
|
||||
identifier => $IDENTIFIER,
|
||||
},
|
||||
},
|
||||
);
|
||||
|
||||
$mech->base_is( $assetUrl, "We were redirected to the right place" );
|
||||
|
||||
#----------------------------------------------------------------------------
|
||||
# returnUrl: Test logging in on a normal page sends the user back to the same page
|
||||
$mech = Test::WWW::Mechanize->new;
|
||||
$mech->get( $assetUrl );
|
||||
$mech->base_is( $assetUrl, "We got the page we were expecting" );
|
||||
$url = $assetUrl
|
||||
. '?op=auth;returnUrl=%2Froot%2Fimport;method=login;username='
|
||||
. $USERNAME . ';identifier=' . $IDENTIFIER;
|
||||
$mech->get_ok( $url );
|
||||
$mech->base_is( $baseUrl . 'root/import', "We were redirected properly" );
|
||||
|
||||
|
||||
#----------------------------------------------------------------------------
|
||||
# returnUrl: Test logging in on a normal page sends user back to same page AFTER at least one
|
||||
# failed attempt
|
||||
$mech = Test::WWW::Mechanize->new;
|
||||
$mech->get( $assetUrl );
|
||||
$mech->base_is( $assetUrl, "We got the page we were expecting" );
|
||||
$url = $assetUrl
|
||||
. '?op=auth;returnUrl=%2Froot%2Fimport;method=login;username='
|
||||
. $USERNAME . ';identifier=nowai';
|
||||
$mech->get( $url );
|
||||
$mech->submit_form_ok(
|
||||
{
|
||||
with_fields => {
|
||||
username => $USERNAME,
|
||||
identifier => $IDENTIFIER,
|
||||
},
|
||||
},
|
||||
);
|
||||
$mech->base_is( $assetUrl, "We don't get redirected" );
|
||||
|
||||
#----------------------------------------------------------------------------
|
||||
# Cleanup
|
||||
END {
|
||||
$user->delete;
|
||||
|
||||
for my $key ( keys %oldSettings ) {
|
||||
$session->setting->set( $key, $oldSettings{ $key } );
|
||||
}
|
||||
}
|
||||
Loading…
Add table
Add a link
Reference in a new issue