oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

add tests for declined behavior

Browse source
This commit is contained in:
Doug Bell 2010-07-28 15:04:00 -05:00 • committed by Colin Kuskie
parent b5e1db8ff9
commit 00b41fb2a0
1 changed files with 41 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

42
t/Content/Asset.t
View file

@ -26,6 +26,7 @@ use WebGUI::Session;
my $session = WebGUI::Test->session;
$INC{'WebGUI::Asset::TestDispatch'} = __FILE__;
$INC{'WebGUI::Asset::TestDecline'} = __FILE__;
package WebGUI::Asset::TestDispatch;
@ -42,11 +43,25 @@ sub dispatch {
return $self->SUPER::dispatch( $fragment );
}
sub www_edit {
my ( $self ) = @_;
return "www_edit " . $self->get('title');
}
sub www_view {
my ( $self ) = @_;
return "www_view " . $self->get('title');
}
package WebGUI::Asset::TestDecline;
our @ISA = ( 'WebGUI::Asset' );
# Override dispatch to decline everything
sub dispatch { return; }
sub www_edit { return "you'll never see me!" }
package main;
my $td
@ -61,7 +76,7 @@ WebGUI::Test->addToCleanup( WebGUI::VersionTag->getWorking( $session ) );
#----------------------------------------------------------------------------
# Tests
plan tests => 8; # Increment this number for each test you create
plan tests => 11; # Increment this number for each test you create
#----------------------------------------------------------------------------
# test getUrlPermutation( url ) method
@ -118,4 +133,29 @@ is(
"dispatch to the asset with the longest URL",
);
$clobberingTime->purge;
# Add an asset that declines everything instead
my $declined
= WebGUI::Asset->getImportNode( $session )->addChild( {
title => "three",
className => 'WebGUI::Asset::TestDecline',
url => $td->get('url') . '/foo',
} );
is(
WebGUI::Content::Asset::dispatch( $session, "testdispatch/foo" ),
"bar",
"Dispatch passes to TestDispatch asset after declined",
);
# Test ?func= dispatch with declined asset
$session->request->setup_body({
func => "edit",
});
my $output = WebGUI::Content::Asset::dispatch( $session, "testdispatch/foo" );
isnt( $output, "you'll never see me!", "func=edit was declined" );
isnt( $output, "www_edit one", "func=edit was not for us" );
#vim:ft=perl