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

* Progress and exit status display

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-07-11 14:51:34 +02:00
parent 935ce7edac
commit 87cc2593a7
2 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
packages/paszlib/tests/tczipper.pp
View File

@ -257,7 +257,6 @@ begin
// ignore mess
end;
{$ENDIF}
DestFile:=SysUtils.GetTempFileName('', 'CS2');
z:=TZipper.Create;
z.FileName:=DestFile;
@ -454,8 +453,11 @@ begin
ContentStreams.Add(ContentStream);
// Start filenames at 1
Zipper.Entries.AddFileEntry(TStringStream(ContentStreams.Items[i]), format('%U',[i+1]));
if (i mod 100)=0 then
write(i,' ');
inc(i);
end;
Writeln;
Zipper.ZipAllFiles;
{
i:=0;
@ -493,8 +495,11 @@ begin
UnzipArchiveFiles.Clear;
UnzipArchiveFiles.Add(Unzipper.Entries[i].ArchiveFileName);
Unzipper.UnZipFiles(UnzipArchiveFiles);
if (i mod 100)=0 then
write(i,' ');
inc(i);
end;
writeln();
finally
CallBackHandler.Free;
Unzipper.Free;

1
packages/paszlib/tests/tczstreamseek.pp
View File

@ -55,4 +55,5 @@ begin
wasError := True;
end;
assert(wasError);
writeln('All OK');
end.