raise exception when method is not found #201

Author: darnocian

src/Sempare.Template.Common.pas

@@ -171,8 +171,11 @@ function Position(const APositional: IPosition): string; overload;
 end;
 
 procedure RaiseError(const APositional: IPosition; const AFormat: string; const AArgs: array of const); overload;
+var
+  LStr: string;
 begin
-  raise ETemplateEvaluationError.Create(APositional, Position(APositional) + format(AFormat, AArgs));
+  LStr := format(AFormat, AArgs);
+  raise ETemplateEvaluationError.Create(APositional, Position(APositional) + LStr);
 end;
 
 procedure RaiseError(const APositional: IPosition; const AFormat: string); overload;

src/Sempare.Template.Evaluate.pas

@@ -1115,7 +1115,6 @@ function TEvaluationTemplateVisitor.Invoke(const AExpr: IMethodCallExpr; const A
   LIntf: IInterface;
 begin
   LObjType := FContext.RttiContext().GetType(AObject.TypeInfo);
-  LMethod := LObjType.GetMethod(AExpr.Method);
   LObject := AObject;
   if LObject.Kind = tkInterface then
   begin
@@ -1129,7 +1128,10 @@ function TEvaluationTemplateVisitor.Invoke(const AExpr: IMethodCallExpr; const A
       LObject := AObject.AsType<TValue>;
   end;
   LMethod := LObjType.GetMethod(AExpr.Method);
-
+  if LMethod = nil then
+  begin
+    RaiseErrorRes(AExpr, @SMethodNotRegisteredOnObject, [LObject.TypeInfo.Name, AExpr.Method]);
+  end;
   exit(DoInvoke(AExpr, LMethod, LObject, AArgs, AHasResult));
 end;
 

src/Sempare.Template.ResourceStrings.pas

@@ -65,6 +65,7 @@ interface
   SEndNotExpected = 'End not expected';
   SUnexpectedToken = 'UnexpectedToken';
   SFunctionNotRegisteredInContext = 'Function %s not registered in context.';
+  SMethodNotRegisteredOnObject = 'Method %s.%s does not exist.';
   SParsingErrorExpecting = 'Parsing error. Expecting: %s';
   SStringOrNumericTypesExpected = 'String or numeric types expected';
   SBinOpNotSupported = 'Binop not supported';

tests/Sempare.Template.TestFunctions.pas

@@ -137,6 +137,10 @@   TFunctionTest = class
     procedure TestDomId;
     [Test]
     procedure TestFormatWithFloat;
+    [Test]
+    procedure TestCallingNonExistingMethod;
+    [Test]
+    procedure TestCallingNonExistingFunction;
   end;
 
 type
@@ -718,6 +722,38 @@ procedure TFunctionTest.TestDomId;
   end;
 end;
 
+procedure TFunctionTest.TestCallingNonExistingMethod;
+var
+  LRec1: TMyId1;
+begin
+  Assert.WillRaise(
+    procedure
+    begin
+      try
+        Template.Eval('<% _.nonexisting() %>', LRec1);
+      except
+        on e: exception do
+          raise;
+      end;
+    end);
+end;
+
+procedure TFunctionTest.TestCallingNonExistingFunction;
+var
+  LRec1: TMyId1;
+begin
+  Assert.WillRaise(
+    procedure
+    begin
+      try
+        Template.Eval('<% nonexisting() %>', LRec1);
+      except
+        on e: exception do
+          raise;
+      end;
+    end);
+end;
+
 initialization
 
 TDUnitX.RegisterTestFixture(TFunctionTest);