add test illustrating variable names that overlap with global scope

Author: darnocian

tests/Sempare.Template.TestInclude.pas

@@ -102,6 +102,9 @@   TTestTemplateInclude = class
     [Test]
     procedure TestFunctionalInclude;
 
+    [Test]
+    procedure TestVariableAfterInclude;
+
   end;
 
 implementation
@@ -242,6 +245,14 @@   TMember = record
   Assert.AreEqual('Parent'#13#10'Child', Template.Eval(LTpl, LMember));
 end;
 
+procedure TTestTemplateInclude.TestVariableAfterInclude;
+var
+  LResult: string;
+begin
+  LResult := Template.Eval('<% template "my_template" %><% _.var %><% end %><% var := 345 %><% my_template { "var"= 123 } %> <% var %>');
+  Assert.AreEqual('123 345', LResult);
+end;
+
 procedure TTestTemplateInclude.TestFunctionalInclude;
 var
   LResult: string;