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

Cover several other small utility routines. More getNotFound

Browse source 
tests need to be written.
This commit is contained in:
Colin Kuskie 2008-01-02 02:27:25 +00:00
parent fb54ca2a1c
commit 3a33baee4e
1 changed files with 49 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

52
t/Asset/Asset.t
View file

@ -23,6 +23,7 @@ use WebGUI::AssetVersioning;
use WebGUI::VersionTag;
use Test::More;
use Test::Deep;
use Test::MockObject;
use HTML::TokeParser;
@ -143,7 +144,7 @@ $canViewMaker->prepare(
},
);
plan tests => 75
plan tests => 80
+ scalar(@fixIdTests)
+ scalar(@fixTitleTests)
+ 2*scalar(@getTitleTests) #same tests used for getTitle and getMenuTitle
@ -607,10 +608,55 @@ else {
}
################################################################
#
# isValidRssItem
#
################################################################
is($canViewAsset->isValidRssItem, 1, 'isValidRssItem: By default, all Assets are valid RSS items');
################################################################
#
# getEditTabs
#
################################################################
is($canViewAsset->getEditTabs, undef, 'getEditTabs: No extra tabs by default');
################################################################
#
# getEditForm
#
################################################################
$session->style->sent(0); ##Prevent extra output from being generated by session->style
##At some point, a test will need to tie STDOUT and make sure
##that the output is correct.
isa_ok($canViewAsset->getEditForm, 'WebGUI::TabForm', 'getEditForm: Returns a tabForm');
TODO: {
local $TODO = 'More getEditForm tests';
ok(0, 'Validate form output');
}
################################################################
#
# getNotFound
#
################################################################
my $origNotFoundPage = $session->setting->get('notFoundPage');
isa_ok(WebGUI::Asset->getNotFound($session), 'WebGUI::Asset', 'getNotFound: Returns an asset');
$session->setting->set('notFoundPage', $origNotFoundPage);
END: {
$session->config->set('extrasURL', $origExtras);
$session->config->set('uploadsURL', $origUploads);
$session->config->set( 'extrasURL', $origExtras);
$session->config->set( 'uploadsURL', $origUploads);
$session->setting->set('urlExtension', $origUrlExtension);
$session->setting->set('notFoundPage', $origNotFoundPage);
if (defined $origAssetAddPrivileges) {
$session->config->set('assetAddPrivilege', $origAssetAddPrivileges);
}