From 5090c8029eb1cd39f264deb6f72521b3a4cca62d Mon Sep 17 00:00:00 2001
From: Graham Knop <haarg@haarg.org>
Date: Thu, 3 Sep 2009 18:23:33 -0500
Subject: [PATCH] add another quoting edge case to macro tests

---
 t/Macro.t | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/t/Macro.t b/t/Macro.t
index 0821dacf1..7934b66b5 100644
--- a/t/Macro.t
+++ b/t/Macro.t
@@ -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;