0b1e077f69
Added pluggable template parser docs. From the dev list, changed HTMLTemplateExpr to translate all dots in template variables to underscores, since EXPR's don't do dots, just like TemplateToolkit.
73 lines
2.6 KiB
Perl
73 lines
2.6 KiB
Perl
#-------------------------------------------------------------------
|
|
# WebGUI is Copyright 2001-2006 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
|
|
#-------------------------------------------------------------------
|
|
|
|
use FindBin;
|
|
use strict;
|
|
use lib "$FindBin::Bin/../../lib";
|
|
use HTML::TokeParser;
|
|
|
|
use WebGUI::Test;
|
|
use WebGUI::Session;
|
|
use WebGUI::Asset;
|
|
use WebGUI::VersionTag;
|
|
use WebGUI;
|
|
|
|
use Test::More;
|
|
|
|
my $num_tests = 3;
|
|
plan tests => 2 + $num_tests;
|
|
|
|
my $session = WebGUI::Test->session;
|
|
|
|
# put your tests here
|
|
|
|
my $module = use_ok('HTML::Template::Expr', 'Loaded HTML::Template::Expr');
|
|
my $plugin = use_ok('WebGUI::Asset::Template::HTMLTemplateExpr', 'Loaded WebGUI::Asset::Template::HTMLTemplateExpr plugin');
|
|
|
|
my ($versionTag, $template);
|
|
my $originalParsers = $session->config->get('templateParsers');
|
|
|
|
SKIP: {
|
|
skip $num_tests, "HTML::Template::Expr or plugin not loaded" unless $module and $plugin;
|
|
|
|
$session->config->set('templateParsers', ['WebGUI::Asset::Template::HTMLTemplate', 'WebGUI::Asset::Template::HTMLTemplateExpr',] );
|
|
($versionTag, $template) = setup_assets($session);
|
|
my $templateOutput = $template->process({ "foo.bar" => "baz", "number.value" => 2 });
|
|
my $companyName = $session->config->get('companyName');
|
|
like($templateOutput, qr/NAME=$companyName/, "session variable with underscores");
|
|
like($templateOutput, qr/FOOBAR=baz/, "explicit variable with dots");
|
|
like($templateOutput, qr/EQN=4/, "explicit variable with dots in expr");
|
|
}
|
|
|
|
sub setup_assets {
|
|
my $session = shift;
|
|
my $importNode = WebGUI::Asset->getImportNode($session);
|
|
my $versionTag = WebGUI::VersionTag->getWorking($session);
|
|
$versionTag->set({name=>"HTMLTemplateExpr test"});
|
|
my $properties = {
|
|
title => 'HTML Template Expr test',
|
|
className => 'WebGUI::Asset::Template',
|
|
url => 'dotted',
|
|
parser => 'WebGUI::Asset::Template::HTMLTemplateExpr',
|
|
id => 'htmltemplateexpr000001',
|
|
# '1234567890123456789012'
|
|
template => q!NAME=<tmpl_var session_setting_companyName>\nFOOBAR=<tmpl_var name="foo_bar">\nEQN=<tmpl_var EXPR="2+number_value">!,
|
|
};
|
|
my $template = $importNode->addChild($properties, $properties->{id});
|
|
$versionTag->commit;
|
|
return ($versionTag, $template);
|
|
}
|
|
|
|
END {
|
|
$session->config->set('templateParsers', $originalParsers);
|
|
if (defined $versionTag and ref $versionTag eq 'WebGUI::VersionTag') {
|
|
$versionTag->rollback;
|
|
}
|
|
}
|