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

Add more POD to Style.pm to document that sent is set to true after this method

Browse source 
is called.

Add tests to check personalStyleTemplate and sent inside process method.
This commit is contained in:
Colin Kuskie 2006-10-10 23:10:31 +00:00
parent 950c1e2306
commit 6cf1afc6a7
2 changed files with 43 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lib/WebGUI/Session/Style.pm
View file

@ -130,6 +130,8 @@ sub new {
=head2 process ( content, templateId )
Returns a parsed style with content based upon the current WebGUI session information.
Sets the C<sent> method/flag to be true so that subsequent head data is processed
right away.
=head3 content

44
t/Session/Style.t
View file

@ -15,8 +15,10 @@ use HTML::TokeParser;
use WebGUI::Test;
use WebGUI::Session;
use WebGUI::Asset;
use WebGUI::VersionTag;
use Test::More tests => 35; # increment this value for each test you create
use Test::More tests => 38; # increment this value for each test you create
use Test::Deep;
my $session = WebGUI::Test->session;
@ -152,10 +154,24 @@ is($macroOutput, 1, 'generateAdditionalHeadTags: process a macro');
#
####################################################
$style->sent(0);
is($style->sent, 0, 'process: setup sent to 0');
is($style->process('body.content', 'notATemplateId'),
"WebGUI was unable to instantiate your style template.body.content",
'process: invalid templateId returns error message to client');
is($style->sent, 1, 'process: sets sent to 1');
my ($versionTag, $personalTemplate) = setup_assets($session);
$session->scratch->set('personalStyleId', $personalTemplate->getId);
my $styled = $style->process('body.content', 'notATemplateId');
like($styled,
qr/PERSONAL STYLE TEMPLATE/,
'process: personalStyleTemplate overrides submitted template');
sub simpleLinkParser {
my ($tokenName, $text) = @_;
my $p = HTML::TokeParser->new(\$text);
@ -175,6 +191,28 @@ sub simpleLinkParser {
return ($url, $params);
}
END {
sub setup_assets {
my $session = shift;
my $importNode = WebGUI::Asset->getImportNode($session);
my $versionTag = WebGUI::VersionTag->getWorking($session);
$versionTag->set({name=>"Session Style test"});
my $properties = {
title => 'personal style test template',
className => 'WebGUI::Asset::Template',
url => 'personal_style',
namespace => 'Style',
template => "PERSONAL STYLE TEMPLATE\n\nBODY=<tmpl_var body.content>\n\nHEAD=<tmpl_var head.tags>",
id => 'testTemplate_personal1',
# '1234567890123456789012'
};
my $template = $importNode->addChild($properties, $properties->{id});
$versionTag->commit;
return ($versionTag, $template);
}
END {
if (defined $versionTag and ref $versionTag eq 'WebGUI::VersionTag') {
$versionTag->rollback;
}
}