pastojs: TCustomTestCLI.OnWriteFile: check if binary

packages/pastojs/tests/tcunitsearch.pas

@@ -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;