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

add another quoting edge case to macro tests

Browse source
This commit is contained in:
Graham Knop 2009-09-03 18:23:33 -05:00
parent 39b9bd399e
commit 5090c8029e
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
t/Macro.t
View file

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