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

Add a few more Macro tests for unquoted arguments, and dangling commas.

Browse source
This commit is contained in:
Colin Kuskie 2010-02-03 17:10:42 -08:00
parent cb5144f809
commit 01717433db
1 changed files with 17 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

21
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 => 48; plan tests => 51;
my $macroText = "CompanyName: ^c;"; my $macroText = "CompanyName: ^c;";
my $companyName = $session->setting->get('companyName'); my $companyName = $session->setting->get('companyName');
@ -273,6 +273,8 @@ tie my %quotingEdges, 'Tie::IxHash';
'^VisualMacro(,,"");' => '@MacroCall[``.``.``]:', '^VisualMacro(,,"");' => '@MacroCall[``.``.``]:',
'^ReverseParams(^VisualMacro("something","else"););' '^ReverseParams(^VisualMacro("something","else"););'
=> '"else");^VisualMacro("something"', => '"else");^VisualMacro("something"',
'^ReverseParams(^VisualMacro(something,else););'
=> 'else);^VisualMacro(something',
'^ReverseParams("^VisualMacro(first word,second word);");' '^ReverseParams("^VisualMacro(first word,second word);");'
=> '@MacroCall[`first word`.`second word`]:', => '@MacroCall[`first word`.`second word`]:',
); );
@ -321,7 +323,18 @@ is(
"Macro can return undef", "Macro can return undef",
); );
my $macroText = '^VisualMacro(1,2,3,);';
WebGUI::Macro::process($session, \$macroText);
is (
$macroText,
'@MacroCall[`1`.`2`.`3`]:',
'dangling commas are okay'
);
my $macroText = '^VisualMacro(1, 2,3);';
END { WebGUI::Macro::process($session, \$macroText);
} is (
$macroText,
'@MacroCall[`1`.` 2`.`3`]:',
'internal spaces are okay'
);