浏览代码

pastojs: fixed tests

git-svn-id: trunk@42689 -
Mattias Gaertner 6 年之前
父节点
当前提交
55b1f676dc
共有 1 个文件被更改,包括 3 次插入3 次删除
  1. 3 3
      packages/pastojs/tests/tcmodules.pas

+ 3 - 3
packages/pastojs/tests/tcmodules.pas

@@ -4952,7 +4952,7 @@ begin
   '  f: TMyEnum = Green;',
   '  f: TMyEnum = Green;',
   'begin',
   'begin',
   '  e:=green;']);
   '  e:=green;']);
-  SetExpectedPasResolverError('not yet implemented: Red:TPasEnumValue [20180126202434] enum const',3002);
+  SetExpectedPasResolverError('not yet implemented: Red:TPasEnumValue [20180126202434] "enum const"',3002);
   ConvertProgram;
   ConvertProgram;
 end;
 end;
 
 
@@ -10733,7 +10733,7 @@ begin
   'var',
   'var',
   '  r: record x: word end;',
   '  r: record x: word end;',
   'begin']);
   'begin']);
-  SetExpectedPasResolverError('not yet implemented: :TPasRecordType [20190408224556] anonymous record type',
+  SetExpectedPasResolverError('not yet implemented: :TPasRecordType [20190408224556] "anonymous record type"',
     nNotYetImplemented);
     nNotYetImplemented);
   ConvertProgram;
   ConvertProgram;
 end;
 end;
@@ -11323,7 +11323,7 @@ begin
   '  end;',
   '  end;',
   'begin',
   'begin',
   '']);
   '']);
-  SetExpectedPasResolverError('not yet implemented: IBird:TPasClassType [20190105143752] interface inside record',
+  SetExpectedPasResolverError('not yet implemented: IBird:TPasClassType [20190105143752] "interface inside record"',
     nNotYetImplemented);
     nNotYetImplemented);
   ParseProgram;
   ParseProgram;
 end;
 end;