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

add a few additional macro tests

Browse source
This commit is contained in:
Graham Knop 2009-08-20 19:24:39 +00:00
parent 4984e19d68
commit ac9be28857
2 changed files with 7 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

5
t/Macro.t
View file

@ -44,7 +44,7 @@ foreach my $macro (qw/
}
$session->config->addToHash('macros', "Ex'tras", "Extras");
plan tests => 39;
plan tests => 42;
my $macroText = "CompanyName: ^c;";
my $companyName = $session->setting->get('companyName');
@ -236,6 +236,9 @@ tie my %quotingEdges, 'Tie::IxHash';
=> '@MacroCall[`@MacroCall[`something`.`something else`]:`.`more still`]:',
q{^VisualMacro("^VisualMacro('something', 'something else');", "more still");}
=> '@MacroCall[`@MacroCall[`something`.`something else`]:`.`more still`]:',
'^VisualMacro(,,);' => '@MacroCall[``.``]:',
'^VisualMacro("","",);' => '@MacroCall[``.``]:',
'^VisualMacro(,,"");' => '@MacroCall[``.``.``]:',
);
while (my ($inText, $outText) = each %quotingEdges) {
my $procText = $inText;