Skip to content
Permalink
Browse files

Convert this from a WEBGUI_LIVE test to using Test::WWW::Mechanize::P…

…SGI.
  • Loading branch information...
perlDreamer committed Dec 1, 2011
1 parent 7f91293 commit 0b144dd89c92e57697cb07a7b4bbb9777b50ca84
Showing with 38 additions and 33 deletions.
  1. +38 −33 t/Asset/Redirect/mech.t
@@ -19,26 +19,20 @@ use WebGUI::Test; # Must use this before any other WebGUI modules
use WebGUI::Asset;
use WebGUI::VersionTag;
use WebGUI::Session;
plan skip_all => 'set WEBGUI_LIVE to enable this test' unless $ENV{WEBGUI_LIVE};
use WebGUI::Test::Mechanize;

#----------------------------------------------------------------------------
# Init
my $session = WebGUI::Test->session;

# Override some settings to make things easier to test
# userFunctionStyleId
$session->setting->set( 'userFunctionStyleId', 'PBtmpl0000000000000132' );
# specialState
$session->setting->set( 'specialState', '' );

# Create a user for testing purposes
my $user = WebGUI::User->new( $session, "new" );
WebGUI::Test->addToCleanup($user);
$user->username( 'dufresne' );
my $identifier = 'ritahayworth';
my $auth = WebGUI::Operation::Auth::getInstance( $session, $user->authMethod, $user->userId );
$auth->saveParams( $user->userId, $user->authMethod, {
'identifier' => Digest::MD5::md5_base64( $identifier ),
'identifier' => Digest::MD5::md5_base64( $identifier ),
});

my ($mech, $redirect, $response);
@@ -52,40 +46,39 @@ my $redirectUrl = time . "shawshank";
my $testContent = "Perhaps if you've gone this far, you'd be willing to go further.";
my $snippetUrl = time . "zejuatenejo";
my $redirectToUrl = $snippetUrl . "?name=value";
my $redirectToAsset
my $redirectToAsset
= WebGUI::Test->asset(
className => 'WebGUI::Asset::Snippet',
className => 'WebGUI::Asset::Snippet',
url => $snippetUrl,
snippet => $testContent,
);
my $tag1 = WebGUI::VersionTag->getWorking($session);
WebGUI::Test->addToCleanup($tag1);
$tag1->commit;
$redirectToAsset = $redirectToAsset->cloneFromDb;

my $count = time; # A known count for url uniqueness

#----------------------------------------------------------------------------
# Tests

if ( !eval { require Test::WWW::Mechanize; 1; } ) {
plan skip_all => 'Cannot load Test::WWW::Mechanize. Will not test.';
}
$mech = Test::WWW::Mechanize->new;
$mech->get( $baseUrl );
if ( !$mech->success ) {
plan skip_all => "Cannot load URL '$baseUrl'. Will not test.";
}

plan tests => 12; # Increment this number for each test you create

#----------------------------------------------------------------------------
# Test operation with a public Redirect
$redirect
$redirect
= WebGUI::Test->asset(
className => 'WebGUI::Asset::Redirect',
redirectUrl => $redirectToUrl,
url => $redirectUrl . $count++,
url => $redirectUrl . ++$count,
);

$mech = Test::WWW::Mechanize->new;
$mech->get_ok( $baseUrl . $redirectUrl . $count, "We get the redirect" );
my $tag2 = WebGUI::VersionTag->getWorking($session);
WebGUI::Test->addToCleanup($tag2);
$tag2->commit;
$redirect = $redirect->cloneFromDb;

$mech = WebGUI::Test::Mechanize->new( config => WebGUI::Test->file );
$mech->get_ok('/', 'initialize mech object with session');
$mech->get_ok($snippetUrl, 'snippet can be fetched');
$mech->get_ok( $redirectUrl . $count, "We get the redirect" );
$mech->content_contains( $testContent, "We made it to the snippet" );

$response = $mech->res->previous;
@@ -102,13 +95,18 @@ $redirect
= WebGUI::Test->asset(
className => 'WebGUI::Asset::Redirect',
redirectUrl => $redirectToUrl,
url => $redirectUrl . $count++,
url => $redirectUrl . ++$count,
groupIdView => 2,
groupIdEdit => 3,
);

$mech = Test::WWW::Mechanize->new;
$mech->get( $baseUrl . $redirectUrl . $count );
my $tag = WebGUI::VersionTag->getWorking($session);
$tag->commit;
WebGUI::Test->addToCleanup($tag);
$redirect = $redirect->cloneFromDb;

$mech = WebGUI::Test::Mechanize->new( config => WebGUI::Test->file );
$mech->get( $baseUrl . $redirectUrl . $count );
$mech->submit_form_ok( {
with_fields => {
username => $user->username,
@@ -127,21 +125,26 @@ is(


#----------------------------------------------------------------------------
# Test operation with a private Redirect through a login with translate
# Test operation with a private Redirect through a login with translate
# query params
$redirect
= WebGUI::Test->asset(
className => 'WebGUI::Asset::Redirect',
redirectUrl => $redirectToUrl,
url => $redirectUrl . $count++,
url => $redirectUrl . ++$count,
groupIdView => 2,
groupIdEdit => 3,
forwardQueryParams => 1,
);

my $tag = WebGUI::VersionTag->getWorking($session);
$tag->commit;
WebGUI::Test->addToCleanup($tag);
$redirect = $redirect->cloneFromDb;

my $extraParams = 'extra=hi';
$mech = Test::WWW::Mechanize->new;
$mech->get( $baseUrl . $redirectUrl . $count . '?' . $extraParams );
$mech = WebGUI::Test::Mechanize->new( config => WebGUI::Test->file );
$mech->get( $baseUrl . $redirectUrl . $count . '?' . $extraParams );
$mech->submit_form_ok( {
with_fields => {
username => $user->username,
@@ -161,4 +164,6 @@ TODO: {
);
};

done_testing;

#vim:ft=perl

0 comments on commit 0b144dd

Please sign in to comment.
You can’t perform that action at this time.