f1159269a0
for inserting macros into the config. The new method is much cleaner and uses the Config API. Updated the docs for the RootTitle macro, both POD and online help.
297 lines
8.2 KiB
Perl
297 lines
8.2 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 WebGUI::Test;
|
|
use WebGUI::Macro;
|
|
use WebGUI::Session;
|
|
use WebGUI::Macro_Config;
|
|
use HTML::TokeParser;
|
|
use Data::Dumper;
|
|
|
|
use Test::More; # increment this value for each test you create
|
|
|
|
my $session = WebGUI::Test->session;
|
|
|
|
my @added_macros = ();
|
|
push @added_macros, WebGUI::Macro_Config::enable_macro($session, 'EditableToggle', 'EditableToggle');
|
|
|
|
my $homeAsset = WebGUI::Asset->getDefault($session);
|
|
$session->asset($homeAsset);
|
|
my ($versionTag, $asset, @users) = setupTest($session, $homeAsset);
|
|
|
|
my $i18n = WebGUI::International->new($session,'Macro_EditableToggle');
|
|
|
|
my @testSets = (
|
|
{
|
|
comment => 'Visitor sees nothing, admin off, home asset',
|
|
userId => 1,
|
|
adminStatus => 'off',
|
|
asset => $homeAsset,
|
|
macroText => q!^EditableToggle();!,
|
|
onText => $i18n->get(516),
|
|
offText => $i18n->get(517),
|
|
template => q!!,
|
|
output => '',
|
|
},
|
|
{
|
|
comment => 'Visitor sees nothing, admin on, home asset',
|
|
userId => 1,
|
|
adminStatus => 'on',
|
|
asset => $homeAsset,
|
|
macroText => q!^EditableToggle();!,
|
|
onText => $i18n->get(516),
|
|
offText => $i18n->get(517),
|
|
template => q!!,
|
|
output => '',
|
|
},
|
|
{
|
|
comment => 'Admin sees off text, home asset',
|
|
userId => 3,
|
|
adminStatus => 'off',
|
|
asset => $homeAsset,
|
|
macroText => q!^EditableToggle();!,
|
|
onText => $i18n->get(516),
|
|
offText => $i18n->get(517),
|
|
template => q!!,
|
|
output => \&simpleHTMLParser,
|
|
},
|
|
{
|
|
comment => 'Admin sees on text, home asset',
|
|
userId => 3,
|
|
adminStatus => 'on',
|
|
asset => $homeAsset,
|
|
macroText => q!^EditableToggle();!,
|
|
onText => $i18n->get(516),
|
|
offText => $i18n->get(517),
|
|
template => q!!,
|
|
output => \&simpleHTMLParser,
|
|
},
|
|
{
|
|
comment => 'Admin sees off text, custom asset',
|
|
userId => 3,
|
|
adminStatus => 'off',
|
|
asset => $asset,
|
|
macroText => q!^EditableToggle();!,
|
|
onText => $i18n->get(516),
|
|
offText => $i18n->get(517),
|
|
template => q!!,
|
|
output => \&simpleHTMLParser,
|
|
},
|
|
{
|
|
comment => 'Admin sees on text, custom asset',
|
|
userId => 3,
|
|
adminStatus => 'on',
|
|
asset => $asset,
|
|
macroText => q!^EditableToggle();!,
|
|
onText => $i18n->get(516),
|
|
offText => $i18n->get(517),
|
|
template => q!!,
|
|
output => \&simpleHTMLParser,
|
|
},
|
|
{
|
|
comment => 'user 0 sees nothing, admin off, custom asset',
|
|
userId => $users[0]->userId,
|
|
adminStatus => 'off',
|
|
asset => $asset,
|
|
macroText => q!^EditableToggle();!,
|
|
onText => $i18n->get(516),
|
|
offText => $i18n->get(517),
|
|
template => q!!,
|
|
output => '',
|
|
},
|
|
{
|
|
comment => 'user 0 sees nothing, admin on, custom asset',
|
|
userId => $users[0]->userId,
|
|
adminStatus => 'on',
|
|
asset => $asset,
|
|
macroText => q!^EditableToggle();!,
|
|
onText => $i18n->get(516),
|
|
offText => $i18n->get(517),
|
|
template => q!!,
|
|
output => '',
|
|
},
|
|
{
|
|
comment => 'user 1 sees nothing, admin off, custom asset',
|
|
userId => $users[1]->userId,
|
|
adminStatus => 'off',
|
|
asset => $asset,
|
|
macroText => q!^EditableToggle();!,
|
|
onText => $i18n->get(516),
|
|
offText => $i18n->get(517),
|
|
template => q!!,
|
|
output => '',
|
|
},
|
|
{
|
|
comment => 'user 1 sees nothing, admin on, custom asset',
|
|
userId => $users[1]->userId,
|
|
adminStatus => 'on',
|
|
asset => $asset,
|
|
macroText => q!^EditableToggle();!,
|
|
onText => $i18n->get(516),
|
|
offText => $i18n->get(517),
|
|
template => q!!,
|
|
output => '',
|
|
},
|
|
{
|
|
comment => 'user 2 sees on text, admin off, custom asset',
|
|
userId => $users[2]->userId,
|
|
adminStatus => 'off',
|
|
asset => $asset,
|
|
macroText => q!^EditableToggle();!,
|
|
onText => $i18n->get(516),
|
|
offText => $i18n->get(517),
|
|
template => q!!,
|
|
output => \&simpleHTMLParser,
|
|
},
|
|
{
|
|
comment => 'user 2 sees off text, admin on, custom asset',
|
|
userId => $users[2]->userId,
|
|
adminStatus => 'on',
|
|
asset => $asset,
|
|
macroText => q!^EditableToggle();!,
|
|
onText => $i18n->get(516),
|
|
offText => $i18n->get(517),
|
|
template => q!!,
|
|
output => \&simpleHTMLParser,
|
|
},
|
|
{
|
|
comment => 'user 2 sees on text, admin off, custom asset and text',
|
|
userId => $users[2]->userId,
|
|
adminStatus => 'off',
|
|
asset => $asset,
|
|
macroText => q!^EditableToggle("%s","%s");!,
|
|
onText => 'Admin powers... Activate!',
|
|
offText => 'Chillin, dude',
|
|
template => q!!,
|
|
output => \&simpleHTMLParser,
|
|
},
|
|
{
|
|
comment => 'user 2 sees off text, admin on, custom asset and text',
|
|
userId => $users[2]->userId,
|
|
adminStatus => 'on',
|
|
asset => $asset,
|
|
macroText => q!^EditableToggle("%s","%s");!,
|
|
onText => 'Admin powers... Activate!',
|
|
offText => 'Chillin, dude',
|
|
template => q!!,
|
|
output => \&simpleHTMLParser,
|
|
},
|
|
{
|
|
comment => 'user 2 sees off text, admin on, custom asset, text, template',
|
|
userId => $users[2]->userId,
|
|
adminStatus => 'on',
|
|
asset => $asset,
|
|
macroText => q!^EditableToggle("%s","%s","%s");!,
|
|
onText => 'Admin powers... Activate!',
|
|
offText => 'Chillin, dude',
|
|
template => $asset->get('url'),
|
|
output => \&simpleTextParser,
|
|
},
|
|
);
|
|
|
|
my $numTests = 0;
|
|
foreach my $testSet (@testSets) {
|
|
$numTests += 1 + (ref $testSet->{output} eq 'CODE');
|
|
}
|
|
|
|
plan tests => $numTests;
|
|
|
|
foreach my $testSet (@testSets) {
|
|
my $output = sprintf $testSet->{macroText}, $testSet->{onText}, $testSet->{offText}, $testSet->{template};
|
|
$session->user({userId=>$testSet->{userId}});
|
|
$session->asset($testSet->{asset});
|
|
if ($testSet->{adminStatus} eq 'off') {
|
|
$session->var->switchAdminOff();
|
|
$testSet->{label} = $testSet->{onText};
|
|
$testSet->{url} = $session->url->page('op=switchOnAdmin'),
|
|
}
|
|
elsif ($testSet->{adminStatus} eq 'on') {
|
|
$session->var->switchAdminOn();
|
|
$testSet->{label} = $testSet->{offText};
|
|
$testSet->{url} = $session->url->page('op=switchOffAdmin'),
|
|
}
|
|
else {
|
|
BAIL_OUT('Unknown admin status selected');
|
|
}
|
|
WebGUI::Macro::process($session, \$output);
|
|
if (ref $testSet->{output} eq 'CODE') {
|
|
my ($url, $label) = $testSet->{output}->($output);
|
|
is($label, $testSet->{label}, $testSet->{comment}.", label");
|
|
is($url, $testSet->{url}, $testSet->{comment}.", url");
|
|
}
|
|
else {
|
|
is($output, $testSet->{output}, $testSet->{comment});
|
|
}
|
|
}
|
|
|
|
sub simpleHTMLParser {
|
|
my ($text) = @_;
|
|
my $p = HTML::TokeParser->new(\$text);
|
|
|
|
my $token = $p->get_tag("a");
|
|
my $url = $token->[1]{href} || "-";
|
|
my $label = $p->get_trimmed_text("/a");
|
|
|
|
return ($url, $label);
|
|
}
|
|
|
|
sub simpleTextParser {
|
|
my ($text) = @_;
|
|
|
|
my ($url) = $text =~ /^HREF=(.+)$/m;
|
|
my ($label) = $text =~ /^LABEL=(.+)$/m;
|
|
|
|
return ($url, $label);
|
|
}
|
|
|
|
sub setupTest {
|
|
my ($session, $defaultNode) = @_;
|
|
$session->user({userId=>3});
|
|
my $editGroup = WebGUI::Group->new($session, "new");
|
|
my $tao = WebGUI::Group->find($session, "Turn Admin On");
|
|
##Create an asset with specific editing privileges
|
|
my $versionTag = WebGUI::VersionTag->getWorking($session);
|
|
$versionTag->set({name=>"EditableToggle test"});
|
|
my $properties = {
|
|
title => 'EditableToggle test template',
|
|
className => 'WebGUI::Asset::Template',
|
|
url => 'editabletoggle-test',
|
|
namespace => 'Macro/EditableToggle',
|
|
template => "HREF=<tmpl_var toggle.url>\nLABEL=<tmpl_var toggle.text>",
|
|
groupIdEdit => $editGroup->getId(),
|
|
# '1234567890123456789012'
|
|
id => 'EditableToggleTemplate',
|
|
};
|
|
my $asset = $defaultNode->addChild($properties, $properties->{id});
|
|
$versionTag->commit;
|
|
my @users = map { WebGUI::User->new($session, "new") } 0..2;
|
|
##User 1 is an editor
|
|
$users[1]->addToGroups([$editGroup->getId]);
|
|
##User 2 is an editor AND can turn on Admin
|
|
$users[2]->addToGroups([$editGroup->getId, $tao->getId]);
|
|
return ($versionTag, $asset, @users);
|
|
}
|
|
|
|
END { ##Clean-up after yourself, always
|
|
if (defined $versionTag and ref $versionTag eq 'WebGUI::VersionTag') {
|
|
$versionTag->rollback;
|
|
}
|
|
foreach my $dude (@users) {
|
|
$dude->delete if (defined $dude and ref $dude eq 'WebGUI::User');
|
|
}
|
|
foreach my $macro (@added_macros) {
|
|
next unless $macro;
|
|
$session->config->deleteFromHash("macros", $macro);
|
|
}
|
|
}
|