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

allow single quote delimiters for macro parameters

Browse source
This commit is contained in:
Graham Knop 2009-02-23 04:25:17 +00:00
parent af5ad84fc8
commit 65a0c7bbae
2 changed files with 38 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

21
t/Macro.t
View file

@ -43,7 +43,7 @@ foreach my $macro (qw/
}
$session->config->addToHash('macros', "Ex'tras", "Extras");
plan tests => 33;
plan tests => 35;
my $macroText = "CompanyName: ^c;";
my $companyName = $session->setting->get('companyName');
@ -200,6 +200,23 @@ is(
"Carriage returns pass through as needed."
);
my $macroText = qq|^ReverseParams(1,'Single quoted parameters work properly',2);|;
WebGUI::Macro::process($session, \$macroText),
is(
$macroText,
"2Single quoted parameters work properly1",
"Single quoted parameters work properly."
);
my $macroText = qq|^ReverseParams(1,'Escaped single\\' quotes work',2);|;
WebGUI::Macro::process($session, \$macroText),
is(
$macroText,
"2Escaped single' quotes work1",
"Escaped single quotes work."
);
tie my %quotingEdges, 'Tie::IxHash';
%quotingEdges = (
'^VisualMacro(text);' => '@MacroCall[`text`]:',
@ -217,7 +234,7 @@ while (my ($inText, $outText) = each %quotingEdges) {
is(
$procText,
$outText,
"Nesting edge case: $inText",
"Quoting/Nesting edge case: $inText",
);
}