paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 03:29:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

pastojs: fixed version check using current version

Browse Source 
git-svn-id: trunk@41344 -
This commit is contained in:
Mattias Gaertner 2019-02-16 19:46:11 +00:00
parent fbba24d636
commit d2203e460c
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -536,7 +536,7 @@ end;
procedure TTestCLI_Precompile.TestPCU_CheckVersionSystem;
var
aFile: TCLIFile;
s, JSFilename, ExpectedSrc: string;
s, JSFilename, ExpectedSrc, VerStr: string;
begin
AddUnit('src/system.pp',[
'type integer = longint;'],
@ -549,10 +549,11 @@ begin
aFile:=FindFile(JSFilename);
AssertNotNull('File not found '+JSFilename,aFile);
writeln('TTestCLI_Precompile.TestPCU_CheckVersionMain ',aFile.Source);
VerStr:=IntToStr((VersionMajor*100+VersionMinor)*100+VersionRelease);
ExpectedSrc:=LinesToStr([
UTF8BOM+'rtl.module("system",[],function () {',
' "use strict";',
' rtl.checkVersion(10301);',
' rtl.checkVersion('+VerStr+');',
' var $mod = this;',
'});']);
if not CheckSrcDiff(ExpectedSrc,aFile.Source,s) then