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

Merge branch 'master' of git@github.com:plainblack/webgui

Browse source
This commit is contained in:
Colin Kuskie 2009-09-03 17:22:10 -07:00
commit 2d967fc6f8
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"); $session->config->addToHash('macros', "Ex'tras", "Extras");
plan tests => 42; plan tests => 43;
my $macroText = "CompanyName: ^c;"; my $macroText = "CompanyName: ^c;";
my $companyName = $session->setting->get('companyName'); my $companyName = $session->setting->get('companyName');
@ -239,6 +239,8 @@ tie my %quotingEdges, 'Tie::IxHash';
'^VisualMacro(,,);' => '@MacroCall[``.``]:', '^VisualMacro(,,);' => '@MacroCall[``.``]:',
'^VisualMacro("","",);' => '@MacroCall[``.``]:', '^VisualMacro("","",);' => '@MacroCall[``.``]:',
'^VisualMacro(,,"");' => '@MacroCall[``.``.``]:', '^VisualMacro(,,"");' => '@MacroCall[``.``.``]:',
'^ReverseParams(^VisualMacro("something","else"););'
=> '"else");^VisualMacro("something"',
); );
while (my ($inText, $outText) = each %quotingEdges) { while (my ($inText, $outText) = each %quotingEdges) {
my $procText = $inText; my $procText = $inText;