From 7a650bb8a323859a8ab4954f93880e560b0006d6 Mon Sep 17 00:00:00 2001
From: Graham Knop <graham@plainblack.com>
Date: Tue, 31 Mar 2009 00:07:40 +0000
Subject: [PATCH] a few more macro quoting test cases

---
 t/Macro.t | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/t/Macro.t b/t/Macro.t
index 620cb6b05..39b67670e 100644
--- a/t/Macro.t
+++ b/t/Macro.t
@@ -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;