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

a few more macro quoting test cases

Browse source
This commit is contained in:
Graham Knop 2009-03-31 00:07:40 +00:00
parent dc129dac36
commit 7a650bb8a3
1 changed files with 9 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

10
t/Macro.t
View file

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