paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-09 11:08:00 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: fixed pas2js tests

Browse Source 
(cherry picked from commit c472699a81)
This commit is contained in:
mattias 2023-07-15 11:22:19 +02:00 committed by Maxim Ganetsky
parent fba0c4d034
commit 1c0e549812
1 changed files with 28 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
components/codetools/tests/testctpas2js.pas
View File

@ -26,6 +26,7 @@ type
FBaseDir: string;
FCode: TCodeBuffer;
FPas2jsFilename: string;
FRTLDirDefines: TDefineTemplate;
FUnitSetCache: TFPCUnitSetCache;
FVirtualDirDefines: TDefineTemplate;
protected
@ -34,6 +35,7 @@ type
procedure DoParseModule(aCode: TCodeBuffer; out Tool: TCodeTool); virtual;
public
constructor Create; override;
destructor Destroy; override;
procedure Add(const s: string);
procedure Add(Args: array of const);
function FindPas2js: string;
@ -45,6 +47,7 @@ type
property Code: TCodeBuffer read FCode;
property Pas2jsFilename: string read FPas2jsFilename write FPas2jsFilename; // compiler filename
property UnitSetCache: TFPCUnitSetCache read FUnitSetCache write FUnitSetCache;
property RTLDirDefines: TDefineTemplate read FRTLDirDefines write FRTLDirDefines;
property VirtualDirDefines: TDefineTemplate read FVirtualDirDefines write FVirtualDirDefines;
property BaseDir: string read FBaseDir write FBaseDir;
end;
@ -65,7 +68,7 @@ implementation
procedure TCustomTestPas2js.SetUp;
var
CurUnitSet: TFPCUnitSetCache;
UnitSetID: String;
UnitSetID, SystemFilename, RTLDir: String;
CompilerDefines: TDefineTemplate;
begin
inherited SetUp;
@ -79,13 +82,27 @@ begin
'','','','',true);
// parse compiler settings
UnitSetCache.Init;
SystemFilename:=UnitSetCache.GetUnitSrcFile('system',false);
if SystemFilename='' then
Fail('pas2js system unit not found');
RTLDir:=ExtractFilePath(SystemFilename);
// set pas2js for rtl directory
RTLDirDefines:=TDefineTemplate.Create(
'RTLDirPas2js', 'set pas2js as compiler',
'',ChompPathDelim(RTLDir),da_Directory);
RTLDirDefines.AddChild(TDefineTemplate.Create('Reset','','','',da_UndefineAll));
// create template for Pas2js settings
CompilerDefines:=CreateFPCTemplate(UnitSetCache,nil);
RTLDirDefines.AddChild(CompilerDefines);
CodeToolBoss.DefineTree.Add(RTLDirDefines);
end;
UnitSetID:=UnitSetCache.GetUnitSetID;
// set pas2js for virtual directory
if VirtualDirDefines=nil then begin
VirtualDirDefines:=TDefineTemplate.Create(
'VirtualDirPas2js', 'set pas2js as compiler for virtual directory',
'VirtualDirPas2js', 'set pas2js as compiler',
'',VirtualDirectory,da_Directory);
VirtualDirDefines.AddChild(TDefineTemplate.Create('Reset','','','',da_UndefineAll));
// create template for Pas2js settings
@ -105,6 +122,8 @@ begin
AssertEquals('VirtualDirectory compiler should be pas2js',
PascalCompilerNames[pcPas2js],
PascalCompilerNames[CodeToolBoss.GetPascalCompilerForDirectory('')]);
end;
FCode:=CodeToolBoss.CreateFile('test1.pas');
end;
@ -144,6 +163,13 @@ begin
FBaseDir:='pas2js';
end;
destructor TCustomTestPas2js.Destroy;
begin
if (RTLDirDefines<>nil) and (CodeToolBoss<>nil) then
CodeToolBoss.DefineTree.RemoveDefineTemplate(RTLDirDefines);
inherited Destroy;
end;
procedure TCustomTestPas2js.Add(const s: string);
begin
FCode.Source:=FCode.Source+s+LineEnding;