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

pastojs: TCustomTestCLI.OnWriteFile: check if binary

Browse Source
This commit is contained in:
mattias 2023-07-12 14:19:21 +02:00
parent 322503678d
commit 37a5130fc3
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -373,6 +373,8 @@ end;
procedure TCustomTestCLI.OnWriteFile(aFilename: string; Source: string);
var
aFile: TCLIFile;
s: String;
i: Integer;
{$IF defined(VerboseUnitQueue) or defined(VerbosePCUFiler)}
//i: Integer;
{$ENDIF}
@ -406,7 +408,14 @@ begin
aFile.Source:=Source;
aFile.Attr:=faNormal;
aFile.Age:=DateTimeToFileDate(CurDate);
writeln('TCustomTestCLI.OnWriteFile ',aFile.Filename,' Found=',FindFile(aFilename)<>nil,' "',LeftStr(aFile.Source,50),'" ');
s:=LeftStr(aFile.Source,50);
for i:=1 to length(s) do
if not (s[i] in [#9..#10,#13,' '..#126]) then
begin
s:='<BINARY>';
break;
end;
writeln('TCustomTestCLI.OnWriteFile ',aFile.Filename,' Found=',FindFile(aFilename)<>nil,' "',s,'" ');
//writeln('TCustomTestCLI.OnWriteFile ',aFile.Source);
end;