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

pastojs: test unit linklib

Browse Source
This commit is contained in:
mattias 2021-10-20 10:58:56 +02:00
parent 3ceddfb2d6
commit 20ae686e31
1 changed files with 44 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

64
packages/pastojs/tests/tcunitsearch.pas
View File

@ -135,6 +135,8 @@ type
{ TTestCLI_UnitSearch }
TTestCLI_UnitSearch = class(TCustomTestCLI)
protected
procedure CheckLinklibProgramSrc(Msg,Header: string);
published
procedure TestUS_CreateRelativePath;
@ -168,6 +170,7 @@ type
// linklib
procedure TestUS_ProgramLinklib;
procedure TestUS_UnitLinklib;
end;
function LinesToStr(const Lines: array of string): string;
@ -617,6 +620,26 @@ end;
{ TTestCLI_UnitSearch }
procedure TTestCLI_UnitSearch.CheckLinklibProgramSrc(Msg, Header: string);
var
aFile: TCLIFile;
begin
aFile:=FindFile('test1.js');
CheckDiff(Msg,
LinesToStr([
#$EF#$BB#$BF+Header,
'rtl.module("program",["system"],function () {',
' "use strict";',
' var $mod = this;',
' $mod.$main = function () {',
' };',
'});',
'rtl.run();',
'//# sourceMappingURL=test1.js.map',
'']),
aFile.Source);
end;
procedure TTestCLI_UnitSearch.TestUS_CreateRelativePath;
procedure DoTest(Filename, BaseDirectory, Expected: string;
@ -998,34 +1021,35 @@ begin
end;
procedure TTestCLI_UnitSearch.TestUS_ProgramLinklib;
var
aFile: TCLIFile;
begin
AddUnit('system.pp',[''],['']);
AddFile('Bird.js',[
'var wings = true;',
'']);
AddFile('test1.pas',[
'{$linklib Bird}',
'begin',
'end.']);
Compile(['-Tnodejs','-va','test1.pas']);
aFile:=FindFile('test1.js');
writeln('TTestCLI_UnitSearch.TestUS_ProgramLinklib ',aFile.Source);
CheckDiff('TestUS_ProgramLinklib',
CheckLinklibProgramSrc('TestUS_ProgramLinklib',
LinesToStr([
#$EF#$BB#$BF'import * as bird from "Bird.js";',
'pas.$libimports.bird = bird;',
'rtl.module("program",["system"],function () {',
' "use strict";',
' var $mod = this;',
' $mod.$main = function () {',
' };',
'});',
'rtl.run();',
'//# sourceMappingURL=test1.js.map',
'']),
aFile.Source);
'import * as bird from "Bird.js";',
'pas.$libimports.bird = bird;']));
end;
procedure TTestCLI_UnitSearch.TestUS_UnitLinklib;
begin
AddUnit('system.pp',[''],['']);
AddUnit('UnitB.pas',
['{$linklib Bird Thunderbird}',
''],
['']);
AddFile('test1.pas',[
'uses UnitB;',
'begin',
'end.']);
Compile(['-Tnodejs','-va','test1.pas']);
CheckLinklibProgramSrc('TestUS_UnitLinklib',
LinesToStr([
'import * as Thunderbird from "Bird.js";',
'pas.$libimports.Thunderbird = Thunderbird;']));
end;
Initialization