浏览代码

fcl-passrc: fixed test

mattias 1 周之前
父节点
当前提交
11838cc988
共有 1 个文件被更改,包括 1 次插入1 次删除
  1. 1 1
      packages/fcl-passrc/tests/tcresolver.pas

+ 1 - 1
packages/fcl-passrc/tests/tcresolver.pas

@@ -17607,7 +17607,7 @@ begin
   'begin',
   'end.']);
   ParseProgram;
-  CheckResolverHint(mtHint,nTextAfterFinalIgnored,sTextAfterFinalIgnored);
+  CheckResolverHint(mtHint,nTextAfterFinalIgnored,sTextAfterFinalIgnored+' afile.pp(4,4)');
   CheckResolverUnexpectedHints(true);
 end;