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.
79 lines
2.3 KiB
Perl
79 lines
2.3 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 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, 'LastModified', 'LastModified');
|
|
|
|
my $homeAsset = WebGUI::Asset->getDefault($session);
|
|
|
|
##Make the homeAsset the default asset in the session.
|
|
$session->asset($homeAsset);
|
|
|
|
my ($time) = $session->dbSlave->quickArray("SELECT max(revisionDate) FROM assetData where assetId=?",[$homeAsset->getId]);
|
|
|
|
my @testSets = (
|
|
{
|
|
macroText => q!^LastModified();!,
|
|
label => q!!,
|
|
format => q!!,
|
|
output => $session->datetime->epochToHuman($time,'%z'),
|
|
comment => 'checking defaults with empty args',
|
|
},
|
|
{
|
|
macroText => q!^LastModified("%s");!,
|
|
label => q!Last modified on: !,
|
|
format => q!!,
|
|
output => 'Last modified on: '.$session->datetime->epochToHuman($time,'%z'),
|
|
comment => 'checking label, empty format',
|
|
},
|
|
{
|
|
macroText => q!^LastModified("%s","%s");!,
|
|
label => '',
|
|
format => q!%c %y!,
|
|
output => $session->datetime->epochToHuman($time,'%c %y'),
|
|
comment => 'checking format, empty label',
|
|
},
|
|
);
|
|
|
|
my $numTests = scalar @testSets + 2;
|
|
|
|
plan tests => $numTests;
|
|
|
|
foreach my $testSet (@testSets) {
|
|
my $output = sprintf $testSet->{macroText}, $testSet->{label}, $testSet->{format};
|
|
WebGUI::Macro::process($session, \$output);
|
|
is($output, $testSet->{output}, $testSet->{comment});
|
|
}
|
|
|
|
TODO: {
|
|
local $TODO = "Tests to make later";
|
|
ok(0, 'Check label and format');
|
|
ok(0, 'Create asset with revisionDate = 0 and check label "never"');
|
|
}
|
|
|
|
END {
|
|
foreach my $macro (@added_macros) {
|
|
next unless $macro;
|
|
$session->config->deleteFromHash("macros", $macro);
|
|
}
|
|
}
|