paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-02 01:10:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

pastojs: fixed tests

Browse Source
This commit is contained in:
mattias 2021-09-19 17:03:20 +02:00
parent 6c1c4a66e8
commit a46261bc15
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
packages/pastojs/tests/tcprecompile.pas
View File

@ -602,7 +602,8 @@ begin
' $mod.$main = function () {',
' rtl.checkVersion('+IntToStr((VersionMajor*100+VersionMinor)*100+VersionRelease)+');',
' };',
'});']);
'});',
'//# sourceMappingURL=test1.js.map']);
if not CheckSrcDiff(ExpectedSrc,aFile.Source,s) then
Fail('TTestCLI_Precompile.TestPCU_CheckVersionMain src diff: '+s);
end;
@ -632,7 +633,8 @@ begin
' rtl.checkVersion('+IntToStr((VersionMajor*100+VersionMinor)*100+VersionRelease)+');',
' pas.system.Writeln();',
' };',
'});']);
'});',
'//# sourceMappingURL=test1.js.map']);
if not CheckSrcDiff(ExpectedSrc,aFile.Source,s) then
Fail('TTestCLI_Precompile.TestPCU_CheckVersionMain src diff: '+s);
end;
@ -659,7 +661,8 @@ begin
' "use strict";',
' rtl.checkVersion('+VerStr+');',
' var $mod = this;',
'});']);
'});',
'//# sourceMappingURL=system.js.map']);
if not CheckSrcDiff(ExpectedSrc,aFile.Source,s) then
Fail('TTestCLI_Precompile.TestPCU_CheckVersionMain src diff: '+s);
end;